Legfrissebb anyagok
PROHARDVER! témák
- Új csodafegyverrel gyorsítaná CPU-it az Intel
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Milyen egeret válasszak?
- OLED monitor topic
- Házimozi belépő szinten
- OLED TV topic
- Utolérte az áremelés a PlayStation 5-öt
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- Törölte az idei asztali csúcsprocesszorát az Intel
- Mini-ITX
Mobilarena témák
IT café témá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
Aktív témák
- iPhone 12 mini - kicsi a bors, de bitang erős
- Gumi és felni topik
- Trollok komolyan
- Xiaomi 15T Pro - a téma nincs lezárva
- Luck Dragon: Asszociációs játék. :)
- Luck Dragon: Óraátállítás
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Autós topik
- Új csodafegyverrel gyorsítaná CPU-it az Intel
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- További aktív témák...
Új fizetett hirdetések
- Bomba ár! Dell Latitude 5490 - i5-8G I 8GB I 256SSD I 14" HD I HDMI I Cam I W11 I Garancia!
- Bomba ár! Lenovo X1 Yoga 1st - i5-6G I 8GB I 512SSD I 14" FHD PXCsík I HDMI I W11 I Cam I Gari
- Bomba ár! Lenovo ThinkPad T490 - i5-8G I 8GB I 256SSD I 14" FHD I HUN I Cam I W11 I Garancia!
- HP ProDesk 600 G4 USDT,Pentium Gold G5400T,8GB DDR4,256GB M2 SSD,WIN11
- Xbox One S 1TB
Üzleti előfizetők hirdetései
- AKCIÓ! Asrock B450M R5 5600X 16GB DDR4 512GB SSD RTX 3070 8GB Zalman T3 Plus FSP 650W
- Xiaomi Mi 11i 256GB, Kártyafüggetlen, 1 Év Garanciával
- HP üzleti laptopok Elitebook, Probook 4-11. gen gar.
- Keresünk iPhone 16/16 Plus/16e/16 Pro/16 Pro Max
- Samsung Galaxy S23 Ultra 8/256GB - Kártyafüggetlen, Fekete - 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

