Hirdetés
Legfrissebb anyagok
PROHARDVER! témák
- Nyáron jön az AOC új, legfeljebb 720 Hz-re képes monitora
- Bambu Lab 3D nyomtatók
- Eljött a CPU-k kora az AI-piacon
- Milyen notebookot vegyek?
- Azonnali informatikai kérdések órája
- Fejhallgató erősítő és DAC topik
- Tovább tarthat a memóriakrízis, mint gondolnánk
- Blu ray írás és írási hiba
- A jövőben nem csak a gazdagok kiváltsága lehet az Intel CPU-k tuningja
- Még idén kézbe vehetjük a NEOGEO felújított kiadását
Mobilarena témák
IT café témák
LOGOUT témák
- Lalikiraly: Mercis kalandok - Huszonnyolcadik rész - Az újrakezdés
- Lalikiraly: Kinek milyen setupja van?
- Graphics: Telefonvásárlási kálváriám....avagy clickbait cím: Horror a hardveraprón
- Luck Dragon: Asszociációs játék. :)
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
Ú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
- Nyáron jön az AOC új, legfeljebb 720 Hz-re képes monitora
- Lalikiraly: Mercis kalandok - Huszonnyolcadik rész - Az újrakezdés
- Bambu Lab 3D nyomtatók
- Eljött a CPU-k kora az AI-piacon
- iPhone topik
- Milyen notebookot vegyek?
- Azonnali informatikai kérdések órája
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Diablo II: Classic és Resurrected
- Kuponkunyeráló
- További aktív témák...
Új fizetett hirdetések
- ASUS Rog Ally Z1 Extreme, 2027.01.12-ig gyári garanciás, hálózati töltőjével, szilikon tokkal eladó!
- HP 250 G7,15.6",i5-1035G1,8GB DDR4,256GB SSD,WIN11
- Lenovo ThinkPad T480s,FHD,14",i5-7300U,8GB DDR4,256GB SSD,WIN11,TOUCH,jó akku
- Lenovo ThinkPad T480s,FHD,14,i5-7300U,8GB DDR4,256GB SSD,WIN11,TOUCH
- Ugreen Revodok Max Thunderbolt 4, dokkoló, port többszöröző állomás
Üzleti előfizetők hirdetései
- Lenovo ThinkPad T14S Gen1 Ryzen5 4650U Refurbished - Garancia
- Apple Watch 9 GPS + Cellular 45 mm
- AKCIÓ! ASUS ROG Crosshair VIII Extreme alaplap garanciával hibátlan működéssel
- AKCIÓ! ASRock A520M R5 5500 16GB DDR4 512GB SSD RTX 2060 Super 8GB Rampage SHIVA Adata 600W
- AKCIÓ! Intel Core i7 4790 4 mag 8 szál processzor garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

