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
1242
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
Kansalla on oikeus tietää miksi persut pettävät
Koko kulunut hallituskausi on kysytty persuilta, minkä vuoksi he ovat pettäneet käytännössä jokaisen vaalilupauksen, ain1828938Venäjän armeijan evp-upseeri: Armeija surkeassa tilassa, jonka läpäisee kaiken kattava
valehtelu. Venäläiset alkaneet pohtia julkisesti maan todellisia tappioita. Z-bloggari ja 3. luokan kapteeni (evp.) Mak1443312Kunnissa - siis myös kaupungeissa - viihtyvät ovat kommunisteja
Nehän ovat osa yhteiskunnan tuottamia instansseja, joista on vain haittaa veronmaksajille ja yrittäjlle, kuten ollaan ve32260- 1702212
Kansalla on oikeus tietää mikä on SDP:n talousohjelma jolla maan talous
saadaan nousuun? Miksi puolue piilottelee sitä, vai eikö sitä ole? Tähän asti olemme vaan saaneet kuulla hallituksen ha1011856Ammattiliitto 900 euroa/vuosi - Työttömyyskassa 72 euroa/vuosi
Ammattiliitosta eroamalla voi säästää jopa 800 euroa vuodessa. Mitä enemmän tienaat, sitä enemmän maksat liitolle. Esim1741796Miten voit olla niin tyhmä
että et tajunnut että sua vedätettiin? Tietäisitpä miten hyvät naurut on saatu. Naiselle1801667- 1391341
SDP todellisuudessa pahin pettäjä koskaan - se syyllistyi valtiopetokseen 1918
kun aloittivat kapinan maan laillista valtiojärjestystä vastaan. Punaiset saivat tukea Neuvosto-Venäjän bolsevikeilta,271290Iski taas katumus kun en jutellut sun kanssa
Silloin kun halusit. Mutta en enää voi sille mitään, en saa muutettua sitä hetkeä..1151064