Saako excelin jotenkin värjäämään aina valitun solun koko rivin siniseksi. Kun muuttaa riviä tulisi väritys poistua.
Avittakaa
Avittakaa
Valittu rivi
riviväri
91194
0Äänestä
Muut lukivat myös
Luetuimmat keskustelut
- Älä unohda minuaNainen ethän unohda minua. Asiat olisivat voineet mennä toisin, olisi vain pitänyt uskaltaa lähestyä sinua kun annoit siihen mahdollisuuden. Olen pettynyt itseeni, ja se kyllä närästää. Naiselle Mieheltä
- Nyt on nytTurha miettiä menneitä tapahtumia. Niitä ei saa tekemättömäksi. Tärkeintä on mitä tekee nyt ja tulevaisuudessa. Korjausliikkeetkin voi tehdä jos niihin tuntee tarvetta. Paluu tulevaisuuteenkin voi olla mahdollinen jos v…
- Eläkeikä nousee 70 vuoteen. Joudunko palaamaan työelämään?Nyt se on sitten päätetty, että eläkeikä Suomessa nostetaan 70 vuoteen. https://www.is.fi/politiikka/art-2000012324133.html Pääsin 67 vuotiaana eläkkeelle viime syksynä. Tarkoittaakohan tämä, että joudun palaamaan takai…
- Kadutko mies?Silloin kuin vielä yritin lähestyä, etkä tarttunut siihen. Asioista pitäisi voida aina keskustella.
- Hyvää huomentaEräälle Naiselle ❤️🩹
- Empaattiset ihmisetOnko empaattiset ihmiset, etenkin naiset antavaisempia, kun ns. tavikset? Kaverin puolesta kysyn Oisko niinku mahkui?
- Tuntuu kuin olisin vaimosiSe on erikoista se.
- Haluatko ettäUnohdetaan toisemme?
- Onko tällainen kuvio teistä okOnko tällainen kuvio teidän mielestänne ihan normaali ja hyväksyttävä? Nainen seurustelee miehen kanssa, mutta pitää samaan aikaan läheistä yhteyttä toiseen mieheen kertomatta tälle toiselle, että on parisuhteessa. Tämä…
- Jos haluat viestin...Olen vielä tämän illan palstalla. Laita halutessasi vinkki, sinä komea keski-ikäinen mies 😗
- Pitäisikö Vantaa liittää Helsinkiin.Mitä mieltä olette asiasta?
- Nyt kun kaikki on ohiToivon, että sulla menee hyvin ja pystyisin sinut kokonaan unohtamaan. Joskus on vaikeita hetkiä ja olen tosi pahoillani, miten sinua loukkasin ja loukkaan yhä. Se täytyy saada loppumaan.
- Moi kulta😍Eikös se ollut marraskuuta kun se meidän "flirttailu" alkoi silloin vuosia sitten? tarkoitan lähinnä niitä pitkiä katseita 🤩☺️ Kohta on siis maata mullistavien katseiden vuosipäivä 😘🤭
- TTK-juontaja Veronica Verho lataa suorat sanat tatuointien arvostelijoille: "Mä toivoisin, että..."Veronica Verho juontaa Tanssii Tähtien Kanssa -ohjelmaa yhdessä Ernest Lawsonin kanssa. Yksi puhuttaneimmista aiheista on ollut, miten suosikkijuontajan näyttävät tatuoinnit sopivat ohjelman pukuohjeistukseen ja tullaa…
- Sut tahtoisinSinä senkin kusimutteri menit ja katkaisit kaiken yhteyden minuun. Tajuan nyt, että meidän roolit vaihtuivat ja sinä projektoit omia pelkojasi minuun. Anna minun välittää sinusta, älä työnnä mua pois. En oo vaatinut sul…
- Niin haluaisin sut nähdä ja jutella!🙂
- Nyt sinä siellä pohjoisessaNainen siellä laita viesti!
- Tunnut niinKaukaiselta jo.
- Perussuomalaiset nostamassa eläkeiän 70 vuoteenRiikka Purran johtama valtiovarainministeriö haluaa nostaa eläkeiän 70 vuoteen ja taloutta sopeutettaisiin ensi vaalikaudella 8–11 miljardilla eurolla. Perussuomalaisten johtama ministeriö ilmeisesti arvelee, että seits…
- Et nosta minua ylösOk ei se mitään. Vajoan syvempiin vesiin💔
Vastaukset 9
Vanhimmat
VBA-osastolle menee. Ehkä jollain Worksheet_SelectionChange(ByVal Target As Range) -tyyli saattaisi toimia? Olisko tuosta linkistä apua? http://excel.tips.net/T003070_Mouse_Click_Event_in_VBA.html
Sitten vaan
ActiveCell.EntireRow.Select
Selection.Interior.ColorIndex = sininen (arvo)
jotain tommosta.
Edellinen selktioni pitäisi tietty pitää jemmassa, että sen värin saa muutettua alkuperäiseksi.
Private värjätty As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If värjätty Then Cells.FormatConditions(1).Delete
r = Target.Row
With Range(r & ":" & r)
.FormatConditions.Add Type:=xlExpression, Formula1:="=TRUE"
.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
.FormatConditions(1).Interior.Color = RGB(200, 256, 200)
End With
värjätty = True
End Sub
Pieni korjaus. Kun tuon yllä olevan sisältävän tiedoston tallentaa, sillä hetkellä valittu rivin ehdollinen muotoilu tallentuu ja rivi on "pysyvästi" vihreä seuraavalla kerralla tiedostoa avattaessa. Sen takia siirretään muuttujan "värjätty" esittely sheetin modulista ohjelmamoduliin (Module1 tms.) muodossa :
Public värjätty As Boolean
'
Sen lisäksi ThisWorkbook moduliin tulee seuraava makro, joka poistaa värjäyksen ennen talletusta. Mahdolliset omat muotoilut ja värjäykset säilyvät:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If värjätty Then Cells.FormatConditions(1).Delete
End Sub
Ja sitten vielä: Jotta talletuksen jälkeen jatkettaessa ei tuhota mahdollisia muita ehdollisia muotoiluja, ennen End Subia pitää laittaa rivi:
värjätty = False
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Cells.Interior.ColorIndex = 0
Target.EntireRow.Interior.ColorIndex = 8
' jos haluat myös sarakkeen korostuvan poista allaolevalta riviltä hipsu
'Target.EntireColumn.Interior.ColorIndex = 8
End Sub
Keep EXCELing
@Kunde
jos muotoiluja soluissa ja ne halutaan säilyttää,niin silloin ...
1. Lisää Nimi esim. Rivinumero ja sille viitaus =0
2. Lisää solualueelle tai vaihtoehtoisesti koko taulukolle haluamasi solumuotoilu ja sille ehto
=(RIVI()=Rivinumero )
ko taulukon moduuliin...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Names("Rivinumero").RefersTo = "=" & Target.Row
End Sub
Keep EXCELing
@Kunde
Tuo vaatii vähän rautalankaa.
1. Valikosta Kaavat/Nimien hallinta/Uusi...
Nimi= Rivinumero
Viittaus=0 ja Ok ja Sulje
2. Valitse solualue tai koko taulukko ja tee ehdollinen oma muotoilu. Kaavana käytä
=(RIVI()=Rivinumero ) ja määrittele muotoilut...
3. Kopioi postaamani koodinpätkä. Alhaalta tilariviltä klikkaa taulukon nimeä hiiren oikealla ja valikosta valitse Näytä koodi. Liitä oikealla olevaan valkeaan tilaan koodi. Tallenna työkirja ja naati!
Keep EXCELing
@Kunde
Varmaan moni ihmettelee tota koodiani ja sen logiikkaa...
Excelissä ehdollinen muotoilu priorisoi solussa olevat "normaalit" muotoilut ja sitä käytetään hyväksi. Koodi muuttaa Rivinumeron arvon aina aktiivisen solun rivinumeroksi ja jos solun ehdollinen muotoilu =(RIVI()=Rivinumero ) toteutuu, se ylikirjoittaa solussa olevan normimuotoilun ehdon mukaisesti ja jos ehto ei toteudu, niin mitään ei tapahdu ;-)
Keep EXCELing
@Kunde