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

1192

Äänestä

    Vastaukset 9

    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. Suomalaisten pinna paloi - Ärsytys iskee uudesta TTK-juontajasta "Eihän tälle voi kun nauraa"

      Oliko Veronica Verho hyvä valinta TTK-juontajaksi? Uuden TTK-juontajan henkilöllisyyttä on arvailtu siitä asti, kun Va
      Suomalaiset julkkikset
      109
      2300

    2. Mitä tapahtuu?

      Mitä tapahtuu Humalojalla? Poliiseja talon ympärillä ja paljon ihmisiä pitkin pihoja???
      Haapavesi
      26
      954

    3. T rakastan sua

      vaikket sitä usko
      Ikävä
      71
      902

    4. Mitäpä luulet että tykkääkö

      kukaan kaivatustasi ?
      Ikävä
      103
      896

    5. Varmaan aika moni

      Haluaisi sinut enemmän kuin mielellään
      Ikävä
      48
      845

    6. Suomi on viittä vaille sodassa Venäjän kanssa...

      ...syynä tähän on kokoomuslainen presidenttimme Stubb. Hän on ainoa eurooppalaisen maan johtaja, joka kärkkäästi ja taha
      Maailman menoa
      568
      830

    7. Miksi et lähesty minua

      Jos kerran kaipaat, mies? Mitä pelkäät?
      Ikävä
      82
      728

    8. Olen vähän epävarma siitä, oletko kiltti

      Nainen, ensivaikutelma oli, että olet tosi hyväsydäminen eli siinä mielessä harvinaisuus. Eli et mene virran mukana, etk
      Ikävä
      76
      670

    9. Herkkä, hellä, aurinkoinen, kaunis upea, valonsäde on hän nainen

      Ja myös fiksu, älykäs ja luonnonläheinen. Erittäin mielenkiintoinen ja kiltti ihminen. Haluan tuntea hänet, koska kaik
      Ikävä
      25
      624

    10. Kai sä olet

      Luovuttanut mun suhteen.
      Ikävä
      64
      606
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt