- ベストアンサー
エクセルVBA：変数の疑問？
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
配列にすれば出来るでしょうが・・・ Dim 変数(1 To 5) 変数(1) = XXX ... 変数(5) = XXX For i = 1 to 5 xxxxxxx(変数(i)) Next i
関連するQ&A
- VBA 変数を使うべき？
VBA 変数を使うべき？ VBAを独学で勉強中のものです。 エクセルVBAでデータが入っている行数分処理を行いたい場合などに ------------------------------------------------ lastRow = cells(rows.count,1).end(xlup).row for i = 1 to lastRow ・・・ next i ------------------------------------------------ などと最終行を変数に代入して使う場合と ------------------------------------------------ for i = 1 to cells(rows.count,1).end(xlup).row ・・・ next i ------------------------------------------------ などと直接for文の中で指定する場合とでは結果は同じと思うのですが 結果以外の部分で見た場合どちらで行うほうがいいのでしょうか？
- ベストアンサー
- Visual Basic
- Excel マクロ：変数を複数使う場合
マクロ初心者です。 For文で、変数を２つ定義し、それぞれが１つずつ増えてくれるような マクロを組みたいのですが、うまくいきません。 例えばA列の並んだ数字を、B列に一個とばしで入力するとして・・・ 例） Dim i As Integer Dim j As Integer For j = 2 To 10 Step 2 For i = 1 To 9 Cells(j, 2).Value = Cells(i, 1).Value Next i, j ではだめですよね。iが１つ増える時に、jも１つ増える、 というようにVBAを組むことが可能なのでしょうか？ ど素人な質問ですみませんが、教えてください。
- ベストアンサー
- オフィス系ソフト
- VBAにおいて、""内で変数を使用したい
VBAにおいて、""内で変数を使用したい 0864_001.xls 0864_002.xls … 0864_009.xls というファイルがあるとき、0864_001.xlsを開く→処理→閉じる→0864_002.xlsを開く→… というように処理をしたいと思い、以下のようなマクロを作成しました。 Sub Test() Dim i As Integer For i = 1 To 9 Workbooks.Open ThisWorkbook.Path & "\0864_00i.xls" 処理 閉じる Next i End Sub 実行しようとしてもファイルを開くことが出来ずに困っています。 ""内で変数を使うことは出来ないのでしょうか？ また、どのようにすれば実行できるようになるのか教えてください。
- ベストアンサー
- その他MS Office製品
- エクセルVBAラベルの変数？
エクセル２０００VBAにて下記のように作成しました。 With ActiveSheet For i = 4 To 200 If Label1.Caption = .Cells(i, 1) Then For h = 4 To 34 If Label25.Caption = .Cells(2, h) Then For idx = i To 200 If .Cells(idx, 3) = Label21.Caption Then Label6.Caption = .Cells(idx, h) Label7.Caption = .Cells(idx + 2, h) GoTo ラベル2 End If Next idx End If Next h End If Next i ラベル2: For i = 4 To 200 If Label2.Caption = .Cells(i, 1) Then For h = 4 To 34 If Label25.Caption = .Cells(2, h) Then For idx = i To 200 If .Cells(idx, 3) = Label21.Caption Then Label8.Caption = .Cells(idx, h) Label9.Caption = .Cells(idx + 2, h) GoTo ラベル3 End If Next idx End If Next h End If Next i ラベル3: ・・・ End With Label1～5まで同じ処理を行うため 1～5まで変数を使用して簡単にしたいのですが Label(変数）の書き込み方がわかりません？ 検索を使用しましたが検索項目が悪いのか なかなか解決しません。 何方か教えていただけないでしょうか？
- 締切済み
- オフィス系ソフト
- エクセルvbaの変数について
エクセルVBAについて、同じ型の値が複数列あった際に、変数に取り入れる方法として、それぞれ一つずつ別々に変数に入れる場合と、ユーザー定義型変数を定義して入れる場合の二つがあると思いま すが、どちらの方がメモリを使わなくて済むのでしょうか。また、他にも長短があればご教示下さい。
- 締切済み
- Visual Basic
- ＡＣＣＥＳＳの変数で
超初心者です。お世話になります。 VBAの変数について教えて下さい。 例えば変数１～変数１０まであるとします。 そこに氏名１～氏名２０までを代入します。 そのとき、一つずつしていると、効率が悪いので、 For Next を使いたいと思います。 For 繰り返し = 1 to 10 で、変数の数字の部分を繰り返しで増やしていこうと思ったのですが、 "変数"と"繰り返し"のくっつけ方がどうも上手くできません。 どのようにしたらよいのでしょうか？ あと、このように、Me.○○の部分も変数と変数をくっつけたいのですが、無謀でしょうか？ わかりにくい説明で申し訳ありませんが、よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- excel VBAの文字列設定
VBAで繰り返し作業を行っているのですが変数と文字列の組み合わせの設定に困っています。 for ～next（変数ｘ）で繰り返しを行い medx の文字列を検索したいのですがうまくいきません。 疑問の部分は以下の範囲です 定義 x, y, i, ro, li as integer med1～medx までそれぞれ別の文字列（ex. med1= a med2 = b・・・ 統一性はないです） VBA部分 If y > 1 Then For x = 1 To y - 1 For i = 1 To 13 ←sheet数 For ro = 1 To 150 ←行 For li = 1 To 200 ←列 Worksheets("sheet" & i).Select If InStr(Cells(ro, li), "med" & x) > 0 Then ←疑問部分 med1、med2・・・を含むかどうか Cells(ro, li).Interior.ColorIndex = 3 Else End If Next Next Next Next else end if 上のように書くと"med1"を含むかどうがになってしまい、"a"を含むかどうかになりません。 わかりにくいかもしれませんが回答どうぞお願いします。
- ベストアンサー
- その他MS Office製品
- VBAでループ内で使う変数名を可変にできないか。
次のような処理で・・・、 Cnt_1 = Cnt_1 + 1 Cnt_2 = Cnt_2 + 1 ： 実際には一つの変数（Cnt_1など）ごとに処理がもっとあるのですが、 変数はCnt_1からCnt_5まであり、すべて同じ処理をするので、変数名を 可変にして同じループで書けないかと思うのですが、可能でしょうか？ たとえば、 For I=1 to 5 Cnt_I = Cnt_I + 1 Next I と書くと、「Cnt_I」という変数の処理になってしまいますね・・。 なにかいい方法はないでしょうか？
- ベストアンサー
- Visual Basic
- VBAの変数の定義について
いつもお世話になっております。 VBAでの変数の定義についてお尋ねします。 VBAの勉強を始めたばかりの超初心者です。 I.チェック：A列とC列の和をE列に記載してその正誤を判定。 II.リセット：E列をクリアし、A列、C列の数字をランダムに置き換える。 という練習問題のコードを私が書いたものです。 以下について質問させていただきます。 (1)下記はモジュールレベルでの変数の宣言になると思いますが、変数の定義？例えば、最終値 = Range("A4").End(xlDown).Rowはそれぞれのプロシージャで定義しなければならないのでしょうか？ (2)モジュールレベルでの変数の宣言は,Dimではなく、Privateでやるべきなのでしょうか？ (3)何か指摘事項があれば、教えてください。 超初歩的な質問で、申し訳ありませんが、よろしくお願いいたします。 Option Explicit Dim i As Integer '処理用カウンタ変数 Const 初期値 As Integer = 4 '表の最初 行 Dim 最終値 As Integer '表の最終 行 Sub チェック() 最終値 = Range("A4").End(xlDown).Row '表の最終行番号を取得 For i = 初期値 To 最終値 Step 1 If Cells(i, 1).Value + Cells(i, 3).Value = Cells(i, 5).Value Then 'A列+B列 Cells(i, 5).Font.Color = vbBlue '回答が正ならフォントを青 Else Cells(i, 5).Font.Color = vbRed '回答が誤ならフォントを赤 End If Next i End Sub Sub リセット() 最終値 = Range("A4").End(xlDown).Row '表の最終行番号を取得 For i = 初期値 To 最終値 Step 1 Cells(i, 5).ClearContents '回答をクリア Cells(i, 5).Font.Color = vbBlack '回答のフォントを黒 Cells(i, 1).Value = Int(Rnd * 100) 'A列にランダムな数値 Cells(i, 3).Value = Int(Rnd * 100) 'C列にランダムな数値 Next i End Sub
- ベストアンサー
- Excel（エクセル）
- Excel VBA ループ処理のデバッグについて
Excel VBAで、for文のループについて。 for i=1 to maxNum (処理) next i というような場合。F8キーとかでステップインしデバッグしながらテストしてみます。maxNumが5万くらいとして、とりあえず1万くらいまでは一気にiの値を進めてから止めて、様子を見てみようという場合、どうすればよいでしょうか。 if i=10000 then とか、前もってコードに書いて置く以外の手段でお願いします。なぜなら10000のときだけ処理を止めると限定するのではなく、30000のときとか49997のとき止めるとか、その時その時で色々と試してみたいからです。
- ベストアンサー
- Excel（エクセル）
お礼
ありがとうございます。 ()でくくるって事が良く分かってなかったです。