Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #16761 Delila_1 veterán m.zmrzlina #16758
    Új Válasz #16761
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Delila_1

    veterán

    válasz m.zmrzlina #16758 üzenetére

    Kibővítettem arra az esetre, ha a felhasználó össze-vissza kattintgat. Megeshet, hogy először rákattint a nincskutyára – ezzel felszabadítja a macsekos részt –, utána rájön, hogy tegnap kapott egy ebet. Ekkor újra le kell tiltani a macskákat. A "Figy" egy címke, ide jön a figyelmeztetés.

    A start marad, ahogy volt.

    Private Sub Vankutya_AfterUpdate()
    If VanKutya = True And DbKutya = "" Then
    DbKutya.Enabled = True
    VanM.Enabled = False
    NincsM.Enabled = False
    DbM.Enabled = False
    Figy = "Írd be a darabszámot!"
    Else
    DbKutya.Enabled = False
    Figy = ""
    End If
    End Sub

    Private Sub NincsKutya_AfterUpdate()
    If NincsKutya = True Then
    DbKutya.Enabled = False
    VanM.Enabled = True
    NincsM.Enabled = True
    DbM.Enabled = True
    Figy = ""
    Else
    DbKutya.Enabled = True
    Figy = "Írd be a darabszámot!"
    End If
    End Sub

    Private Sub DbKutya_AfterUpdate()
    If DbKutya > "" Then
    VanM.Enabled = True
    NincsM.Enabled = True
    DbM.Enabled = True
    Figy = ""
    Else
    VanM.Enabled = False
    NincsM.Enabled = False
    DbM.Enabled = False
    Figy = "Írd be a darabszámot!"
    End If
    End Sub

  • #16759 Delila_1 veterán m.zmrzlina #16758
    Új Válasz #16759
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Delila_1

    veterán

    válasz m.zmrzlina #16758 üzenetére

    Remélem, a nevekből kitalálod, melyik mit takar.
    A form indításánál a második blokk tagjainak az elérését letiltom, és csak akkor szabadítom fel, ha vagy nincs kutya, vagy van, és a darabszámot megadtad.

    Sub start()
    UserForm1.VanM.Enabled = False
    UserForm1.NincsM.Enabled = False
    UserForm1.DbM.Enabled = False

    UserForm1.Show False
    End Sub

    Private Sub Vankutya_AfterUpdate()
    If VanKutya = True Then
    DbKutya.Enabled = True
    Else
    DbKutya.Enabled = False
    End If
    End Sub

    Private Sub NincsKutya_AfterUpdate()
    If NincsKutya = True Then
    DbKutya.Enabled = False
    VanM.Enabled = True
    NincsM.Enabled = True
    DbM.Enabled = True
    Else
    DbKutya.Enabled = True
    End If
    End Sub

    Private Sub DbKutya_AfterUpdate()
    VanM.Enabled = True
    NincsM.Enabled = True
    DbM.Enabled = True
    End Sub

Új hozzászólás Aktív témák