Excel VBA質問箱 IV

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

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


49560 / 76732 ←次へ | 前へ→

【32078】Re:チェックボックスの使い方について
回答  かみちゃん  - 05/12/5(月) 22:26 -

引用なし
パスワード
   こんにちは。かみちゃん です。

横から失礼します。

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

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