Følgespørgsmål til "skjul rækker i Excel"
Hej,Jeg har oprettet et regneark der skal fungere som tjekliste i forb med en række spørgsmål man kan svare ja/nej til. Der er ca. 100 rækker med disse spørgsmål og jeg har lavet en conditional formating på cellerne (B2-B100) således det via et panel kun er muligt at svare netop ja/nej.
En række af de underliggende spørgsmål bliver overflødige i det øjeblik der svares nej i række 40. Det betyder:
Hvis række 40 = "Nej" så skal række 70 - 72 automatisk skjules.
Jeg er ikke interesseret i at rækkerne skal sjules ved at man trykker på en knap. Det skal ske automatisk når man vælger "nej".
Kommentar: stewen
11/11-2004 10:32:49
Prøv denne! Jeg har forudsat at man i celle A40 indtaster "Nej" - bemærk at den er case sensisitive. Bemærk ligeledes at koden skal lægges "på arket" i VBA - ikke i et modul
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim selections As Range
Set selections = Range("A40")
If Target.Address = selections.Address Then
Application.ScreenUpdating = False
If Range("a40").Text = "Nej" Then
Rows("70:72").Hidden = True
Else
Rows("70:72").Hidden = False
End If
End If
Application.ScreenUpdating = True
End Sub
-------------------------------------------
Ovenstående er det svar jeg fik af Stewen og dette fungerer fint. Jeg har dog problemer når jeg skal have funktionen til at virke for flere celler i samme ark.
eksempelvis skal cellerne B3, B4, B5, B6 alle få flere af de nedenstående rækker til at skjules automatisk.
Det betyder at B3 hvis "nej" skal få række 48-52 til at skjules
B4 hvis "nej" skal få række 60 - 70 til at skjules
etc...
Jeg har prøvet kopiere ovenstående makro og blot ændre celle/række referencerne men dette virker ikke.
Til information kan jeg oplyse at når jeg har kopieret makroen og ændrer disse referencer skifter status i rullepanelet foroven fra at hedde "worksheet" til at hedde "general"...
Nogen der kan hjælpe?
