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

960

Ää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. Saako kaunis ihminen parempaa kohtelua?

      Onko kauniin ihmisen elämä "helpompaa" kuin tavallisen näköisen ihmisen? Olen kuullut väittämän, että kaunis ihminen saa
      Sinkut
      84
      2605

    2. En rehellisesti usko et oisit

      Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos
      Ikävä
      36
      1819

    3. Ei ole kyllä mennyt

      Kovin hyvin kun alussa pieni sekoaminen hänestä 😏
      Ikävä
      10
      1684

    4. Suomennettua: professori Jeffrey Sachs avaa Ukrainan sodan taustat luennollaan EU parlamentissa

      Jeffrey Sachs on yhdysvaltalainen ekonomisti. Sachs toimii Columbian yliopiston The Earth Instituten johtajana. Aiemmin
      NATO
      370
      1609

    5. Näin sinusta taas unta!

      Unessa olin pakahtuneesti rakastunut sinuun. Olimme vanhassa talossa jossa oli yläkerran huoneissa pyöreät ikkunat. Pöly
      Ikävä
      18
      1562

    6. Nainen, olet jotenkin lumoava

      Katselen kauneuttasi kuin kuuta, sen loistoa pimeässä. Sen kaunis valo on kaunista sekä herkkää ja lumoavaa. Olet naisel
      Ikävä
      68
      1417

    7. Olet muutenkin tyhmä

      Ja käyttäydyt epäasiallisesti siinä työssäsi.
      Ikävä
      119
      1227

    8. Se sinun kaipauksen kohde

      Ei todellakaan käy täällä höppänä mies.
      Ikävä
      13
      1166

    9. En muuttaisi sinusta mitään

      Ensin olit etäinen ja yritin pysyä tutkan alapuolella. Mutta ei silmiltäsi jää mitään huomaamatta, kuten minulla ei kuul
      Ikävä
      9
      1126

    10. Et katso sitä

      Niinkuin minua. Ehkä se luo toivetta
      Ikävä
      20
      1029
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt