Minkähänlainen makro tekisi seuraavan:
Klikkaamalla määrätyssä solussa olevaa nimeä piilotetut rivit näkyvät / eivät näy vuorotellen.
Osaan kyllä nippa nappa nauhoittaa yksinkertaisen makron, mutta tässä jo meni sormi suuhun.
Käytössäni on Microsoft Office 2007 Beta.
Klikkaamalla määrätyssä solussa olevaa nimeä piilotetut rivit näkyvät / eivät näy vuorotellen.
Osaan kyllä nippa nappa nauhoittaa yksinkertaisen makron, mutta tässä jo meni sormi suuhun.
Käytössäni on Microsoft Office 2007 Beta.
Vastaukset 4
Vanhimmat
taulukon moduuliin...
toimii solun A1 tekstin mukaan Näytä/Piilota
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo virhe
Application.EnableEvents = False
If ActiveCell.Address = "$A$1" Then
If ActiveCell = "Näytä" Then
'nyt rivit 3,5,12 ja 22
Range("3:3,5:5,12:12,22:22").EntireRow.Hidden = False
ActiveCell = "Piilota"
Else
ActiveCell = "Näytä"
Range("3:3,5:5,12:12,22:22").EntireRow.Hidden = True
End If
End If
virhe:
ActiveCell.Offset(0, 1).Select
Application.EnableEvents = True
End Sub
tai pelkästään klikkaamalla solua A1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo virhe
Application.EnableEvents = False
If ActiveCell.Address = "$A$1" Then
Range("3:3,5:5,12:12,22:22").EntireRow.Hidden = Not Range("3:3,5:5,12:12,22:22").EntireRow.Hidden
End If
virhe:
ActiveCell.Offset(0, 1).Select
Application.EnableEvents = True
End Sub
Kiitos Kundelle.
Kopioin moduuliin tuon alimmaisen eli A1- klikkauksen. Makro toimii kyllä run-komennolla niinkuin pitää, mutta ei klikkaamalla A1-solua.
Ilmeisesti olen tehnyt jotain väärin tai jättänyt jotain tekemättä, mutta kun en tiedä mitä.
Vieläköhän apua löytyy?
olet laittanut koodin moduuliin, etkä taulukon moduuliin kuten kirjoitin...
Siis klikkaa sen taulukon moduulia missä haluat koodin toimivan
Toimii juuri niinkuin pitää. Toimisipa tuo oma lukemisen ymmärtäminenkin yhtä hyvin.
Kiitokset.