04. april 2019 - 15:58 Der er 6 kommentarer og
1 løsning

2 makroer til en knap som skifter form

Jeg har en figur som er formet som et Minus tegn. Jeg vil gerne have at når jeg trykker på denne, skal rækkerne 5 til 10 skjules og figuren skal skifte form til et plus.

Når så jeg trykker på (Plus) knappen skal den vise de skjulte rækker og herefter skifte tilbage til Minus figuren.

Hvorledes opsættes dette ved VBA?
Avatar billede Mads32 Ekspert
04. april 2019 - 18:17 #1
Hej

Her er et forslag med 2 knapper. Det er ret enkelt.
Jeg vil prøve om jeg kan lave med en knap hvor hvor tegnet ændres

https://www.dropbox.com/s/36pi5w6z0u6kuky/2%20makroer%20til%20en%20knap_mads32.xlsm?dl=0
Avatar billede store-morten Ekspert
04. april 2019 - 18:36 #2
ActiveX Knap
Private Sub CommandButton1_Click()
If Rows("5:10").EntireRow.Hidden = False Then
Rows("5:10").EntireRow.Hidden = True
CommandButton1.Caption = "Vis rækker"
CommandButton1.BackColor = &HFF00&
Else
Rows("5:10").EntireRow.Hidden = False
CommandButton1.Caption = "Skjul rækker"
CommandButton1.BackColor = &HFF&
End If
End Sub
Avatar billede excelent Ekspert
04. april 2019 - 18:39 #3
Avatar billede excelent Ekspert
04. april 2019 - 18:47 #4
Ovenstående Link virker ikke

Sub Minus()
Rows("5:10").EntireRow.Hidden = True
ActiveSheet.Shapes.Range(Array("Plus 1")).Visible = True
ActiveSheet.Shapes.Range(Array("Minus 3")).Visible = False
End Sub

Sub Plus()
Rows("5:10").EntireRow.Hidden = False
ActiveSheet.Shapes.Range(Array("Minus 3")).Visible = True
ActiveSheet.Shapes.Range(Array("Plus 1")).Visible = False
End Sub

Sub Placer_Figur()
ActiveSheet.Shapes("Plus 1").Top = Rows(3).Top ' celle B3
ActiveSheet.Shapes("Plus 1").Left = Columns("B").Left
ActiveSheet.Shapes("Minus 3").Top = Rows(2).Top ' B2
ActiveSheet.Shapes("Minus 3").Left = Columns("B").Left
End Sub
04. april 2019 - 18:54 #5
@store-morten
Den viser og skjuler rækkerne som den skal, men kommer med error hver gang. Desuden skifter figuren ikke form.

@excelent
Kan ikke se filen/linket
Avatar billede store-morten Ekspert
04. april 2019 - 19:05 #6
04. april 2019 - 19:08 #7
Amen det er smukt.
Tak for hjælpen!!!
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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