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: 30
Registrován: duben 18
Pohlaví: Muž

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?
Nemáte oprávnění prohlížet přiložené soubory.
Naposledy upravil(a) tsibee dne 16 kvě 2018 23:10, celkem upraveno 1 x.



Reklama
Uživatelský avatar
Grimm
nováček
Příspěvky: 45
Registrován: září 17
Pohlaví: Muž

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: 30
Registrován: duben 18
Pohlaví: Muž

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 1.5
Level 1.5
Příspěvky: 143
Registrován: červen 13
Pohlaví: Muž

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: 30
Registrován: duben 18
Pohlaví: Muž

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 1.5
Level 1.5
Příspěvky: 143
Registrován: červen 13
Pohlaví: Muž

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: 30
Registrován: duben 18
Pohlaví: Muž

Re: Skorektnenie IF podmienky v Makru

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

Geniálne. Ďakujem. :)


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • skorektnenie riadku VBA
    od tsibee » 04 čer 2018 13:58 » v Kancelářské balíky
    14
    795
    od tsibee
    08 čer 2018 13:32
  • skorektnenie vzorca v Excel (OR/IF/XOR/IF)
    od tsibee » 02 čer 2018 09:53 » v Kancelářské balíky
    2
    402
    od tsibee
    03 čer 2018 14:18
  • VLoopUP VBA skorektnenie príkazu
    od tsibee » 16 kvě 2018 14:17 » v Kancelářské balíky
    3
    342
    od tsibee
    16 kvě 2018 17:10

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 0 hostů