Saako excelin jotenkin värjäämään aina valitun solun koko rivin siniseksi. Kun muuttaa riviä tulisi väritys poistua.
Avittakaa
Valittu rivi
riviväri
9
1103
Vastaukset
- markollaehkä
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. - Tämmöinen
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- Tämmöinen
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 - Tämmöinen
Tämmöinen kirjoitti:
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 SubJa 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
@Kundejos 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- Emmätajuu
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
@KundeVarmaan 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
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Porvarimediat paniikissa demareiden huiman kannatuksen vuoksi
Piti sitten keksiä "nimettömiin lähteisiin" perustuen taas joku satu. Ovat kyllä noloja, ja unohtivat sen, että vaalit835983KATASTROFI - Tytti Tuppurainen itse yksi pahimmista kiusaajista!!!
STT:n lähteiden mukaan SDP:n eduskuntaryhmän puheenjohtaja Tytti Tuppurainen on käyttäytynyt toistuvasti epäasiallisesti3094987Huono päivä
Tänään on ollut tosi raskas päivä töissä. Tekis mieli itkeä ja huutaa. En jaksa just nyt mitään. Minä niin haluaisin ja202638Mikä siinä on ettei persuille leikkaukset käy?
On esitetty leikkauksia mm. haitallisiin maataloustukiin, kuin myös muihin yritystukiin. Säästöjä saataisiin lisäksi lei442569Lääppijä Lindtman jäi kiinni itse teosta
Lindtman kyselemättä ja epäasiallisesti koskettelee viestintäpäällikköä. https://www.is.fi/politiikka/art-2000011780852721766Juuri nyt! Tytti Tuppurainen on käyttäytynyt toistuvasti epäasiallisesti
Ai että mä nautin, Tytti erot vireille! "Käytös on kohdistunut avustajia ja toisia kansanedustajia kohtaan, uutisoi STT1011645Puolen vuoden koeaika
Voisi toimia meillä. Ensin pitäis selvittää "vaatimukset" puolin ja toisin, ennen kuin mitään aloittaa. Ja matalalla pro171501- 1051407
Olen ihmetellyt yhtä asiaa
Eli miksi naiset ovat niin pelokkaan tai vaitonaisen oloisia minun seurassani. Se sai minut ajattelemaan, että olen epäm1331373seurakunnan talouspäällikön valinta meni perseelleen
Nyt on ihan pakko kyseenalaistaa tuo Kemijärven seurakunnan päätös talouspäälliköstä. Valitulla ei ole talouspuolen osaa1181356