Hirdetés
- Apple MacBook
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Amlogic S905, S912 processzoros készülékek
- Csekély 4000 dollárért tervezetten "hibás" az ASUS limitált VGA-ja
- Kormányok / autós szimulátorok topikja
- Vezetékes FEJhallgatók
- OLED monitor topic
- Azonnali fotós kérdések órája
- Steam Deck
- LG LCD és LED TV-k
Ú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
- Kerékpárosok, bringások ide!
- Klaus Duran: Minden drágul. Vajon a fizetések 2026-ban követi minimálisan?
- Fotók, videók mobillal
- Apple MacBook
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Amlogic S905, S912 processzoros készülékek
- Bemutatkozott a Poco X7 és X7 Pro
- Linux kezdőknek
- Luck Dragon: Asszociációs játék. :)
- Epic Store Ünnepi Ajándékozás - 12. nap: Viewfinder
- További aktív témák...
- Xiaomi Redmi Note 12 128GB, Kártyafüggetlen, 1 Év Garanciával
- TP Link HS100 Távolról vezérelhető Wi-Fi-s dugalj (Smart Plug)
- Dell Latitude 7480 14" FHD IPS, i5 7300U, 8GB RAM, SSD, jó akku, számla, 6 hó gar
- Újszerű Dell Latitude 5420 - i7 1185G7 ,16-32GB RAM, 512GB SSD, jó akku, számla, 6 hó gar
- Újszerű Dell Latitude 7400 14" FHD IPS, i5 8365U, 16GB RAM, SSD, jó akku, számla, 6 hó gar
- GYÖNYÖRŰ iPhone X 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3586
- ÁRCSÖKKENTÉS ASUS HD6870 videókártya
- Telefon felvásárlás! Samsung Galaxy A15, Samsung Galaxy A25, Samsung Galaxy A35, Samsung Galaxy A55
- Keresünk iPhone 16/16e/16 Plus/16 Pro/16 Pro Max
- Samsung Galaxy S23 / 8/256GB / Kártyafüggetlen / 12Hó Garancia
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest


