- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Real Racing 3 - Freemium csoda
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- GoodSpeed: AMD Ryzen 9 9900X (100-100000662WOF)+ Samsung 990 PRO 2TB MZ-V9P2T0BW
- Rap, Hip-hop 90'
Hirdetés
-
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
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- AliExpress tapasztalatok
- Realme GT 2 - aláírjuk
- DVB-T, DVB-S (2), DVB-C eszközök
- BMW topik
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Battlefield 6
- Építő/felújító topik
- PlayStation 5
- További aktív témák...
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Humble megmaradt kulcsok Frissítve 08.05
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- ASUS X540SA-XX004D Notebook - 4 napot használt
- AKCIÓ! Intel Core i7 7700K 4 mag 8 szál processzor garanciával hibátlan működéssel
- Azonnali készpénzes nVidia RTX 4000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
- GYÁRI TÖLTŐK DELL LENOVO HP FUJITSU TOSHIBA Macbook---------- Budapest,/MPL/Foxpost
- Eladnád a telefonod? KÉSZPÉNZES OKOSTELEFON FELVÁSÁRLÁS azonnali fizetéssel!
Állásajánlatok
Cég: FOTC
Város: Budapest