24. februar 2018 - 19:02Der er
21 kommentarer og 4 løsninger
Rulleliste / Skjul
Jeg har en spørgsmål:
Jeg har en skabelon med rulleliste med 10 personer. Hvor jeg kan vælger fra 1 til 10 personer.
Problemet er, når jeg vælger i rulleliste eks. 5 personer, fra 6 person til 10 person skal kunne skjule række. Hvis jeg vælger kun 1 person skal kunne skjule række fra 2 til 10 person hele rækken
Jeg kan ikke få den til at virke. Noget forslag?
How many person 10 Name(s) person 1 person 2 person 3 person 4 person 5 person 6 person 7 person 8 person 9 person 10
Er du opmærksom på, at det er en matrixformel der er indtastet i A7 og kopieret ned til A25?
Matrixformel skal afsluttes ved at holde Ctrl og Shift nede før tryk på Enter. Herved sætter Excel automatisk {} omkring formlen. Når én matrixformel er indtastet korrekt kan den kopieres på normal måde til andre celler.
Jeg tror man skal bruge makro for den til at skjul linjer eller rækker.
Jeg prøver og forklare på anden måde:
På A6 vælger man (1) vises kun A7 og resten fra A16 til A8 skjul alle række. Dvs. Der skal man kun se at A7 og A17. Vælger man på A6 med (2) vises kun A7 & A8 og resten ned af fra A16 til A9 skjul alle række. Der kan man kun se A7, A8 og A17. Du ved man skal trække tællene op eller ned på siden for at vise eller skjul nummer.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A6")) Is Nothing Then Rows("7:16").EntireRow.Hidden = False
Select Case Target Case Is = 1 Rows("8:16").EntireRow.Hidden = True Case Is = 2 Rows("9:16").EntireRow.Hidden = True Case Is = 3 Rows("10:16").EntireRow.Hidden = True Case Is = 4 Rows("11:16").EntireRow.Hidden = True Case Is = 5 Rows("12:16").EntireRow.Hidden = True Case Is = 6 Rows("13:16").EntireRow.Hidden = True Case Is = 7 Rows("14:16").EntireRow.Hidden = True Case Is = 8 Rows("15:16").EntireRow.Hidden = True Case Is = 9 Rows("16:16").EntireRow.Hidden = True End Select End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A6")) Is Nothing Then Rows("7:16").EntireRow.Hidden = False Rows("20:29").EntireRow.Hidden = False
Select Case Target Case Is = 1 Rows("8:16").EntireRow.Hidden = True Rows("20:29").EntireRow.Hidden = True Case Is = 2 Rows("9:16").EntireRow.Hidden = True Case Is = 3 Rows("10:16").EntireRow.Hidden = True Case Is = 4 Rows("11:16").EntireRow.Hidden = True Case Is = 5 Rows("12:16").EntireRow.Hidden = True Case Is = 6 Rows("13:16").EntireRow.Hidden = True Case Is = 7 Rows("14:16").EntireRow.Hidden = True Case Is = 8 Rows("15:16").EntireRow.Hidden = True Case Is = 9 Rows("16:16").EntireRow.Hidden = True End Select End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1")) Is Nothing Then Rows("3:12").EntireRow.Hidden = False Select Case Target Case Is = 1 Rows("4:12").EntireRow.Hidden = True Case Is = 2 Rows("5:12").EntireRow.Hidden = True Case Is = 3 Rows("6:12").EntireRow.Hidden = True Case Is = 4 Rows("7:12").EntireRow.Hidden = True Case Is = 5 Rows("8:12").EntireRow.Hidden = True Case Is = 6 Rows("9:12").EntireRow.Hidden = True Case Is = 7 Rows("10:12").EntireRow.Hidden = True Case Is = 8 Rows("11:12").EntireRow.Hidden = True Case Is = 9 Rows("12:12").EntireRow.Hidden = True End Select End If
If Not Intersect(Target, Range("C16")) Is Nothing Then Rows("18:27").EntireRow.Hidden = False Select Case Target Case Is = 1 Rows("19:27").EntireRow.Hidden = True Case Is = 2 Rows("20:27").EntireRow.Hidden = True Case Is = 3 Rows("21:27").EntireRow.Hidden = True Case Is = 4 Rows("22:27").EntireRow.Hidden = True Case Is = 5 Rows("23:27").EntireRow.Hidden = True Case Is = 6 Rows("24:27").EntireRow.Hidden = True Case Is = 7 Rows("25:27").EntireRow.Hidden = True Case Is = 8 Rows("26:27").EntireRow.Hidden = True Case Is = 9 Rows("27:27").EntireRow.Hidden = True End Select End If End Sub
Kan man også lave en kopi på Ark 2 samme placering antal personer? Fra 1 til 10 personer. Når man vælger på rulleliste C1 på Ark 1, eks. 5 så viser kun fra 1 til 5 person på række 3 til 7. Og den skal kunne også vises i Ark 2 også samme antal 5 person uden rulleliste.
Jeg har på Ark 1 den kode:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1")) Is Nothing Then Rows("3:12").EntireRow.Hidden = False Select Case Target Case Is = 1 Rows("4:12").EntireRow.Hidden = True Case Is = 2 Rows("5:12").EntireRow.Hidden = True Case Is = 3 Rows("6:12").EntireRow.Hidden = True Case Is = 4 Rows("7:12").EntireRow.Hidden = True Case Is = 5 Rows("8:12").EntireRow.Hidden = True Case Is = 6 Rows("9:12").EntireRow.Hidden = True Case Is = 7 Rows("10:12").EntireRow.Hidden = True Case Is = 8 Rows("11:12").EntireRow.Hidden = True Case Is = 9 Rows("12:12").EntireRow.Hidden = True End Select End If
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1")) Is Nothing Then Sheets(1).Rows("3:12").EntireRow.Hidden = False Sheets(2).Rows("3:12").EntireRow.Hidden = False Select Case Target Case Is = 1 Sheets(1).Rows("4:12").EntireRow.Hidden = True Sheets(2).Rows("4:12").EntireRow.Hidden = True Case Is = 2 Sheets(1).Rows("5:12").EntireRow.Hidden = True Sheets(2).Rows("5:12").EntireRow.Hidden = True Case Is = 3 Sheets(1).Rows("6:12").EntireRow.Hidden = True Sheets(2).Rows("6:12").EntireRow.Hidden = True Case Is = 4 Sheets(1).Rows("7:12").EntireRow.Hidden = True Sheets(2).Rows("7:12").EntireRow.Hidden = True Case Is = 5 Sheets(1).Rows("8:12").EntireRow.Hidden = True Sheets(2).Rows("8:12").EntireRow.Hidden = True Case Is = 6 Sheets(1).Rows("9:12").EntireRow.Hidden = True Sheets(2).Rows("9:12").EntireRow.Hidden = True Case Is = 7 Sheets(1).Rows("10:12").EntireRow.Hidden = True Sheets(2).Rows("10:12").EntireRow.Hidden = True Case Is = 8 Sheets(1).Rows("11:12").EntireRow.Hidden = True Sheets(2).Rows("11:12").EntireRow.Hidden = True Case Is = 9 Sheets(1).Rows("12:12").EntireRow.Hidden = True Sheets(2).Rows("12:12").EntireRow.Hidden = True End Select End If End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
