Ú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
- -40% ÚJ DOBOZOS Lenovo Thinkpad T14 Gen 5: Ultra 7 165U/32GB DDR5/512GB/400nit/5MP/vil.MAGYAR bill.
- -300e Ft KEDVEZMÉNY:ÚJ Lenovo Thinkpad T14 Gen 5:Ultra 7 165U/64GB DDR5/512GB/400nit/vil.MAGYAR bill
- iPhone 16 128GB Független Karcmentes/2028.12.30.Gar./Akku 100%/p4665
- Intel passzív csúcsgép: 4,7 GHz Intel i7 1255U, 10 mag / 12 szál barebone
- -42% ÚJ Lenovo ThinkCentre M70s G5 SFF: i5 14500 14mag, 16GB RAM, 512GB NVMe SSD, ÚJ HU bill + egér
- Samsung Galaxy S24 Ultra 120 Hz Dynamic AMOLED 2X, beépített S Pen, Galaxy AI 12/256 GB
- HIBÁTLAN iPhone 13 Mini 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS4181, 94% Akksi
- Lenovo ThinkPad L16 Gen 1 - 16" WUXGA IPS - Ultra 5 135U - 16GB - 512GB - Win11 - 2,5 év gari
- BESZÁMÍTÁS! Sapphire B650M R7 8700F 32GB DDR5 1TB SSD RX 6800 16GB Zalman Z1 PLUS Seasonic 750W
- Eredeti Lenovo 230W töltők - 4X20Z83995
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest

