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
1184
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
Mitä aiot tehdä uudenvuoden aattona
Mitä olet suunnitellut tekeväsi uudenvuoden aattona ja aiotko ensi vuonna tehdä jotain muutoksia tai uudenvuoden lupauks1523446Marin sitä, Marin tätä, yhyy yhyy, persut jaksaa vollottaa
On nuo persut kyllä surkeaa porukkaa. Edelleen itkevät jonkun Marinin perään, vaikka itse ovat tuhonneet Suomen kansan t512422- 1161220
Muistattekos kuinka persujen Salainen Akentti kävi Putinin leirillä
Hakemassa jamesbondimaista vakoiluoppia paikan päällä Venäjällä? Siitä ei edes Suomea suojeleva viranomainen saanut puhu131203Ikävä sinua..
Kauan on aikaa kulunut ja asioita tapahtunut. Mutta sinä M-ies olet edelleen vain mielessäni. En tiedä loinko sinusta va101109Väestönsiirtoa itään?
Ano "the Russo" Turtiainen sai poliittisen turvapaikan Venäjältä. Pian lähtee varmaan Nazima Nuzima ja Kiljusen väki per49948- 46894
Vuoden luetuimmat: Mikä on Pelle Miljoonan taiteilijaeläkkeen suuruus?
Pelle Miljoonan eläkkeen suuruus kiinnosti lukijoita tänä vuonna. Artikkeli on Suomi24 Viihteen luetuimpia juttuja v. 2019890- 40795
Riikka Purra sanoo, että sietokykyni vittumaisiin ihmisiin alkaa olla lopussa.
https://www.iltalehti.fi/politiikka/a/be8f784d-fa24-44d6-b59a-b9b83b629b28 Riikka Purra sanoo medialle suorat sanat vitt202721