- gban: Ingyen kellene, de tegnapra
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- laskr99: Újrakezdem a processzor és videókártya szilícium magok fotózását
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Magga: PLEX: multimédia az egész lakásban
- Brogyi: CTEK akkumulátor töltő és másolatai
- bambano: Bambanő háza tája
- D1Rect: Nagy "hülyétkapokazapróktól" topik
Ú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 -
bende126
csendes tag
válasz
bende126 #2187 üzenetére
Sziasztok, még mindig ez előzményekben lévő makró megírása.
Jelenleg itt tartok:
Sub nyomtatas()
s1 = 1
s2 = 1
o1 = 1
Do While e1 < e2
s2 = s1 + 1
e2 = Cells(s2, 1).Value
e1 = Cells(s1, 1).Value
Do While Cells(s2, 1) = Empty
s2 = s1 + 1
Loop
sork = s1
sorv = s2
Loop
' a nyomtatás részhez még nem kezdtem hozzá, ezt azért tettem bele, hogy lássam, milyen terülere vonatkozik a fentebbi kód
For t = sork To sorv
Cells(1, 20).Value = s2
Cells(t, o1).Interior.Color = vbYellow
Next
End Sub, tudom, hogy nem jó, és, hogy mennyire jó poén tárgyává váltam, de ezt most hagyjuk!!
)
Lenne néhány kérdésem:
- 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?
- Jelenleg végtelen ciklus jön létre az excel kifagy. elvileg a Do While Cells(s2, 1) = Empty sor nem ennek elkerülésére lenne?
- a kijelölésre a ActiveSheet.Range(Cells(s1, o1), Cells(s2, o2)).Select sor jó lehet? - o2 lesz majd később, még nincs
Előre is köszönöm
Új hozzászólás Aktív témák
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- LEGO klub
- Formula-1
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- exHWSW - Értünk mindenhez IS
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- BestBuy ruhás topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Honda topik
- Óra topik
- További aktív témák...
- HP ProBook 430 G8, 13,3" FHD IPS, I5-1135GU CPU, 16GB DDR4, 256GB SSD, WIN 11, 27% áfás számla, 1 év
- Playstation Portal - 3 hónap Bolti Garanciával
- BESZÁMÍTÁS! ÚJ AMD Ryzen 5600X 5700X 5800X 5900X processzor 3 év garancia 27% áfa termékbeszámítás
- BESZÁMÍTÁS! ÚJ AMD Ryzen 8500G / 8600G AMD Ryzen 7 8700G / 7800X3D processzor 3 év garancia 27% áfa
- Remek áron Lenovo ThinkPad x395 AMD Ryzen 7 pro-3700U/16GB/256 SSD/AMD Radeon Vega 10 Grap/FHD/IPS
- BESZÁMÍTÁS! MSI B450M R 5 5600X 32GB DDR4 512GB SSD RTX 3060 12GB Rampage SHIVA Corsair 650W
- Bomba ár! Lenovo ThinkPad T490s - i7-8GEN I 16GB I 256SSD I 14" WQHD HDR I Cam I W11 I Gari!
- Xiaomi 11T Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- Újszerű Asus ExpertBook B1 B1500 - 15.6" FullHD IPS - i5-1235U - 16GB - 512GB SSD - Win11 - Garancia
- Külföldi csomagszállítás Packeta csomagpontokon keresztül!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest