Just nu i M3-nätverket
Jump to content

Villkora visning av knapp i excel


hockey2

Recommended Posts

Hej!

 

Jag har en makroknapp och vill att denna visas när en cell uppfyller ett visst villkor, annars vill jag att den ska vara dold.

 

Någon som vet hur man kan göra detta??

 

Håkan A

Link to comment
Share on other sites

Hej hockey21,

 

Om du använder dig av knappen från Formulärverktygsfältet så:

 

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sShape As Shape

Set Target = Me.Range("A1")
Set sShape = Me.Shapes(1)

If Target.Value = 1 Then
    sShape.Visible = msoTrue
Else
   sShape.Visible = msoFalse
End If

End Sub

 

Om du använder dig av kommandknappen från Kontrollverktygsfältet så:

 

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim obButton As Object

Set Target = Me.Range("A1")
Set obButton = Me.CommandButton1

If Target.Value = 1 Then
   obButton.Visible = msoTrue
Else
   obButton.Visible = msoFalse
End If

End Sub

 

Båda lösningarna kopieras till modulbladet för det aktuella arbetsbladet.

 

Mvh

Dennis

Besök Sveriges ledande oberoende webbplats om MS Excel: http://www.xldennis.com

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...