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

1150

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

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

      • Anonyymi

        Kannataa poistaa winkura heti!


    • 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ä.


      • 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ä.

    Luetuimmat keskustelut

    1. Niin surullinen

      onnettomuus taas. Voimia ihan kaikille läheisille,kavereille ja kouluun 🙏
      Lapua
      196
      4852
    2. MIksi suurin osa persuista on alkoholisteja?

      Tätä jäin pohdiskelemaan....
      Maailman menoa
      37
      3352
    3. 33
      2877
    4. Kehutaan vaihteeksi Perussuomalaisia

      Perussuomalaiset ovat olleet melkoisen lokakampanjoinnin kohteena, vaikka ovat saaneet paljon hyvää aikaiseksi. Nyt on
      Maailman menoa
      141
      2758
    5. Paloautoko se oli kolarissa Juntusrannan risteyksessä?

      Oli kuva paloautosta nettijutussa.
      Suomussalmi
      25
      2408
    6. SDP ylivoimainen ykkönen

      En ole koskaan viitsinyt käydä äänestämässä, mutta nyt SDP:n etumatka on niin kutkuttava, että pakkohan se on vaivautua.
      Maailman menoa
      68
      2257
    7. Tiesitkö? Johannes Brotheruksen ex-isäpuoli on kuin onkin Mikko Kuustonen - Tästä on kyse!

      Tiesitkö? Ja hehän on kuin kaksi marjaa... Johannes Brotherus on KUUMAA-yhtyeen jäsen ja tänä syksynä mukana Vain elämää
      Suomalaiset julkkikset
      19
      2098
    8. Mitä tapahtuu?

      Mitä säpäkän risteyksessä on tapahtunut kun poliiseja, ambulansseja ja kopteri paikalla?
      Outokumpu
      31
      1800
    9. Roiskeläpät takaisin niin alkaa lasit kestämään

      "Tuulilaseja hajottava talvi-ilmiö on ehkä ratkennut" Tämän päivän autoissa kun on esimerkiksi vanhempaa autokalustoa s
      Yleistä autoilusta
      41
      1742
    10. Polttomoottoriauto on köyhän merkki

      Kun ei ole varaa ostaa sähköautoa, niin joutuu köyhän autoa käyttämään.
      Maailman menoa
      80
      1414
    Aihe