Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49564 / 76736

←次へ　｜　前へ→


	【32078】Re:チェックボックスの使い方について

かみちゃん - 05/12/5(月) 22:26 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

横から失礼します。

>トグルボタンと組合すようなことは出来ますでしょうか。
>貴殿から頂いたコードと小生のトグルボタンのコードの組み合わせを
>試みたのですが、上手く行きません。トグルが働いてもＨiddennが
>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, "非", "") & "表示"
と、一行にまとめることもできます。

0 hits

▼

【32022】チェックボックスの使い方について Mi 05/12/4(日) 20:39