質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
for

for文は、様々なプログラミング言語で使われている制御構造です。for文に定義している条件から外れるまで、for文内の命令文を繰り返し実行します。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

ループ

ループとは、プログラミングにおいて、条件に合致している間、複数回繰り返し実行される箇所や、その制御構造を指します

Q&A

解決済

2回答

1062閲覧

ループの結果がおかしい、指定範囲外のセルに結果が出力される

hkok96

総合スコア3

for

for文は、様々なプログラミング言語で使われている制御構造です。for文に定義している条件から外れるまで、for文内の命令文を繰り返し実行します。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

ループ

ループとは、プログラミングにおいて、条件に合致している間、複数回繰り返し実行される箇所や、その制御構造を指します

0グッド

0クリップ

投稿2022/01/06 08:44

編集2022/01/06 08:50

前提・実現したいこと

for文で1ずつ加算されていく繰り返し処理をしています。
B5に値を入れるとその直下のB6にはB5と同じ値、B7以降は1ずつ加算されていくようにしたいです。

For i 1 to 10 までの繰り返し処理ですが、i=10の結果が処理で指定していないセルに出力されます。

実現したい状態↓
イメージ説明

発生している問題・エラーメッセージ

イメージ説明

・B5セルに、最初に入れた値ではなくループ処理の最後のB15に出力された値と同じ値が入力されます

該当のソースコード

vba

1Sub sample() 2 Dim i As Long 3 Dim number As Range 4 Set number = Cells(5, 2) 5 Dim calcNumber As Range 6 Set calcNumber = Cells(i + 5, 2) 7 8 9 For i = 1 To 10 10 If i = 1 Then 11 calcNumber = number 12 13 Else 14 calcNumber = calcNumber + 1 15 16 End If 17 Cells(i + 5, 2).Value = calcNumber 18 19 20 Next i 21 22 'MsgBox i 23 'MsgBox calcNumber 24 'MsgBox number 25End Sub

試したこと

MsgBox i

で「11」が出力されました。

MsgBox number

で「14」が出力されました。

補足情報(FW/ツールのバージョンなど)

ここにより詳細な情報を記載してください。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

ベストアンサー

VBA

1Sub sample() 2 Dim i As Long 3 Dim number As Long 4 number = Cells(5, 2).Value 5 Dim calcNumber As Long 6 calcNumber = Cells(i + 5, 2).Value 7 8 9 For i = 1 To 10 10 If i = 1 Then 11 calcNumber = number 12 13 Else 14 calcNumber = calcNumber + 1 15 16 End If 17 Cells(i + 5, 2).Value = calcNumber 18 19 20 Next i 21 22 'MsgBox i 23 'MsgBox calcNumber 24 'MsgBox number 25End Sub

投稿2022/01/06 09:36

jinoji

総合スコア4585

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

hkok96

2022/01/07 00:17

解決しました。ありがとうございます。変数numberやcalcNumberの型やセットの仕方でうまくいかなかったようです。
jinoji

2022/01/07 00:44

Set calcNumber = Cells(i + 5, 2) でセルの値でなく初期値セルそのものをセットしているので、 calcNumber = calcNumber + 1がそのセルの値を更新する文になってしまっていたということかと。
hkok96

2022/01/07 04:02

なるほど、ありがとうございます。
guest

0

こういうことですか。

VBA

1Sub sample() 2 Dim i As Long 3 Dim number As Long 4 number = Cells(5, 2).Value 5 For i = 1 To 10 6 Cells(i + 5, 2).Value = i - 1 + number 7 Next i 8End Sub 9

投稿2022/01/06 09:33

tatsu99

総合スコア5424

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

hkok96

2022/01/07 00:18

ありがとうございます。numberの型とセットの仕方、勉強になりました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問