Evo jednog malog primera koji ce ti pomoci. Dodao sam i Calendar kontrolu da bi upotpunio izbor datuma.
Kod koji pri otvaranju forme upisuje aktuelni datum u textbox u odgovarajucem formatu i popunjava
Combobox sa dve opcije 8% i 18%.
Code:
Private Sub UserForm_Activate()
TextBox1.Text = Format(Date, "dd.mm.yyyy.")
ComboBox1.AddItem "8%"
ComboBox1.AddItem "18%"
End Sub
Dodao sam i Calendar kontrolu preko Tools/Additional Control (u mom slucaju ver 12)
Evo i njenog koda koji ce odabrani datum prepisati u Textbox
Code:
Private Sub Calendar1_Click()
TextBox1.Text = Format(Calendar1.Value, "dd.mm.yyyy.")
End Sub
I na kraju za Combobox sam promenio osobinu Matchrequired na True koja uz Style 2-DropDown
sprecava da kucas bilo sta vec da biras iz padajuce liste. Zapravo uz odabrano MatchEntry by first letter
ako otkucas 8 dobices 8% a cim pritisnes broj 1 dobices 18%
Eto, tek kao primer.
Pozdrav