Vilkkuva solu exceliin

Anonyymi

Voiko Exceliin tehdä ehdollisen muotoilun tai vastaavan avulla, solun jossa täyttöväri tai lukema vilkkuisi?
Tarkoituksena olisi kiinnittää huomio tähän soluun, puuttuvasta lukemasta tai muusta vastaavasta syystä.

18

913

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Seuraan.
      Aina ei pelkkä punainen varoitusteksti riitä huomion kiinnittämiseksi.

      • Anonyymi

        Kannataa poistaa winkura heti!

    • kunde

      Nyt toimii alueella A1:A10, mutta helppo lisätä koodissa tarvittavia alueita tai
      soluja
      ko. taulukon moduuliin...

      Option Explicit
      Dim VilkutusSolu As Boolean
      Dim Vilkuta As Boolean

      Private Sub Worksheet_Change(ByVal Target As Excel.Range)
      Dim Solu As Range
      Dim Osoite As String

      Set Alue = Range("A1:A10")
      VilkutusSolu = False

      For Each Solu In Alue
      If Solu.Value = 0 Then
      VilkutusSolu = True
      If Len(Osoite) > 0 Then
      Osoite = Osoite & "," & Solu.Address
      Else
      Osoite = Osoite & Solu.Address
      End If
      End If
      Next

      If VilkutusSolu = True And Vilkuta = False Then
      Set Alue = Range(Osoite)
      Vilkuta = True
      AloitaVilkutus
      Else
      If VilkutusSolu = True And Vilkuta = True Then
      LopetaVilkutus
      Set Alue = Range(Osoite)
      AloitaVilkutus
      Else
      If VilkutusSolu = False And Vilkuta = True Then
      LopetaVilkutus
      Vilkuta = False
      End If
      End If
      End If
      End Sub

      tavalliseen moduuliin...

      Option Explicit
      Public Alue As Range
      Dim SeuraavaAika As Double

      Sub AloitaVilkutus()
      With Alue.Interior
      If .ColorIndex = 3 Then
      .ColorIndex = xlNone
      Else
      .ColorIndex = 3
      End If
      End With
      SeuraavaAika = Now TimeSerial(0, 0, 1)
      Application.OnTime SeuraavaAika, "AloitaVilkutus", , True
      End Sub

      Sub LopetaVilkutus()
      Alue.Interior.ColorIndex = xlNone
      Application.OnTime SeuraavaAika, "AloitaVilkutus", , False
      End Sub

      Keep EXCELing
      @Kunde

      • Anonyymi

        Ei toimi

      • kunde
        Anonyymi kirjoitti:

        Ei toimi

        Toimii varmasti, jos olet asentanut koodipätkät oikeisiin moduuleihin ohjeiden mukaan ja testannut solualuetta C3:C10..
        Vilutaa alueen soluja sekunnin välein, jos solun arvo=0.

        Keep EXCEling
        @Kunde

      • Anonyymi

        En epäillytkään etteikö "KUNDE":lla olisi tähänkin ratkaisua koodaamalla.
        Toimintaa en tosin pikaisella silmäilyllä täysin sisäistänyt mitä se vaatii soluun. Ilmeisesti joku ehto joka on tosi tai epätosi...

      • Anonyymi
        Anonyymi kirjoitti:

        En epäillytkään etteikö "KUNDE":lla olisi tähänkin ratkaisua koodaamalla.
        Toimintaa en tosin pikaisella silmäilyllä täysin sisäistänyt mitä se vaatii soluun. Ilmeisesti joku ehto joka on tosi tai epätosi...

        Nyt koodissa
        Set Alue = Range("A1:A10")
        VilkutusSolu = False

        For Each Solu In Alue
        If Solu.Value = 0 Then
        VilkutusSolu = True
        If Len(Osoite) > 0 Then
        Osoite = Osoite & "," & Solu.Address
        Else
        Osoite = Osoite & Solu.Address
        End If
        End If
        Next
        eli alueella "A1:A10" minkä tahansa SOLUN ARVO=0, niin vilkuttaa sitä 1 s välein punaisella.
        Muuttamalla aluetta (jos useita eri alueita tai sarakkeitatms) joutuu Alue koodia fiksaamaan ja värikoodin arvoa muuttamalla voi valita muita värejä (3=punainen).

        Keep EXCEling
        @Kunde

      • Anonyymi

        Menipä vaikeesti!

      • Anonyymi
        Anonyymi kirjoitti:

        Nyt koodissa
        Set Alue = Range("A1:A10")
        VilkutusSolu = False

        For Each Solu In Alue
        If Solu.Value = 0 Then
        VilkutusSolu = True
        If Len(Osoite) > 0 Then
        Osoite = Osoite & "," & Solu.Address
        Else
        Osoite = Osoite & Solu.Address
        End If
        End If
        Next
        eli alueella "A1:A10" minkä tahansa SOLUN ARVO=0, niin vilkuttaa sitä 1 s välein punaisella.
        Muuttamalla aluetta (jos useita eri alueita tai sarakkeitatms) joutuu Alue koodia fiksaamaan ja värikoodin arvoa muuttamalla voi valita muita värejä (3=punainen).

        Keep EXCEling
        @Kunde

        Joo, eli vilkuttaa alueella niitä soluja joiden arvo on nolla.

        Monikäyttöisempi olisi jos vilkutussolu/-alue, ja jos-ehtosolu (apusolu jonka arvo olisi tosi tai epätosi) olisivat erilliset.
        Voisi vilkuttaa myös epäkelpoja syötettyjä arvoja, tai tuottaa vilkkuvia varoitustekstejä.

      • kunde
        Anonyymi kirjoitti:

        Joo, eli vilkuttaa alueella niitä soluja joiden arvo on nolla.

        Monikäyttöisempi olisi jos vilkutussolu/-alue, ja jos-ehtosolu (apusolu jonka arvo olisi tosi tai epätosi) olisivat erilliset.
        Voisi vilkuttaa myös epäkelpoja syötettyjä arvoja, tai tuottaa vilkkuvia varoitustekstejä.

        Perus koodiini helppo lisätä noi esiittämäsi "lisätoiveet"

        Keep EXCELing
        @Kunde

      • Anonyymi
        kunde kirjoitti:

        Perus koodiini helppo lisätä noi esiittämäsi "lisätoiveet"

        Keep EXCELing
        @Kunde

        Helppo on tässä vähän suhteellinen käsite. 😄

      • Anonyymi
        Anonyymi kirjoitti:

        Ei toimi

        Toimii.
        Vilkuttaa punaista täyttöväriä jos solu on tyhjä tai lukuarvo on nolla.

      • Anonyymi
        kunde kirjoitti:

        Perus koodiini helppo lisätä noi esiittämäsi "lisätoiveet"

        Keep EXCELing
        @Kunde

        Raiskasin vähän Kunden hengentuotetta, nyt vilkkuva solu on A1 ja vilkutuksen ehto on solussa B1. Vilkutuskoodi on entisellään.

        Option Explicit
        Dim VilkutusSolu As Boolean
        Dim Vilkuta As Boolean

        Private Sub Worksheet_Change(ByVal Target As Excel.Range)
        Dim Solu As Range
        Dim Ehto As Range
        Dim Osoite As String

        Set Alue = Range("A1")
        Set Ehto = Range("B1")
        VilkutusSolu = False

        For Each Solu In Ehto
        If Solu.Value = 0 Then
        VilkutusSolu = True
        'If Len(Osoite) > 0 Then
        'Osoite = Osoite & "," & Solu.Address
        'Else
        'Osoite = Osoite & Solu.Address
        'End If
        End If
        Next

        If VilkutusSolu = True And Vilkuta = False Then
        'Set Alue = Range(Osoite)
        Vilkuta = True
        AloitaVilkutus
        Else
        If VilkutusSolu = True And Vilkuta = True Then
        LopetaVilkutus
        'Set Alue = Range(Osoite)
        AloitaVilkutus
        Else
        If VilkutusSolu = False And Vilkuta = True Then
        LopetaVilkutus
        Vilkuta = False
        End If
        End If
        End If
        End Sub

      • Anonyymi
        kunde kirjoitti:

        Perus koodiini helppo lisätä noi esiittämäsi "lisätoiveet"

        Keep EXCELing
        @Kunde

        On kun ensin korjaa virheet.

    • Anonyymi

      Visual BASICilla minäkin olen tehnyt paljon EXCEL-juttuja ja opetinkin erästä naissihteeriä kauan sitten.

      • Anonyymi

        Heh! Visual BASIC on ohjelmoitityökalu!

    • Anonyymi

      Libressä ainakin sellainen kuin "Functio tyyli"

    • Anonyymi

      Samallailla kuin värin vaihto mutt määritä siihen aika ja toinen väri mukaan!

    Ketjusta on poistettu 1 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Tapio Suominen on kuollut

      Urheilutoimittaja Tapio Suominen on kuollut. Suominen oli kuollessaan 60-vuotias. Selostajalegendan kuolemasta kertoo Y
      Maailman menoa
      285
      19481

    2. Tapio Suominen oli sairauden uhri

      Urheiluselostaja Tapio Suominen kuoli eilen keskiviikkona aamulla tapaturmaisesti Hattulassa. Toisen uutisen mukaan van
      Kaksisuuntainen mielialahäiriö
      96
      3825

    3. Tapio suominen

      Liian aikaisin lähdit sinua oli kiva kuunnella.
      Ikävä
      125
      2296

    4. Mitä toivot

      Tämän hetkiseen tilanteeseen?
      Ikävä
      197
      1993

    5. Sydämeni on

      varattu sinulle. Et ole minun, en ole sinun. Me on mahdottomuus. Mutta olet se joka on mielessäni ensimmäisenä kun herää
      Ikävä
      142
      1900

    6. Rannalle! Uimaan!! Rinnat paljaiksi!!!

      Järki kadonnut sekä niiltä feministeiltä, jotka vaativat saada esiintyä rinnat paljaina julkisilla uimarannoilla, kuten
      Maailman menoa
      301
      1702

    7. Minä itkin kotona kun tajusin että

      Pelkuruuteni takia kun en lähestynyt vaikka järjestit otollisen hetken ja myöhemmin huomasin lasittuneen katseesi miten
      Ikävä
      10
      1402

    8. Kok-edustaja: Yle aivopesee työntekijöitä

      "– Yle ei vain sensuroi Kyllä isä osaa-sarjaa, vaan haluaa jaksojen määrää manipuloimalla HÄVITTÄÄ ”ongelman” todellisuu
      Maailman menoa
      92
      1385

    9. Muistutus t-Naiselle.

      Olet ilkeä ja narsistinen k-pää. Annat itsestäsi kiltin kuvan ulospäin kelataksesi ihmiset ansaan. Sitten päsmäröit, hau
      Ikävä
      150
      1197

    10. Ylen jälkiviisaat estotonta Kamala Harris suitsutusta

      Kolme samanmielistä naikkosta hehkutti Kamala Harrisia ja haukkui Trumpia estottomasti. Nyt oli tarkoituksella valittu
      Maailman menoa
      245
      1103
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt