Excel VBA質問箱 IV

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

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


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

62311 / 76738

←次へ　｜　前へ→


	【19034】Re:コードを短くしたい

かみちゃん - 04/10/19(火) 23:16 -


	引用なし

	パスワード

こんちには。かみちゃん　です。

>>ちなみに、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

0 hits

▼

【18963】コードを短くしたい mickeypapa 04/10/17(日) 22:20