- gban: Ingyen kellene, de tegnapra
- Sgr_A: Számítógépeim aktualizálása cseréje
- hmzs: Fujitsu Futro S920 csúcsra járatva
- Geri Bátyó: Agglegénykonyha 2 – Főzés: szabályok, vagy szabadság?
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- Magga: PLEX: multimédia az egész lakásban
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- sh4d0w: Tökéletes töketlenség
Új hozzászólás Aktív témák
-
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
- Fejhallgató erősítő és DAC topik
- Battlefield 6
- Milyen TV-t vegyek?
- A 3D V-Cache és a rengeteg memória lehet az új PlayStation fő fejlesztési iránya
- Autós topik
- Október elején jön a Bye Sweet Carole
- Otthoni hálózat és internet megosztás
- E-roller topik
- Miért vezet mindenki úgy, mint egy állat?
- Microsoft Excel topic
- További aktív témák...
- BOMBA ÁR Új Dell Inspiron 16" Gamer Tervező Vágó Laptop -50% Ultra 7 155H 16/1TB RTX 4060 8GB 2,5K
- ASUS ROG STRIX RTX 4070 Ti SUPER OC Edition 16G (kishibás) videokártya garanciával
- Iskolakezdési AKCIÓ! - I7-8700/16GB DDR4/Gigabyte B360/GTX1070/1TB HDD/240GB SSD - 144.999,-
- HP ZBOOK 17 G6 Tervező Vágó Laptop -60% 17,3" i7-9850H 16/512 QUADRO RTX 3000 6GB FHD
- Samsung S21 5G megkímélt jó állapotban.
- Új és újszerű 15"-16" Gamer, irodai, üzleti, készülékek nagyon kedvező alkalmi áron Garanciával!
- HIBÁTLAN iPhone 13 mini 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3285
- Lenovo Tab P12 / Wi-fi / 8/128GB / 12Hó Garancia
- LENOVO Legion Y530-15ICH - 15,6" FHD IPS - i7-8750H - 8GB - ÚJ 512GB SSD - Win10 - GTX 1050 Ti
- Lenovo LOQ (15IAX9) - Intel Core i5 i5-12450HX, RTX 4060 (1db , utolsó ... aki kapja ...)
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest