No.2
- 回答日時:
こんにちは
想定できる原因は、すでに回答にありますが、変数 k の使い方に問題があるのではないでしょうか。(ループに問題があるのではない)
ご自身でkの値をモニターしてkに11が代入されるタイミングを確認するのはいかがでしょう。
方法はいくつかありますが、
ウォッチウィンドウを表示してkを設定すれば変化がわかります。
http://excelvba.pc-users.net/fol8/8_3.html
ちなみにループ内でkの値を変更しても変数 i が10に達するとforを抜けると思います。抜けた時(Next iの下)で変数 i は、11ですが。
変数の使用方法としては、改善が必要と思います。(例えが上手くないだけかも知れませんが)
わかり易く変数 k を流用しないとか、ロジックを見直すとかです。
n = 3
k = 10
変数の初期値を設定する目的であれば、kは定数にするべきと思います。
Const k = 10
更に付け加えると、変数にする意味が無いのではと思います。
変数を使用する場合は、
例:k=Cells(Rows.Count, 1).End(xlUp).Row などなど
範囲(回数)が確定していない時です。例は処理前のA列(値のある)最終行
処理によりループ範囲を変えたい場合は、
for nextでなく do loop を使用する事も考えてみてください。
例えば、条件を満たすまでループさせたいのなら、
Do While 条件式 や Do Until 条件式 で
条件式を満たすまで繰り返す処理
Loop
とする方法があります。(注意:条件式を満たさなければ無限ループ)
ループ内の処理がわかりませんが、カウント変数 i を使用した方が良いのでは?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA横データを縦にしたいです 2 2023/08/08 19:38
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) 【VBA】For文を使用し、行をコピーして別シートに貼り付ける方法を教えてください。 4 2022/07/19 09:01
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Excel(エクセル) vba 「Nextに対するForが見当たりません」のエラーが発生する原因 1 2022/10/21 15:46
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
-
4
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
5
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
6
エクセル 日付による並べ替えのマクロ
Excel(エクセル)
-
7
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
8
MsgBoxがコンパイルエラーになります
Access(アクセス)
-
9
VBA たまに変数がempty値になるエラー
Excel(エクセル)
-
10
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
11
VBE画面とシート画面を同時に表示させるには?
Excel(エクセル)
-
12
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
13
VBAでのリスト不一致抽出について
Visual Basic(VBA)
-
14
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
15
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
16
ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存
Visual Basic(VBA)
-
17
B列の最終行までA列をオートフィル
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
範囲指定したセルを1つずつ飛...
-
VBAで3秒だけ時間を止めたい
-
VBA for文が止まらない
-
while(*s++=*t++)の判定は?
-
ネットワークループとルーティ...
-
UWSCの終了の仕方
-
簡単なエクセルVBA
-
VLC media Playerでのループ再生
-
VB.NETで素因数分解のプログラ...
-
GIFアニメをループさせたくない
-
DOSコマンドのループ内のTIMEコ...
-
Excel VBAで、アクティブシート...
-
CSVファイルの特定の行だけを読...
-
【VBA】全て空白のセルの列の非...
-
XMLファイルをDataSetに読込む...
-
乱数の桁数指定、または範囲指定。
-
DoEventsが必要な理由について
-
Do whileでExitせず、ループの...
-
VBA for i=1 to lastrow
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
VBAでの一時停止と再開の方法
-
UWSCの終了の仕方
-
DoEventsが必要な理由について
-
VBAで3秒だけ時間を止めたい
-
範囲指定したセルを1つずつ飛...
-
Escキーを押すと、中断する時と...
-
DOSコマンドのループ内のTIMEコ...
-
vbscriptでIE自動入力(途中で...
-
乱数の桁数指定、または範囲指定。
-
GIFアニメをループさせたくない
-
プログラミングについて。 1つ...
-
テキストボックスの名前に変数...
-
エクセルの当番表を作っていま...
-
ループフリー
-
vb.netからエクセル関数書き込み
-
CSVファイルの特定の行だけを読...
-
VBA for i=1 to lastrow
-
どなたかこのプログラミングを...
-
Do whileでExitせず、ループの...
おすすめ情報