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

1110

Ää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. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      146
      2912

    2. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      367
      2047

    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      40
      1777

    4. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      37
      1742

    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      32
      1421

    6. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      93
      1221

    7. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      54
      1173

    8. Muutama kysymys ja huomio hindulaisesta kulttuurista.

      Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul
      Hindulaisuus
      328
      965

    9. Jumala puhui minulle

      Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles
      Ikävä
      110
      948

    10. Annan meille mahdollisuuden

      Olen avoimin mielin ja katson miten asiat etenevät. Mutta tällä kertaa sun on tehtävä eka siirto.Sen jälkeen olen täysil
      Ikävä
      53
      782
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt