- Nem lesz iPhone 19
- Lecsap az S26 Ultra az Exynos 2600-ra
- Nothing Phone (3a) és (3a) Pro - az ügyes meg sasszemű
- 2.1-es Bose sztereó hangrendszer a Redmi K90 Pro Maxban
- Apple iPhone Air - almacsutka
- Samsung Galaxy A33 5G - a három az majdnem öt
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- OFFTOPIK: Earfun-lányok Sencsenben
- Bemutatkozott a Motorola vékonymobilja
-
Mobilarena
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
- Assassin's Creed Shadows Collector's Edition PC
- Árváltozás+játék DVD: Bioshock Infinite Ultimate Songbird Edition
- Árváltozás+játék!The Witcher 2 Assassins of Kings Collector's Edition
- AKCIÓ! Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Eladó Steam kulcsok kedvező áron!
- Lenovo Legion Go Z1 Extreme + kiegészítők 6 hónap Garancia Beszámítás Házhozszállítás
- Xiaomi Redmi Note 13 Pro+ 512GB, Kártyafüggetlen, 1 Év Garanciával
- GYÖNYÖRŰ iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA -Kártyafüggetlen, MS3618,96% Akksi
- Telefon felvásárlás!! Apple Watch Series 6/Apple Watch Series 7/Apple Watch Series 8
- Samsung Galaxy A36 5G / 6/128GB / Kártyafüggetlen / 12Hó Garancia / BONTATLAN NULL Perces
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő

Fferi50

