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.
Vastaukset 10
- 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 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
Riikka Purra on mukana Suomen huutokauppakeisari -sarjassa
Suomen huutokauppakeisari on tavallisten suomalaisten ohjelma. Sarjan suosiosta kertoo se, että nyt alkaa jo 19. kausi t1581503Kuuleppas
ensimmäiset naissuhteet toimii miehelle eräänlaisena oppikouluna, mutta hän ei välttämättä itse ymmärrä oppineensa mitää2551073Mulla ei ole Suomessa enää mitään
4 vuotta joutuu asumaan henkisessä vankilassa. Sitten voi muuttaa takaisin ulkomaille.183722- 43701
Provider miehistä..
Tietyt miehet puhuvat ilkeästi naisista, jotka haluavat elää miehen tuloilla. Eikö? Mutta miksi tietyt miehet siitä pah209653Sinulle nainen
En ehkä koskaan osannut sanoa tätä oikein. Minun vaikeuteni luottaa liittyi ennen kaikkea menettämisen pelkoon. Siihen63635- 40556
Ethän voinut nainen tietää, että rikot rikotun
Omaa elämää taas mietin aamuyön tunteina. En vieläkään löytänyt muistin sokkeloista ainuttakaan onnen hetkeä. Kaipuu on66516Hei rakkaani.
Kohtaaminen lähestyy. Miten teemme sen? Kumpi ottaa yhteyttä vai törmäämmekö jossain sattumalta? Tuleva vaimosi36482- 30474
- 31471
Tulisitpa käymään joskus vielä
Olisi niin kiva nähdä pitkästä aikaa. Oletko vielä joskus tulossa?... Niin monet muutoksen tuulet puhaltavat, olisi lohd23469Yt:t kunnassa päättyi
Oliko nämä tarpeelliset ja ratkeaako taloushuolet näiden avulla? Lehdessä ilmoitettujen lukujen perusteella lisää on tul53447- 38440
Lämpimiä katseita aikoinaan vaihdettiin, siihen se sitten jäi
Sinulla uudet tuulet ja välttelet kohtaamistamme.26440- 69431
Martsusta tuli leuhka
Ja ylimielinen. Hän ei nosta persettäkään ilmaseksi . Luulempa et nämä ei tee hyvää hyvinvointivalmennuksille.... Nannal159429- 6403
- 19394
Valtiomies puhuu?
"Trump väitti jo aiemmin maanantaina Truth Socialissa, että hän itse riittää suojaamaan maailmaa tekoälyn vaaroilta. –77394