Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte aplikáciu Microsoft Excel .
2
Kliknite na " Nástroje " , " Makro " a potom " Visual Basic " . Tým sa otvorí editor VBA .
3
Kliknite na " Vložiť " a " modul " . Teraz by ste mali mať prázdne modulu kódu
4
Zadajte alebo skopírujte a vložte nasledujúci kód v module kódu : .
Public Sub TestInputBoxFunction ( )
Dim strFirstName As String Dim
strLastName As String
" Get meno a priezvisko užívateľa
strFirstName = InputBox ( Prompt : . = " . Zadajte meno " , _
Title : = " Full Name Demo " )
strLastName = InputBox ( Prompt : = " . Zadajte meno " , _
Title : = " Full Name Demo " )
' Zobraziť celý názov iba vtedy , ak obe vstupné polia majú texte v nich
Ak strFirstName = " . " Alebo strLastName = " " Tak
MsgBox Prompt : = " Nezadali ste všetky požadované informácie . "
Else MsgBox Prompt
: = " Zadali ste " a strFirstName & " " & _
strLastName & " " . Názov : = " Full Name Demo "
End If
End Sub