Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
toggle button text
Is it possible to have a toggle button to display different captions and in
different colour depending if a linked cell is either true or false? Thanks in advance for any help John |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
toggle button text
Here is one way
Private Sub Worksheet_Change(ByVal Target As Range) Const WS_RANGE As String = "H10" '<=== Change to suit On Error GoTo ws_exit: Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target Me.Buttons("Button 1").Caption = .Value End With End If ws_exit: Application.EnableEvents = True End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "John Davies" wrote in message ... Is it possible to have a toggle button to display different captions and in different colour depending if a linked cell is either true or false? Thanks in advance for any help John |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
toggle button text
Hi John,
Try: '============= Private Sub ToggleButton1_Click() With Me.ToggleButton1 .Caption = IIf(Range("A1").Value, "A", "B") .BackColor = IIf(Range("A1").Value, &H8080FF, &HFF0000) End With End Sub '<<============= --- Regards, Norman "John Davies" wrote in message ... Is it possible to have a toggle button to display different captions and in different colour depending if a linked cell is either true or false? Thanks in advance for any help John |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
toggle button text
Hi John,
The suggested code should read: '============= Private Sub ToggleButton1_Click() With Me.ToggleButton1 .Caption = IIf(.Value, "A", "B") .BackColor = IIf(.Value, &H8080FF, &HFF0000) End With End Sub '<<============= --- Regards, Norman |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Need to Use 1 Button to toggle On or Off | Excel Discussion (Misc queries) | |||
Toggle Button | Excel Worksheet Functions | |||
toggle button text color | Excel Discussion (Misc queries) | |||
Adding .xla button for Toggle Calculation Button | Excel Programming | |||
toggle button text colour | Excel Programming |