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
1304
Vastaukset 18
- 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
Riikka Purra on mukana Suomen huutokauppakeisari -sarjassa
Suomen huutokauppakeisari on tavallisten suomalaisten ohjelma. Sarjan suosiosta kertoo se, että nyt alkaa jo 19. kausi t1251284Kuuleppas
ensimmäiset naissuhteet toimii miehelle eräänlaisena oppikouluna, mutta hän ei välttämättä itse ymmärrä oppineensa mitää250960Paljonko on etäisyytesi kiinnostavaan naiseen km?
Kaipailen tärkeää miestä ja pohdin hänen ajatuksiaan... ❤️89959On meillä harvinaisen törkeä valtuuston puheenjohtaja
Ja tyhmä! Kannattaisi googlettaa "julkisuuslaki" ja nojata siihen vasta sitten. Samalla voisi googlettaa muiden kuntien75777- 54754
Olet mieleni päällä edelleen, J
En voi sille mitään. Ja olen yrittänyt voida, monen monta kertaa. Miten jäinkin näin kiinni sinuun... 😞34672- 66667
- 46640
Oletko miettinyt
Mikä minusta tekee sinulle niin erityisen? Onko se samanlaiset lapsuusmaisemat? Työpaikan liian pitkät katseet? Selvittä30585Mikko Leppilampi loi TTK:ssa ankaran tavan - Jatkaako Veronica Verho haastavaa perinnettä?
Suorien lähetysten juontaminen vaatii rautaista ammattitaitoa ja kovaa työtä. Tanssii Tähtien Kanssa -ohjelmassa on näh30577Mulla ei ole Suomessa enää mitään
4 vuotta joutuu asumaan henkisessä vankilassa. Sitten voi muuttaa takaisin ulkomaille.159566- 40566
Provider miehistä..
Tietyt miehet puhuvat ilkeästi naisista, jotka haluavat elää miehen tuloilla. Eikö? Mutta miksi tietyt miehet siitä pah183557Miksi älyllinen ponnistelu ei ole kaikille ihanaa?
Auttakaa minua, en ymmärrä. 🥵 Miten on mahdollista, että joku ei pidä pähkäilystä ja älyllisestä ponnistelusta? Minus97509- 200488
Miten tehdään Todellavaikeeta hulluksi?
Tässä on nainen, jolla on korkea vaatimustaso! Todellavaikeeta voisi lukea tämän ja kiehua kateudessaan. 🤭 "[Etunimi91458Oulaisten kaupunki/ Honkamajan kuntolenkit
Mikä ihme riivaa Oulaisten kaupunkia,kun honkamajan kuntopolut jääneet koko kesältä heinät ja pajut niittämättä? Kenelle17447Olet oikeasti paras
Mies, joka on kohdalleni sattunut. Oikeastaan liian hyvä, jos rehellisiä ollaan. Sinun paikkaasi ei kukaan vie, vaikka e27446- 34438
Paula hakenut rovaniemelle
Ei vissiin seurakunnan hommat ollutkaan mieleen vai olisiko kenties joku muu syy?19432