Miten teen ehdollisen muotoilun jos valitulla alueella jokin arvo muuttuu?

Anonyymi

Tarkoitukseni olisi käyttää ehdollista muotoilua uuden säännön kanssa. Eli jos joku arvo (kokonaislukujua) valitulla alueella muuttuu, niin tietty solu alueen ulkopuolella muuttuu punaiseksi. Tämä olisi minulle indikaattori, että taulukon muokkauksen jälkeen muistaisin suorittaa makron.

10

183

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Helpoiten tuo onnistuu makrolla. Ehdolliseen muotoiluun ei taida yksinkertaisesti saada muutoksen tarkkailua.

      Tämä ko. välilehden moduliin:

      Private Sub Worksheet_Change(ByVal Target As Range)
          If Not (Intersect(Target, Range(Alue)) Is Nothing) Then
             Range(Merkki).Interior.Color = RGB(255, 0, 0)
          End If
      End Sub

      Esimerkissä alueet oli määritelty vakiona modulissa
      Public Const Alue = "A1:C3"
      Public Const Merkki = "D1"

      Voit laittaa makroosi rivin, joka kuitaa värin.

      • Anonyymi

        Kiitos vastauksesta. En halua käyttää kuitenkaan montaa makroa samassa työkirjassa.

        Taidan kuitenkin tyytyä tekemääni ratkaisuun: jos solun E27 arvo =0 , solu E26 on vihreä tekstillä "Status". Jos arvo =1, solu E26 on punainen tekstillä "Status". Avatessani työkirjan siis manuaalisesti syötän arvon 1 soluun E27, jolloin muistan suorittaa oman makron ennen tallentamista.


      • Anonyymi
        Anonyymi kirjoitti:

        Kiitos vastauksesta. En halua käyttää kuitenkaan montaa makroa samassa työkirjassa.

        Taidan kuitenkin tyytyä tekemääni ratkaisuun: jos solun E27 arvo =0 , solu E26 on vihreä tekstillä "Status". Jos arvo =1, solu E26 on punainen tekstillä "Status". Avatessani työkirjan siis manuaalisesti syötän arvon 1 soluun E27, jolloin muistan suorittaa oman makron ennen tallentamista.

        Yksinkertainen on kaunista, mutta rajoitus yksi makro per työkirja on perusteeton.


      • Anonyymi
        Anonyymi kirjoitti:

        Yksinkertainen on kaunista, mutta rajoitus yksi makro per työkirja on perusteeton.

        Yksinkertainen, mutta iso on tämä kyseinen taulukkokin. Tämän halusin vain siksi, että muistan suorittaa tuon oman makron ennen tallentamista ja vielä tarkistaa ennen tallennusta.


    • Kun Excel aukeaa, niin voit liittää siihen makron. Mutta jos 1 pikku makro on liikaa, niin sitten manuaalisesti vaan..

      Private Sub Workbook_Open()
      Worksheets(1).Range("E27") = 1
      End Sub

      • Anonyymi

        @kunde . Tämän tein; kiitosta.


      • Anonyymi kirjoitti:

        @kunde . Tämän tein; kiitosta.

        Voithan sä sen makron liittää suoraan ennen sulkemista tapahtumaankin, jolloin tota aukeamistapahtuman makroa ei sitten tarvitse ja suorittaa sen sun makron automaattisesti...

        Private Sub Workbook_BeforeClose(Cancel As Boolean)
        tähän oman makro kutsu
        End Sub

        Keep EXCELing
        @Kunde


      • Anonyymi
        kunde kirjoitti:

        Voithan sä sen makron liittää suoraan ennen sulkemista tapahtumaankin, jolloin tota aukeamistapahtuman makroa ei sitten tarvitse ja suorittaa sen sun makron automaattisesti...

        Private Sub Workbook_BeforeClose(Cancel As Boolean)
        tähän oman makro kutsu
        End Sub

        Keep EXCELing
        @Kunde

        @kunde Onko mitään eroa jos suorittaa tuon makron sulkiessa tai avatessa ko. työkirjan?


      • Anonyymi
        kunde kirjoitti:

        Ylläpito on poistanut tästä viestin sääntöjen vastaisena.

        @kunde Kiitos selvennyksestä ja nopeista vastauksista. Homma on nyt selvä tämän ketjun osalta.


    • Anonyymi

      Tarvitsenkin lisää apuja. Nyt tarkoitus olisi suojata taulukkoa ja välilehtiä "sheets" tiettyjen solualueiden osalta. Suojaa solut ratkaisu ei käy, koska jaan työkirjaa One Driven kautta jaetulla linkillä vain luku muodossa.

      Tein tällaisen koodin "Workbook, Change":

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim KeyCells As Range
      Set KeyCells = Range("B7:S49")
      If Not Application.Intersect(KeyCells, Range(Target.Address)) _
      Is Nothing Then
      Application.EnableEvents = False
      Application.Undo
      Application.EnableEvents = True

      MsgBox "Cell " & Target.Address & "Et voi muuttaa solun arvoa"

      End If
      End Sub

      Tämä toimii, mutta jos valitsen solun tältä alueelta ja syötän siihen esim. luvun 1 koodi sallii täyttökahvan käytön, enkä tietenkään voi tietenkään enää poistaa solujen sisältöä. Koodihan voi olla kylläkin väärin. Toinen ratkaisuni olisi käyttää "Workbook, SelectionChange" jolloin voisin käyttää

      Private Sub Worksheet_Change(ByVal Target As Range)
      If Not (Intersect(Target, Range(Alue)) Is Nothing) Then

      jolloin automaattisesti tulisi teksti ja undo, mutta tähän eivät omat taidot vielä taivu.

      terv.j

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

    Luetuimmat keskustelut

    1. Raivoaako Putin, kun Suomi hyväksytään naton jäseneksi

      https://www.is.fi/politiikka/art-2000008913259.html "Kommentti: Madridista jysähti sittenkin – Suomi kutsutaan Naton jäseneksi jo keskiviikkona Lähes
      NATO
      302
      3395
    2. Miten olette pärjänneet kuumuuden kanssa?

      Viime yö oli trooppisen lämmin ja kämpässä kuuma. Heräilin vähän väliä kuumuuden takia vaikka nukuin pelkkä lakana päällä. Täkin heitin jo viime viiko
      Maailman menoa
      340
      3207
    3. Rydman "elämäni hirveimmät päivät" Entäs uhrisi?!

      https://yle.fi/uutiset/3-12515383 Rydman valittelee että vaikeaa on ollut kun jäänyt kiinni mutta entäs uhrisi? Ei yhtään empatiaa uhreja kohtaan!
      Maailman menoa
      151
      1919
    4. Nakkilassa on raiskattu wanhus

      Wanhus on raiskattu nakkilassa palvelutalossa. ( näin uutisoivat molemmat iltapäivälehdet sekä yle )
      Nakkila
      40
      1554
    5. No aloititko sä jo suhteen

      sen toisen ihailijasi kanssa? Sen jonka kanssa sulla oli jotain vispiläkauppaa? Olenko jo unohdettu ja tarpeeton?
      Ikävä
      150
      1272
    6. Mitä oikein odotat?

      Rehellisiä vastauksia sitten vain.
      Ikävä
      112
      1138
    7. JA SIEPIN VALITUS ALKOI TAAS

      Siepin unelma-asunnossa oli hajonnut ilmalämpöpumppu, jonka takia hän joutui lähtemään kuumuutta pakoon ylelliseen hotelliin. mutta voi kauhistus, k
      Kotimaiset julkkisjuorut
      107
      1027
    8. Totuus on että

      Se kaikki sattui ihan vit**ti koska mä tykkään susta todella paljon. Oikeesti tosi paljon. Menin ihan pois raiteilta enkä tajua tätä itekään. Oon mä j
      Ikävä
      34
      859
    9. Turkki tukee Suomen Nato-jäsenyyttä

      Kuinkas trollien suuhun nyt pannaan? 🤣 Juttua aiheesta löytyy kohta kaikista mahdollisista uutislähteistä. Mahtava homma!🫡🥳
      Maailman menoa
      383
      839
    10. Natoon liittymisen hinta kova.

      Suomi joutuu luovuttamaan kurdeja Turkkiin, maksoiko Suomen Nato-jäsenyys monien kymmenien ihmisten vankeus ja kidutuskohtalon vai peräti kuoleman. ht
      Maailman menoa
      228
      743
    Aihe