Excel VBA質問箱 IV

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

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


49561 / 76732 ←次へ | 前へ→

【32077】Re:チェックボックスの使い方について
質問  Mi  - 05/12/5(月) 22:00 -

引用なし
パスワード
   ▼Kein さん:
すみません。
また質問が出てきました。もう少しシートの体裁を考えトグルを使おうか
…と思い、チャレンジ中です。
トグルボタンと組合すようなことは出来ますでしょうか。
貴殿から頂いたコードと小生のトグルボタンのコードの組み合わせを
試みたのですが、上手く行きません。トグルが働いてもHiddennが
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
2 hits

【32022】チェックボックスの使い方について Mi 05/12/4(日) 20:39 質問
【32023】Re:チェックボックスの使い方について かみちゃん 05/12/4(日) 20:47 回答
【32024】Re:チェックボックスの使い方について Mi 05/12/4(日) 21:39 質問
【32029】Re:チェックボックスの使い方について Kein 05/12/4(日) 23:30 回答
【32073】Re:チェックボックスの使い方について Mi 05/12/5(月) 20:28 お礼
【32077】Re:チェックボックスの使い方について Mi 05/12/5(月) 22:00 質問
【32078】Re:チェックボックスの使い方について かみちゃん 05/12/5(月) 22:26 回答
【32084】Re:チェックボックスの使い方について Mi 05/12/6(火) 7:10 お礼

49561 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free