Legfrissebb anyagok
PROHARDVER! témák
- Logitech Z623
- Apple MacBook
- Gaming notebook topik
- Sony MILC fényképezőgépcsalád
- Milyen Android TV boxot vegyek?
- VR topik (Oculus Rift, stb.)
- Ventilátorok - Ház, CPU (borda, radiátor), VGA
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Vezetékes FEJhallgatók
Mobilarena témák
IT café témák
Hirdetés
!! SZERVERLEÁLLÁS, ADATVESZTÉS INFORMÁCIÓK !!
Köszönjük a sok biztatást, támogatást! Utolsó pillanat a féláras hirdetésfeladásra, előfizetésre!
Köszönjük a sok biztatást, támogatást! Utolsó pillanat a féláras hirdetésfeladásra, előfizetésre!
Új hozzászólás Aktív témák
-
martonx
veterán
válasz
bende126 #2190 üzenetére
Szerintem kezdjük azzal, hogy pontosan mi is az a részfeladat amit ezzel a kóddal meg szeretnél oldani?
Egyébként a kód első ránézésre nagyon túlbonyolítottnak tűnik.Pl ez helyett:
Do While e1 < e2
s2 = s1 + 1
e2 = Cells(s2, 1).Value
e1 = Cells(s1, 1).Valueelég lenne ez:
Do While Cells(s1, 1).Value < Cells(s2, 1).Value
s2 = s1 + 1Ráadásul s1-et nem is növeled, szóval az s1 is felesleges, ha az mindig fix 1
"- Lehet úgy változót deklarálni, hogy a do while utasítás alatt található? Vagy már korábban meg kéne tennem?"
Persze, miért ne lehetne
Új hozzászólás Aktív témák
Aktív témák
Új fizetett hirdetések
- Digitus UNIQUE DN-19 07-U, 7U prémium fali rack 600x450
- Szinte új! 3 Hónapos! Playstation 5 Slim Disc (Lemezes) Kiadás! Garancia: 2027.05.15
- Logitech Z333 2.1 (980-000953/1202) Aktív hangfal
- NVIDIA Quadro M2000 4GB GDDR5 profi munkára, CAD, 3D, stabil kártya!
- Csere-Beszámítás! Ajándék ROG Táska! Asus Rog Ally Z1 Extreme RC71L - 512GB SSD + 16GB LPDDR5
Üzleti előfizetők hirdetései
- HIBÁTLAN iPhone 14 Pro Max 256GB Space Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3009
- Gamer PC- Számítógép! Csere-Beszámítás! I5 12400F / RTX 3070 8GB / 32GB DDR4 / 500GB SSD+ 2TB HDD
- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
- iPhone 13 mini 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3089, 100% Akkumulátor
- Microsoft Surface Pro 9 i5-1245U 16GB 512GB 1év garancia
Állásajánlatok
Cég: FOTC
Város: Budapest