Excel VBA質問箱 IV

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

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


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

49561 / 76732

←次へ　｜　前へ→


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

Mi - 05/12/5(月) 22:00 -


	引用なし

	パスワード

▼Kein さん：
すみません。
また質問が出てきました。もう少しシートの体裁を考えトグルを使おうか
…と思い、チャレンジ中です。
トグルボタンと組合すようなことは出来ますでしょうか。
貴殿から頂いたコードと小生のトグルボタンのコードの組み合わせを
試みたのですが、上手く行きません。トグルが働いてもＨiddennが
Falseに成らないのです。
トグルのコードは次の通りです。
Private Sub ToggleButton1_Click()
　　If ToggleButton1.Value = True Then
　　　　ToggleButton1.Caption = "非表示"
　　Else
　　　　ToggleButton1.Caption = "表示"
　　End If
End Sub

>>全シートをループして処理すればよいでしょう。
>>
>>Private Sub CheckBox1_Change()
>>　Dim Sh Ws Worksheet
>>　Dim Flg As Boolean
>>
>>　Flg = CheckBox1.Value
>>　For Each Sh In Worksheets
>>　　 Sh.Columns("A:D").Hidden = Flg
>>　Next
>>End Sub

1 hits

▼

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