Excel VBA質問箱 IV

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

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


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

49565 / 76732

←次へ　｜　前へ→


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

Mi - 05/12/5(月) 20:28 -


	引用なし

	パスワード

▼Kein さん：

ありがとうございました。
感激です…この短いコードで、何故？
っと思います。非表示になることは朧気ながら
推測できますし、またループして処理されている事も
分かりますが、「チェック」を外すと≪表示≫される
ことが理解できません。
でも、このように教えていただき大変うれしいです。

>全シートをループして処理すればよいでしょう。
>
>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

2 hits

▼

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