Skorektnenie IF podmienky v Makru Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

tsibee
nováček
Příspěvky: 34
Registrován: duben 18
Pohlaví: Muž
Stav:
Offline

Skorektnenie IF podmienky v Makru  Vyřešeno

Příspěvekod tsibee » 16 kvě 2018 21:43

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?
Přílohy
prekazky .xlsm
(18.84 KiB) Staženo 18 x
Naposledy upravil(a) tsibee dne 16 kvě 2018 23:10, celkem upraveno 1 x.

Reklama
Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 162
Registrován: září 17
Pohlaví: Muž
Stav:
Offline

Re: Skorektnenie IF podmienky v Makru

Příspěvekod Grimm » 16 kvě 2018 22:55

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

tsibee
nováček
Příspěvky: 34
Registrován: duben 18
Pohlaví: Muž
Stav:
Offline

Re: Skorektnenie IF podmienky v Makru

Příspěvekod tsibee » 16 kvě 2018 23:10

EE, to asi nebude ono :) .

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Skorektnenie IF podmienky v Makru

Příspěvekod elninoslov » 17 kvě 2018 01:26

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

tsibee
nováček
Příspěvky: 34
Registrován: duben 18
Pohlaví: Muž
Stav:
Offline

Re: Skorektnenie IF podmienky v Makru

Příspěvekod tsibee » 17 kvě 2018 16:09

Ď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.

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Skorektnenie IF podmienky v Makru

Příspěvekod elninoslov » 17 kvě 2018 19:38

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

tsibee
nováček
Příspěvky: 34
Registrován: duben 18
Pohlaví: Muž
Stav:
Offline

Re: Skorektnenie IF podmienky v Makru

Příspěvekod tsibee » 17 kvě 2018 21:03

Geniálne. Ďakujem. :)


Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů