当方マクロ初心者ですが下記のマクロをCheckBox0~CheckBox23についてコピーするセルを変化させながら繰り返し処理を行いたいのですが、簡単なループ処理で行えますか?
教えていただければ幸いです。
If CheckBox0.Value = True Then
Worksheets("sheets1").Activate
行 = Worksheets("sheets1").Range("e7")
行 = 行
Worksheets("sheets1").Range("g7:t7").Copy
Windows("Books1.xls").Activate
Sheets("sheets1").Select
Range(Cells(行, 15), Cells(行, 15)).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
No.2ベストアンサー
- 回答日時:
23とおりの中の1つ、ないしは複数を選ばせる場合、こういう風に
オブジェクトを選ばすのでなく、1つのオブジェクト(コントロール、リストボックスのような)でMultiSelectさせて、その選択された中身で処理選択が分かれるようにすべきではないですか。コントロールの配列化ができないVBAの場合はなおさら。
そして選択肢と処理のパターンや(要素、この場合、シート、行、列、セルなど。)処理は出来るだけ、テーブル化できないか工夫する)
ーー
質問にはコメントもつけないコードを挙げて、読者・回答者に読み解かせるのではなく、処理したい内容の文章も添えるとか、質問者の心配りがほしい。
もっと質問の内容を抽象化できないのかな。
下記が、質問の主旨と離れておれば無視してください。
ーー
コントロールの場合
ChekBox○○の○○(=数字)ガ連続していることをいいことに
Private Sub UserForm_Click()
For i = 1 To 3
Controls("CheckBox" & i).Value = False
Next i
End Sub
のようなことが行われる。
UserFormのチェックボックスはよいが、WorkSheetのチェックボックスはうまく行かないようだ。
Googleで「VBA コントロール配列」で照会してみてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
メルカリのメルカードで買い物...
-
VBAでループ内で使う変数名を可...
-
EXCEL VBA マクロ 実行する度に...
-
【Excel】特定の文字を含むセル...
-
DoEventsがやはり分からない
-
switch の範囲指定
-
VB.NET Excelを読み込んでDataT...
-
UMLでの例外処理
-
Select Case文でこのようなこと...
-
VBの質問#if 0 then ってどう...
-
findは動くがfindnextがマクロ...
-
フローチャート
-
Do~Loopした回数をカウントしたい
-
VBAでセルに値が入力されるまで...
-
月度は何て読みますか?
-
リョウ・・・量?料?
-
C# 画面のちらつきを解消したい
-
インタラクティブの反対語は?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
メルカリのメルカードで買い物...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
【Excel】特定の文字を含むセル...
-
EXCEL VBA マクロ 実行する度に...
-
DoEventsがやはり分からない
-
UMLでの例外処理
-
月度は何て読みますか?
-
switch の範囲指定
-
VBの質問#if 0 then ってどう...
-
セルの値が0はクリアするマクロ
-
VB.NET Excelを読み込んでDataT...
-
Do~Loopした回数をカウントしたい
-
Loadイベント中にほかのイベン...
-
Select Case文でこのようなこと...
-
findは動くがfindnextがマクロ...
-
緊急です。 知り合いから50kgの...
-
リョウ・・・量?料?
-
理不尽、行き場のないイライラ...
おすすめ情報