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

1003

Äänestä

    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

    • kunde

      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

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

      • kunde

        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

      • 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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa

      En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod
      Ikävä
      22
      5434

    2. Huomenta ihana

      Kauniskasvoinen ihanuus 😘 saan sut vielä
      Ikävä
      27
      4705

    3. Hei rakas...

      Miten on työpäivä sujunut? Rakastan sinua 💗
      Ikävä
      28
      2691

    4. Edelleen sitä on vaikea uskoa

      Että olisit oikeasti rakastunut muhun
      Ikävä
      34
      2334

    5. Toiveikas vai toivoton

      torstai? Ajatuksia?
      Ikävä
      37
      2058

    6. Vitsi mihin menit. Heti takasin.

      Mä näin sut tuu takasin! Oli kiire, niin en ehtiny sin perään!
      Ikävä
      15
      2008

    7. En ole koskaan kokenut

      Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka
      Ikävä
      19
      1637

    8. Mukavaa päivää

      Mun rakkauden kohteelle ❤️ toivottavasti olet onnellinen
      Ikävä
      12
      1581

    9. Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...

      Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons
      Suomalaiset julkkikset
      24
      1390

    10. Ei tämä etene ikinä

      Kun kumpikaan ei enää ota yhteyttä. Mä en ainakaan uskalla.
      Ikävä
      18
      1386
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt