Excel VBA-Userform (09/10 Vežba 2 “DVD Klub”)
U ovom tutorialu smo smo dobili Email od jednog DVD Kluba, koji želi da popunjava narudžbine kroz Excel VBA Userform-u, ali da može da se unese maksimalno 10 žanrova od nekih filmova, takodje su nam dali lisu žanrova koju oni poseduju. Evo ga Email:
Žanrovi:
Akcija
Avantura
Komedija
Drama
Fantazija
Horor
Misterija
Romantika
Triler
Maximum 10 Filmova
Hvala 🙂
Kod koji je korišćen u ovom tutorialu je:
Dim Zanr As String
Dim Komada As Integer
Dim Cell As Range
Private Sub UserForm_Initialize()
MsgBox "Dobrodosli u DVD Club"
End Sub
Private Sub btn_Sacuvaj_Click()
Set Cell = Sheet1.Range("C5")
Zanr = cb_Zanr.Value
Komada = Val(tb_Kom.Text)
If Zanr = "" Then
MsgBox "Morate uneti zanr filma!"
Exit Sub
End If
If Komada = 0 Then
MsgBox "Morate uneti broj komada filmova!"
Exit Sub
End If
If Komada > 10 Then
MsgBox "Maximalno je 10 filmova!"
Exit Sub
End If
Cell = Zanr & " KOM: " & Komada
MsgBox "Uspesno ste uneli " & Komada & " zanra: " & Zanr
End Sub
Private Sub btn_Exit_Click()
Unload Me
End Sub
Excel dokument iz ovog videa možete preuzeti na linku ispod.