UserForm - praktické příklady - Excel

Úvodem - kódy pro UserForm

Cílem článku je poskytnout kódy pro práci s UserForm. Co jsem potřeboval při řešení svých Excelovských aplikací ve VBA.

Hodnota do buňky

Hodnotu z TextBoxu předá do příslušné buňky.

Range("B10").Value = TextBox1.Text Range("B11").Value = TextBox1.Value

Automatické uzavření formuláře

Jak uzavřít automaticky formulář po vložení hodnoty do ComboBox (Výběrové pole).

Private Sub ComboBox1_Change() Unload UserForm1 MsgBox ("Pravě byl odstraněn formulář :)") End Sub

Automatický výpočet

Jak provést automatický výpočet ve formuláři. Využívá metodu Change.

Dim MojeCislo(1 To 2) As Double TextBox3.Value = TextBox1.Value + TextBox2.Value hodnota1 = TextBox1.Value hodnota4 = hodnota1 + hodnota2 TextBox3.Value = TextBox1.Value + TextBox2.Value TextBox4.Value = TextBox1.Text + TextBox2.Text MojeCislo(1) = TextBox1.Value MojeCislo(2) = TextBox2.Value TextBox5.Value = MojeCislo(1) + MojeCislo(2)

Je zadáno číslo?

Zkontroluje zda je zadáno číslo. Pokud ne obdrží uživatel informaci (dialogové okno).

Private Sub TextBox2_Change() If Not IsNumeric(TextBox2.Value) And TextBox2.Value <> vbNullString Then MsgBox "Není číslo." TextBox2.Value = vbNullString End If End Sub

Úprava kódu pokud se kontroluje více textových polí (textBox)

Private Sub OnlyNumbers() If TypeName(Me.ActiveControl) = "TextBox" Then With Me.ActiveControl If Not IsNumeric(.Value) And .Value <> vbNullString Then MsgBox "Tohle není číslo! :)" .Value = vbNullString End If End With End If End Sub Private Sub TextBox1_Change() OnlyNumbers End Sub Private Sub TextBox3_Change() OnlyNumbers End Sub

Je zadáno číslo?

Další příklady v přípravě, případně se pokusím zodpovědět případné dotazy.

Článek byl aktualizován: 19.09.2020 11:06

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). 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 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře