Avatar billede jwulff Nybegynder
05. november 2012 - 08:55 Der er 7 kommentarer og
1 løsning

VBA Toggle i Excel

Hej alle

Jeg har lavet nedenstående Toggle funktion i Excel 2010. Jeg vil meget gerne have det således, at knappen har tekst1 når rækkerne er synlige og tekst2 når rækkerne er gemt.

Nogen der kan hjælpe med dette?

Mvh.
Jacob
Avatar billede stalle Nybegynder
05. november 2012 - 09:23 #1
Var det meningen der skulle være noget VBA med her, for jeg synes og have svært ved at finde det ?
Avatar billede jwulff Nybegynder
05. november 2012 - 09:25 #2
Min fejl :)

Sub Button5_Click()
    With Rows("51:65")
        .Select
      .EntireRow.Hidden = Not .EntireRow.Hidden
    End With
End Sub
Avatar billede stalle Nybegynder
05. november 2012 - 09:44 #3

Private Sub Button5_Click()
    With Rows("51:65")
        .Select
      .EntireRow.Hidden = Not .EntireRow.Hidden
    End With
   
    If Rows("51:65").Hidden Then
        Button5.Caption = "Vis"
    Else
        Button5.Caption = "Skjul"
    End If
End Sub
Avatar billede stalle Nybegynder
05. november 2012 - 09:47 #4
Du kan med fordel smide det på din Form_Load også. Så bliver teksten ændret når den åbnes
Avatar billede jwulff Nybegynder
05. november 2012 - 09:53 #5
Perfekt. Smid et svar :)
Avatar billede jwulff Nybegynder
05. november 2012 - 09:54 #6
Kan man gøre, så man kun skal rette linier ét sted for hele koden?
Avatar billede jwulff Nybegynder
05. november 2012 - 10:10 #7
Forstår ikke helt det med Form_load. Teksten ændrer sig når jeg klikker på knappen.
Avatar billede stalle Nybegynder
05. november 2012 - 11:38 #8
Ja, du kan blot lave nogle variabler, der så indeholder de rækker du ønsker at skjule.




Private Sub Button5_Click()

Dim StartRaekke = 51
Dim SlutRaekke = 65

    With Rows(StartRække & ":" & SlutRaekke)
        .Select
      .EntireRow.Hidden = Not .EntireRow.Hidden
    End With
   
    If Rows(StartRække & ":" & SlutRaekke).Hidden Then
        Button5.Caption = "Vis"
    Else
        Button5.Caption = "Skjul"
    End If
End Sub


Det med form_load skal du ikke tænke på. Bare mig der havde en forestilling om hvordan tingene hænger sammen.
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester