PC-HELP.CZ

Dobrý den,rád bych znovu požádal zkušenější kolegy o pomoc.
Ve formuláři bych opět potřeboval výpočet,ale tentokrát trochu jinak.Potřeboval bych toto:TextBox27 + ComboBox2 = Textbox31.Nedaří se mi to :-(

Děkuji za případnou pomoc.

Kód: Vybrat vše

Private Sub ComboBox2_Change()
Dim datum1 As Date
Dim datum2 As Date
Dim i As Byte

datum1 = TextBox27.Value

'jake poradi je v combobox2
Select Case ComboBox2.ListIndex
Case 0: i = 7
Case 1: i = 14
Case Nothing: i = 0
End Select

'zvysim datum podle i
datum2 = DateAdd("d", i, datum1)

TextBox31.Value = Format(CDate(datum2), "dd/mm/yyyy")
End Sub

Nezajímá mě, zda je to 1 týden nebo 1 papoušek. Důležité je pořadí vybrané položky v ComboBox2, kdy 0 je první položka = 1 týden, 1 = 2 týdny, atd. Pokud budou přibývat, stačí jen doplnit do Case příslušné pořadí a jemu odpovídající číslo i.

Opět nezbývá než poděkovat..ten popis mi pomohl k pochopení.Ještě jednou dík.

PC-HELP.CZ

UserForm-výpočet

UserForm-výpočet

Re: UserForm-výpočet Vyřešeno

Re: UserForm-výpočet