Søg
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
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 10:42 Access Import af csv fil - forkerte datatyper Af Henrik Berg Hansen i Andet software
29/0419:37 Hente CSV fil, indsætte CSV data i TABEL for JAVASCRIPT Af snestrup2000 i Programmeringsværktøjer
29/0412:23 Facebook Af hkv i Sociale medier
29/0411:38 JAVASCRIPT omdan ekstern variabel til søjleværdi .. Af snestrup2000 i Programmeringsværktøjer
29/0409:50 jeg mangler hjælp til opsætning af shop og Google ADS Af Hightech i Webhotel
White papers
Flere white papers »