Hirdetés
- Minden a BlackBerry telefonokról és rendszerről
- Egykezes zongoradarab a Vivotól
- Szívós, szép és kitartó az új OnePlus óra
- Bemutatkozott a Poco X7 és X7 Pro
- Google Pixel topik
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Okosóra és okoskiegészítő topik
- Samsung Galaxy Watch5 Pro - kerek, de nem tekerek
- Felfrissítette magát a Galaxy Watch4
- Xiaomi 15T Pro - a téma nincs lezárva
Új hozzászólás Aktív témák
-
update
csendes tag
válasz
Apollo17hu
#211
üzenetére
Hmmm... köszi a segítséget!
De...
És pl 60 és 150 közé eső páros-páratlan véletlenszám?
És az igazán jó az lenne, ha... Min és Max értéket bármikor változtathassam...
Pl beviteli mező Min és beviteli mező Max, és erre a kettő közé generáljon véletlenszámot...
Ahol a min és max között nincsen kapcsolat... pl 13 és 100 vagy akármi!
(Rnd*Min)/Max vagy valami ilyesmi...
Ja... Caption működött végül így
UserForm1.Label.Caption=Cells(1,1)
Cells(1,1)-et az aktív worksheetből szedi...
-
update
csendes tag
Ja, és ez miért nem megy?
Label.Caption = Cells(1, 1)
-
update
csendes tag
Hali!
Hogy lehet azt megcsinálni VBA-ban, hogy egy adott min és max érték közé generáljon egy véleltlenszámot?
Én úgy próbáltam, hogy csináltam egy sima véletlenszámot, majd km hosszú If részekkel úgy alakítottam, hogy beleférjen min és max közé... szorztam, osztottam stb...
nincen egy egyszerűbb megoldás?
KÖSZI!
Új hozzászólás Aktív témák
- SSD-drámát jósolt egy Samsunggal kapcsolatos pletyka, de kiderült az igazság
- Sorozatok
- Bitcoin topic
- …és akkor a memóriapánik után beköszöntött a HDD-pánik
- Kuponkunyeráló
- CPU léghűtés kibeszélő
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Minden a BlackBerry telefonokról és rendszerről
- TP-LINK routerek
- Egykezes zongoradarab a Vivotól
- További aktív témák...
- 185 - Lenovo Legion Pro 7 (16IAX10H) - Intel Core U9 275HX, RTX 5080
- HP ProDesk 600 G5 i3-9100 8GB 256GB 1 év garancia
- Tablet felvásárlás!! Samsung Galaxy Tab A8, Samsung Galaxy Tab A9, Samsung Galaxy Tab S6 Lite
- Apple iPhone 13 Pro Max / 128GB / Kártyafüggetlen / 12Hó Garancia / Akku:87%
- BESZÁMÍTÁS! ASUS B650M R7 8700F 32GB DDR5 1TB SSD RTX 4070 Super 12GB NZXT H510 Cougar 700W
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest







