Notifikationer

Markér alle som læst Log ud

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

Synes godt om

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 ?

Synes godt om

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

Synes godt om

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

Synes godt om

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

Synes godt om

jwulff Nybegynder

05. november 2012 - 09:53 #5

Perfekt. Smid et svar :)

Synes godt om

jwulff Nybegynder

05. november 2012 - 09:54 #6

Kan man gøre, så man kun skal rette linier ét sted for hele koden?

Synes godt om

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.

Synes godt om

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.

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS