Valittu rivi

riviväri

Saako excelin jotenkin värjäämään aina valitun solun koko rivin siniseksi. Kun muuttaa riviä tulisi väritys poistua.

Avittakaa

9

1129

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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 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


      • 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
        @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


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Sanna Marin vetänyt leukoja 11 kertaa

      Tästähän oli joskus polemiikkia, kun muistaakseni lupasi kymmenen tai jotain vedellä. No nyt niin on, ainakin omien san
      Maailman menoa
      77
      5755
    2. Kirjoita

      … jotakin minkä vain kaivattusi tietää
      Ikävä
      119
      2129
    3. Farmi Suomi: Kokeeko Frederik, 81, saman kohtalon kuin ikämies Danny?

      Danny, musiikkineuvos Ilkka Lipsanen, nähtiin mukana Farmi Suomi -realityssä v. 2024. Danny teki yllätysratkaisun ja tuo
      Tv-sarjat
      24
      2010
    4. Tyhmä persuväite = köyhä argumentti

      Väite, että vasemmistopuolueita äänestäisivät vain “köyhät, tapatyöttömät tai heikoilla lahjoilla varustetut”, kertoo en
      Maailman menoa
      30
      1978
    5. Sosialismia Tampereella: Virallinen ilmiantolinja avautuu kaupungissa

      Nyt siis mennään mansessa ihan justiinsa samaan malliin kuin entisessä Neuvostoliitossa, jossa saattoi ilmiantaa naapuri
      Maailman menoa
      57
      1957
    6. Tiesitkö? Andy McCoy ja Pelle Miljoona saavat taiteilijaeläkettä - Tämän suuruinen eläke on

      Ylimääräiset taiteilijaeläkkeet on jaettu ja 59 taiteilijaa sai sen. Taiteilijoiden keskimääräinen eläketulo jää hyvin a
      Maailman menoa
      64
      1394
    7. Oliko se peppu

      Vai älykkyys mikä enemmän viehätti?
      Ikävä
      73
      1316
    8. Haluan sut

      Voitaisiinko tutustua paremmin toisiimme? Ovi on aina auki sinulle. Lähelle.
      Ikävä
      39
      1125
    9. Kunnanvaltuusto koolle heti

      Tämä on erittäin vakava tilanne 17 hakkiita oli hyrylle mutta Kas kummaa kaksi hakkiota loppusuora oli Kainuusta ja Brys
      Hyrynsalmi
      29
      1099
    10. Sähköautoa vaikea hankkia koska latauspisteet puuttuu

      Suurimmassa osassa taloyhtiöitä joiden talot rakennettu 2018 tai aiemmin ei latauspisteet ole sellaisia että sähköautoa
      Maailman menoa
      60
      1098
    Aihe