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. Suomalainen tutkimus paljasti oudon asian vasemmistolaisista - he häpeävät itseään

      Kyllä, asia on faktaa. Suomalainen tutkimus osoittaa, että vasemmistolaisina itseään pitävät kansalaiset häpeävät itseää
      Maailman menoa
      136
      3770
    2. Sosialismia Tampereella: Virallinen ilmiantolinja avautuu kaupungissa

      Nyt siis mennään mansessa ihan justiinsa samaan malliin kuin entisessä Neuvostoliitossa, jossa saattoi ilmiantaa naapuri
      Maailman menoa
      336
      2924
    3. Tätä et nähnyt tv:ssä: Frederik paljastaa - Totuus "haisevasta jäynästä" pehtoorille Farmilla

      Frederik veti ns. herneen nenään ja päätti kostaa pehtoorille. Mitäs mieltä olet Frederikin "aamutoimista"? Lue jutt
      Tv-sarjat
      8
      1825
    4. Ellen Jokikunnas paljastaa kyynelehtien Ralph-pojasta: "Apua..."

      Ellen Jokikunnaksen ja hänen puolisonsa Jari Raskin perheestä ja taloprojektista Italiassa kertova Unelmia Italiassa -sa
      Suomalaiset julkkikset
      5
      1578
    5. Oho! Vappu Pimiä teki "röyhkeän" teon - Onko sopivaa paljastaa tämä MasterChef-sarjasta?

      Vappu Pimiä on astunut MasterChef Suomi -keittiöön ja liittynyt ohjelman legendaariseen tuomaristoon Helena Puolakan ja
      Tv-sarjat
      4
      1059
    6. Mun kaikkialta häviäminen

      Ei liity sinuun. Muista se. ❤️ Mua kiusataan enkä mä enää jaksa.
      Ikävä
      62
      848
    7. Kaste tulisi tehdä apostolisella tavalla Ap. t. 2:38 mukaan

      Apostolit eivät kastaneet kolminaisuuden nimellä vaan Jeesuksen alkuperäisen käskyn mukaisesti: Ap. t. 2:38 Niin Pietar
      Kaste
      38
      844
    8. Onko teillä

      minkä tyyppisiä seksifantasioita kaivattunne kanssa?
      Ikävä
      44
      744
    9. Kuhmossa rallit alkoi ennen aikojaan

      Paettiin polliisia törkeästi? Se tuo rallikiima on näemmä saavuttanu paikalliset tommi mäkiset kiljupäissään auton rat
      Kuhmo
      22
      688
    10. Inhottaa ajatus siitä

      Miten monia olet pannut.
      Ikävä
      54
      665
    Aihe