|
こんちには。かみちゃん です。
>>ちなみに、ActiveSheet.Nameで、「アクティブなシートの名前」は取得できますが、これが「稼動1」「稼動2」・・・のどれなのかを調べて、一致したら、そのシートに対するチェックボックスをTrueにすることはできるのですが。
>説明が下手で申し訳ありません。アクティブなシートとは、選択しているシート
>表示されているシートという意味です。宜しくお願い致します。
前回のコメントで書いたとおりなのですが、それをコードにすると、以下のような感じになるかと思います。
Dim i As Integer
'チェックボックスをすべてFalseにする。
For i = 1 To 30
Me.Controls("CheckBox" & i).Value = False
Next
'アクティブシートが「稼動1」〜「稼動30」のどれかを検索する。
'i=0としているところに注意
For i = 0 To 30
If ActiveSheet.Name = "稼動" & i Then
Exit For
Next
'アクティブシートのチェックボックスをTrueなする。
If i > 0 Then Me.Controls("CheckBox" & i).Value = True
|
|