|
こんにちは。かみちゃん です。
横から失礼します。
>トグルボタンと組合すようなことは出来ますでしょうか。
>貴殿から頂いたコードと小生のトグルボタンのコードの組み合わせを
>試みたのですが、上手く行きません。トグルが働いてもHiddennが
>Falseに成らないのです。
こんな感じでしょうか。
Private Sub ToggleButton1_Click()
Dim Sh As Worksheet
Dim Flg As Boolean
With ToggleButton1
Flg = .Value
If Flg Then
.Caption = "表示"
Else
.Caption = "非表示"
End If
End With
For Each Sh In Worksheets
Sh.Columns("A:D").Hidden = Flg
Next
End Sub
なお、
If Flg Then
.Caption = "表示"
Else
.Caption = "非表示"
End If
の部分は、
.Caption = Choose(Flg * -1 + 1, "非", "") & "表示"
と、一行にまとめることもできます。
|
|