Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
Požadavek na generátor náhodných čísel ve formuláři VBA.
Cílem článku je ukázat jak pomocí formuláře ve VBA vytvořit generátor náhodných čísel. Požadavek navíc byl, aby uživatel mohl zadat rozsah generovaných čísel (minimální a maximální) a počet, který se vyplní požadovaný počet náhodných čísel.
Vytvořit formulář s třemi TextBoxy a jedním tlačítkem (pro zpracování). Formulář může vypadat například takto:
Doplníme příslušný kód:
PocetNahodnychCisel = TextBox3.Value
For i = 1 To PocetNahodnychCisel
HodnotaLow = TextBox1.Value
HodnotaHigh = TextBox2.Value
NahodneCislo = (HodnotaHigh - HodnotaLow) * Rnd() + HodnotaLow
Worksheets("List1").Cells(i + 5, 1) = NahodneCislo
Next i
A můžete zkoušet ...
Soubor
generátor náhodných čísel
ke stažení zdarma. Soubor využívá makra.
Je možno doplnit o kontrolu zadávaných dat, graficky upravit formuláře a mnoho dalšího záleží na vašich napadech
Článek byl aktualizován: 19.09.2020 11:02
Pomohl vám článek? Vyřešili jste problém? Můžete mě podpořit zakoupení tabulky (samozdřejmě čokoládové), když kafe nepiji ;) Odkaz na zakoupení čokolády. Za veškerou podporu vám děkuji a samozdřejmě jí využiji do zdokonalování a rozšířování webu.
Případně přidejte odkaz na vaši oblíbenou sociální síť, případně využijste hashtag #JakNaExcel .
Děkuji za váš čas a doufám, že jste nalezli odpověď na svůj problém.
Narazili jste v článku na nejasnost, chybu? Máte tip na vylepšení nebo doplnění článku? Budu rád pokud se zmínite v komentářích.
Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.
|
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
|
LinkedIn... |
Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2025 |