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

986

Ää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. Olen tosi outo....

      Päättelen palstajuttujen perusteella mitä mieltä minun kaipauksen kohde minusta on. Joskus kuvittelen tänne selkeitä tap
      Ikävä
      15
      2121

    2. Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornosta

      https://www.kymensanomat.fi/paikalliset/8081054 Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornon hallussapi
      Kotka
      84
      2058

    3. Oletko sä luovuttanut

      Mun suhteeni
      Ikävä
      101
      1367

    4. Vanhalle ukon rähjälle

      Satutit mua niin paljon kun erottiin. Oletko todella niin itsekäs että kuvittelet että huolisin sut kaiken tapahtuneen
      Ikävä
      10
      1166

    5. Hommaatko kinkkua jouluksi?

      Itse tein pakastimeen n. 3Kg:n murekkeen sienillä ja juustokuorrutuksella. Voihan se olla, että jonkun pienen, valmiin k
      Sinkut
      143
      1165

    6. Maisa on SALAKUVATTU huumepoliisinsa kanssa!

      https://www.seiska.fi/vain-seiskassa/ensimmainen-yhteiskuva-maisa-torpan-ja-poliisikullan-lahiorakkaus-roihuaa/1525663
      Kotimaiset julkkisjuorut
      79
      1122

    7. Omalääkäri hallituksen utopia?

      Suurissa kaupungeissa ja etelässä moinen onnistunee. Suuressa osassa Suomea on taas paljon keikkalääkäreitä. Mitenkäs ha
      Maailman menoa
      171
      853

    8. Aatteleppa ite!

      Jos ei oltaisikaan nyt NATOssa, olisimme puolueettomana sivustakatsojia ja elelisimme tyytyväisenä rauhassa maassamme.
      Maailman menoa
      249
      846

    9. Mitä sanoisit

      Ihastukselle, jos näkisitte?
      Tunteet
      61
      818

    10. Onko se ikä

      Alkanut haitata?
      Ikävä
      59
      811
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt