Excel VBA質問箱 IV

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

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


62305 / 76732 ←次へ | 前へ→

【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 質問
【18964】Re:コードを短くしたい かみちゃん 04/10/17(日) 23:13 回答
【18985】Re:コードを短くしたい mickeypapa 04/10/18(月) 23:31 質問
【18988】Re:コードを短くしたい かみちゃん 04/10/19(火) 6:40 発言
【19031】Re:コードを短くしたい mickeypapa 04/10/19(火) 21:28 質問
【19034】Re:コードを短くしたい かみちゃん 04/10/19(火) 23:16 回答
【19053】Re:コードを短くしたい mickeypapa 04/10/20(水) 9:51 お礼
【18966】Re:コードを短くしたい Kobasan 04/10/18(月) 0:26 回答
【18981】Re:コードを短くしたい mickeypapa 04/10/18(月) 21:13 お礼

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