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ä.
Vilkkuva solu exceliin
Anonyymi
18
1096
Vastaukset
- 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
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
@KundeJoo, 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
@KundeHelppo 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
@KundeRaiskasin 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
@KundeOn 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
Poliisi: Kymmenhenkinen pohjalaisperhe ollut vuoden kateissa kansainvälinen etsintäkuulutus Poliis
Poliisi: Kymmenhenkinen pohjalaisperhe ollut vuoden kateissa – kansainvälinen etsintäkuulutus Poliisi pyytää yleisön apu2712300En kadu sitä, että kohtasin hänet
mutta kadun sitä, että aloin kirjoittamaan tänne palstalle. Jollain tasolla se saa vain asiat enemmän solmuun ja tekee n831011Oisko mitenkään mahdollisesti ihan pikkuisen ikävä..
...edes ihan pikkuisen pikkuisen ikävä sulla mua??.. Että miettisit vaikka vähän missähän se nyt on ja oiskohan hauska n55979- 108970
Noniin rakas
Annetaanko pikkuhiljaa jo olla, niin ehkä säilyy vienot hymyt kohdatessa. En edelleenkään halua sulle tai kenellekään mi81921- 44861
Au pair -työ Thaimaassa herättää kiivasta keskustelua somessa: "4cm torakoita, huumeita, tauteja..."
Au pairit -sarjan uusi kausi herättää keskustelua Suomi24 Keskustelupalvelussa. Mielipiteitä ladataan puolesta ja vastaa21838Helena Koivu : Ja kohta mennään taas
Kohta kohtalon päivä lähestyy kuinka käy Helena Koivulle ? Kenen puolella olet? Jos vastauksesi on Helenan niin voisi67736- 33687
Tässä totuus jälleensyntymisestä - voit yllättyä
Jumalasta syntyminen Raamatussa ei tässä Joh. 3:3. ole alkukielen mukaan ollenkaan sanaa uudestisyntyminen, vaan pelkä299684