|
▼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
|
|