Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #4070 Fire/SOUL/CD félisten Gabcsika #4069
    Új Válasz #4070
    Ú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

    Fire/SOUL/CD

    félisten

    válasz Gabcsika #4069 üzenetére

    Hali!

    Tudom, hogy régen volt, de volt egy érdekes kérdésed a "villogó cella" témakörben.

    Munkafüzet1 - Munka1 (Code)

    Public Most_villog As Boolean

    Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    If Range("A1") = "ok" And Most_villog = False Then
    Call Szincsere
    Most_villog = True
    ElseIf Range("A1") <> "ok" And Most_villog = True Then
    Call Villogas_ki
    Most_villog = False
    End If

    End Sub

    Munkafüzet1 - Module1 (Code)

    Public Idozites As Double

    Sub Villogas_ki()
    Range("A1").Interior.ColorIndex = xlAutomatic
    Range("A1").Font.Color = RGB(0, 0, 0)
    Application.OnTime Idozites, "Szincsere", , False
    End Sub

    Sub Szincsere()
    If Range("A1").Interior.Color = RGB(255, 0, 0) Then
    Range("A1").Interior.Color = RGB(0, 255, 0)
    Range("A1").Font.Color = RGB(255, 0, 0)
    Else
    Range("A1").Interior.Color = RGB(255, 0, 0)
    Range("A1").Font.Color = RGB(0, 255, 0)
    End If
    Idozites = Now + TimeSerial(0, 0, 1)
    Application.OnTime Idozites, "Szincsere", , True
    End Sub

    Ha az A1 cellába beírod hogy "ok" akkor villog a cella háttere, meg a betűszín, egyéb esetben meg nem. Bár a VB nem az erősségem, de ez olyan jó feladat volt, hogy nem bírtam ellenállni, hogy egy kis kitérőt tegyek:DDD
    Nyílván ha szép elhalványodó, színátmenetes villogást szeretnél, akkor azért ennél több kell. Azonban egyetértek Delila_1-el, miszerint felesleges, jobb a hagyományos módszer.(ne villogjon, csak legyen más színe).

    Fire.

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