Stránka 1 z 1
Skorektnenie IF podmienky v Makru Vyřešeno
Napsal: 16 kvě 2018 21:43
od tsibee
Ahojte :),
opäť idem po radu/pomoc.
Snažím sa nejak n.u. nejak spojazdniť t.j. ak comboboxe je výbratá možnosť "ost.plat.prek." a rozdiel medzi TextBoxom 2 a TextBoxom 1 je väčší ako 07:45 hod., tak hodí Msg ...
If ComboBox1.Text = "ost.plat.prek." And (TextBox2.Value - TextBox1.Value > "07:45") Then
MsgBox = "nepovolene"
Skúsil by niekto?
Re: Skorektnenie IF podmienky v Makru
Napsal: 16 kvě 2018 22:55
od Grimm
Vůbec sem to netestoval je to střela od boku.
If ComboBox1.Text = "ost.plat.prek." And CDate(CDate(TextBox2.Value) - CDate(TextBox1.Value)) > CDate("07:45") Then
Re: Skorektnenie IF podmienky v Makru
Napsal: 16 kvě 2018 23:10
od tsibee
EE, to asi nebude ono :) .
Re: Skorektnenie IF podmienky v Makru
Napsal: 17 kvě 2018 01:26
od elninoslov
Neviem, o čo Vám tam presne ide, ale toto splní tú Vašu podmienku:
Kód: Vybrat vše
If ComboBox1.Text = "ost.plat.prek." And IsDate(TextBox2.Text) And IsDate(TextBox1.Text) Then
If TimeValue(TextBox2.Text) - TimeValue(TextBox1.Text) > TimeValue("07:45") Then MsgBox "nepovoleny rozsah"
End If
Re: Skorektnenie IF podmienky v Makru
Napsal: 17 kvě 2018 16:09
od tsibee
Ďakujem, super :).
A je možné tiež napr. niečo také, že ak Combox1.Text = PN, tak do textBox1 a 2 nepustí zapisovať údaj?
Vopred vďaka.
Re: Skorektnenie IF podmienky v Makru
Napsal: 17 kvě 2018 19:38
od elninoslov
Kód: Vybrat vše
Private Sub ComboBox1_Change()
If ComboBox1.Text = "PN" Then
TextBox1.Enabled = False: TextBox2.Enabled = False
Else
TextBox1.Enabled = True: TextBox2.Enabled = True
End If
End Sub
Re: Skorektnenie IF podmienky v Makru
Napsal: 17 kvě 2018 21:03
od tsibee
Geniálne. Ďakujem. :)