Legfrissebb anyagok
LOGOUT témák
- sziku69: Fűzzük össze a szavakat :)
- eBay-es kütyük kis pénzért
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- bambano: Bambanő háza tája
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- Magga: PLEX: multimédia az egész lakásban
- sziku69: Szólánc.
- Meggyi001: RTX 5060 - Az új népkártya?
PROHARDVER! témák
Mobilarena témák
IT café témák
Hirdetés
!! SZERVERLEÁLLÁS, ADATVESZTÉS INFORMÁCIÓK !!
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
Ú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
- Yettel topik
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- iPhone topik
- Elektromos autók - motorok
- Miért álltak az oldalak egy hétig, mi történt?
- DOOM - The Dark Ages
- Samsung Galaxy Watch7 - kötelező kör
- Xbox tulajok OFF topicja
- Robotporszívók
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- További aktív témák...
Új fizetett hirdetések
- Honor 400 256GB ÚJSZERŰ Euronics vásárlás Garancia 2027.05.24-ig
- DJI Goggles Integra drón szemüveg
- Asztali Konfig - z97 - 4770K - Sapphire RX580 8GB- 8 GB DDR3
- ÚJ, GARIS! Dell Latitude 5450 - 14" FHD / Ultra 5 125U / 16GB DDR5 / 512GB NVMe SSD / HDMI 2.1
- Megkímélt állapotban Samsung Galaxy A51 4/128GB
Üzleti előfizetők hirdetései
- Eredeti DELL 240W töltők (LA240PM160)
- REFURBISHED - DELL Thunderbolt Dock WD19TBS docking station (210-AZBV)
- BESZÁMÍTÁS! LG UltraGear 27GL850-B 144Hz QHD 1ms monitor garanciával hibátlan működéssel
- 13-14" Új és használt laptopok , üzletitől a gamerig , kedvező áron. Garanciával !
- Új Asus F16 TUF WQXGA 165Hz G-Sync i7-14650HX 16mag 16GB 1TB SSD Nvidia RTX 5050 8GB Win11 Garancia
Állásajánlatok
Cég: FOTC
Város: Budapest