Keresés: - Visual Basic - PROHARDVER! Hozzászólások

Legfrissebb anyagok

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Új hozzászólás Aktív témák

#2887 alfa20 senior tag alfa20 #2886

Új Válasz 2017-08-26 17:42:04 #2887
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

alfa20

senior tag

válasz alfa20 #2886 üzenetére

nézd meg ezt:
Sub main() Application.ScreenUpdating = False Dim usorKesz, alapSor As Long usorKesz = Sheets("Kész").Range("A" & Rows.Count).End(xlUp).Row alapSor = 1 Sheets("Alap").Select Do While (Cells(1, 1) <> "") Cells(1, 1).Copy Sheets("Összefűz").Range("A2").PasteSpecial Sheets("Kész").Cells(usorKesz + alapSor, 1) = Sheets("Összefűz").Range("A1") & _ Sheets("Összefűz").Range("A2") & Sheets("Összefűz").Range("A3") alapSor = alapSor + 1 Sheets("Alap").Cells(1, 1).Delete Loop Sheets("Kiegészít").Range("A1:A16").Copy Sheets("Kész").Range("A" & usorKesz + alapSor).PasteSpecial Application.CutCopyMode = False Application.ScreenUpdating = True End Sub
#2886 alfa20 senior tag xml2 #2885

Új Válasz 2017-08-26 10:57:16 #2886
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

alfa20

senior tag

válasz xml2 #2885 üzenetére

Ha törölni szeretnéd a tartalmat, másképp oldalán meg, a while ciklust módosítanám
, úgy hogy amit kimásolt azt törölje és addig menjen a ciklus míg a cella tartalma nem üres, de most telóról vagyok, majd délután átírom.
#2884 alfa20 senior tag xml2 #2883

Új Válasz 2017-08-26 00:00:07 #2884
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

alfa20

senior tag

válasz xml2 #2883 üzenetére

Szia!
Én így oldanám meg, viszont a Do While-ban lévő első két sort én elhagynám, az ha nincs miértje, szerintem felesleges. Illetve a "3 cellát összefűzni (szóköz nélkül)" arra utalt, hogy a cellák közt ne legyen szünet vagy a tartalmukban?
Ha a tartalmukban, akkor vedd ki a kommentet a ' szóköz eltávolítása:
Sub main() Application.ScreenUpdating = False Dim usorKesz, alapSor As Long usorKesz = Sheets("Kész").Range("A" & Rows.Count).End(xlUp).Row alapSor = 1 Sheets("Alap").Select Do While (Cells(alapSor, 1) <> "") Cells(alapSor, 1).Copy Sheets("Összefűz").Range("A2").PasteSpecial Sheets("Kész").Cells(usorKesz + alapSor, 1) = Sheets("Összefűz").Range("A1") & _ Sheets("Összefűz").Range("A2") & Sheets("Összefűz").Range("A3") ' szóköz eltávolítása: 'Sheets("Kész").Cells(usorKesz + alapSor, 1).Replace What:=" ", Replacement:="" alapSor = alapSor + 1 Loop Sheets("Kiegészít").Range("A1:A16").Copy Sheets("Kész").Range("A" & usorKesz + alapSor).PasteSpecial Application.ScreenUpdating = True End Sub
erre gondoltál?
#2874 alfa20 senior tag alfa20 #2873

Új Válasz 2017-06-20 15:11:43 #2874
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

alfa20

senior tag

válasz alfa20 #2873 üzenetére

MySQL-ben kellett beállítani, hogy minden gép elérje most elérem a táblákat, jöhet a programozás
#2873 alfa20 senior tag martonx #2872

Új Válasz 2017-06-20 10:02:01 #2873
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

alfa20

senior tag

válasz martonx #2872 üzenetére

Köszi, ezek mind be vannak állítva, másik gépről MySQL Workbanch-el elérem az adatbázist SSH kapcsolattal. Viszont azt nem tudom hogy tudnám ezt VB.NET-ben kivitelezni, eddig csak olyan csatlakozásokat találtam ahol egy IP:port címre kellett kapcsolódni, de nekem meg egyszer a Pi-re, majd onnan a MySQL-re.
Vagy nem tudom
#2871 alfa20 senior tag

Új Válasz 2017-06-19 22:58:53 #2871
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

alfa20

senior tag

Sziasztok!
Egy hálózaton van több gép is, ezek közül az egyik egy PI3 amin fut egy Webmin + Apache + MySQL, erre hogy tudok VB.NET-el fel csatlakozni?
MySQL Workbanch-el elérem az adatbázist SSH kapcsolattal
Pi3 IP: 192.168.0.13:22
Pi3 MySQL: 127.0.0.1::3306
Workbanch mind két jelszót kéri a Pi-ét és a adatbázisét is.
#2705 alfa20 senior tag bundli #2704

Új Válasz 2016-04-05 08:36:06 #2705
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

alfa20

senior tag

válasz bundli #2704 üzenetére

nálam 2010-es Excel-ben nincs gondja, szépen törli:
#2703 alfa20 senior tag bundli #2702

Új Válasz 2016-04-04 18:51:43 #2703
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

alfa20

senior tag

válasz bundli #2702 üzenetére

Szia,
Tartalom törlést próbáld meg esetleg:
Range("A1:C100").ClearContents
#2636 alfa20 senior tag

Új Válasz 2015-05-20 10:28:39 #2636
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

alfa20

senior tag

Sziasztok!
egy sima .txt fájlból, hogy tudom feltőlteni a tömbömet?
VB kódban így nézki:
tomb = Array("A1", "B2", "C3", "D4", "E5")
a .txt fájl meg így:
ezt szeretném betőltetni, mert így egyszerübb enne bővíteni a listát.
a másik kérdésem:
- a tömb egyik elemének a helyét, hogy tudom meghatározni, ha ismerem az elemet:
ugye tomb(1) = B2 de D4=tomb(?)
#2055 alfa20 senior tag

Új Válasz 2013-04-10 08:23:13 #2055
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

alfa20

senior tag

Sziasztok,
Excelben szeretnék makrót készíteni, és ehhez keresek magyar nyelvű könyvet, kettő könyv közt tanakodok:
1.) Demeter M. Ibolya: Visual Basic 6.0
2.) Peter G. Aitken - Visual Basic 6 - Kék könyv
nekem csak az Excelhez kell a VB és azt olvastam hogy erre a VB6 a jobb.
valaki tudna abban segíteni, hogy teljesen a nulláról, melyik könyvet érdemes választani esetleg mind kettőt, vagy van jobb választás?
Excelben azért otthon vagyok, írtam is már pár makrót rögzítéssel, de az összetettebbekhez kevés a tudásom