Hirdetés
- Luck Dragon: Asszociációs játék. :)
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- Klaus Duran: RCS
- Brogyi: CTEK akkumulátor töltő és másolatai
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- bambano: Bambanő háza tája
- eBay-es kütyük kis pénzért
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
baderoli
tag
válasz
Delila_1
#16100
üzenetére
Köszönöm! Ha két különböző területet szeretnék megjelölni egy makrón belül,akkor elég csak megismételnem a lezáráson belül? Pl:
Sub X_ek()
Dim sorF%, sorA%, oszlopE%, oszlopU%, i%, sor%, oszlop%sorF% = 42: sorA% = 71: oszlopE% = 4: oszlopU% = 8
For i = 1 To 2
sor% = Rnd() * (sorF% - sorA%) + sorA%
oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
Cells(sor%, oszlop%) = "X"
Next
Dim sorF%, sorA%, oszlopE%, oszlopU%, i%, sor%, oszlop%sorF% = 42: sorA% = 71: oszlopE% = 10: oszlopU% = 12
For i = 1 To 2
sor% = Rnd() * (sorF% - sorA%) + sorA%
oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
Cells(sor%, oszlop%) = "X"
Next
End SubHa jó a logikám akkor a D42:H71 és J42:L71 területre írja be. De szerintem a Dim sor nem is kell kétszer és talán a Next sem. Amúgy ez milyen nyelven van ? Visual Basic?
Új hozzászólás Aktív témák
- Az eddigi legolcsóbb, 3D V-Cache-t használó CPU-ját hozta forgalomba az AMD
- Path of Exile 2
- Milyen billentyűzetet vegyek?
- Autós topik
- Luck Dragon: Asszociációs játék. :)
- Sokkal jobb ajánlat lett elődjénél az iPhone 17e
- Elfelejtettem a film címét
- Anglia - élmények, tapasztalatok
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- pfSense - Avagy az okosított házirouter
- További aktív témák...
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- PC Game Pass előfizetés
- Microsoft és egyéb dobozos retro szoftverek
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- HP EliteBook 840 G10 13. gen i5, 16GB DDR5, prémium üzleti laptop! 1 év garancia
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- ÁRGARANCIA!Épített KomPhone i5 14400F 32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
- Új és régi konzolok Okosítása és Szoftveres szintű javítása - MÁR 13.00-S PS4 IS!
- BESZÁMÍTÁS! Sapphire Pulse Radeon RX 7900 XTX 24GB videokártya garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50