現在、VBAで、
Find関数で行う処理を記述しています。
以下、記述------------------------
Dim LastRow, onecell As String
Dim OrderNew As String
LastRow = Range("B38").End(xlDown).Row
oldad = 38
For cnt = 38 To LastRow
OrderNo = Range("D" & oldad).Value
Range("K" & cnt).Value = Range("B" & oldad).Value
Range("M" & cnt).Value = Range("C" & oldad).Value
Range("N" & cnt).Value = Range("D" & oldad).Value
Range("O" & cnt).Value = Range("E" & oldad).Value
Range("P" & cnt).Value = Range("F" & oldad).Value
Range("P" & cnt).Value = Range("G" & oldad).Value
Range("Q" & cnt).Value = Range("H" & oldad).Value
Set OrderNoResult = Range("D" & 38 & ":D" & LastRow).Find (OrderNo, MatchByte:=False, MatchCase:=False, LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows)
OrderResultValue = OrderNoResult.Value
Do While OrderNoResult.Value = OrderResultValue oldad = OrderNoResult.Row
Set OrderNoResult = Range("D" & 38 & ":D" &LastRow).FindNext(OrderNoResult)
If OrderNoResult Is Nothing Then
Exit Do
End If
Loop
Range("L" & cnt).Value = Range("B" & oldad).Value
Range("R" & cnt).Value = Range("I" & oldad).Value
oldad = oldad + 1
Next cnt
終わり----------------------------
30週目で必ず止まります。値はあります。Ctrl+Fで同じ値をペーストして、実行して該当したので間違いありません。
また、一度停止し、再度実行すると、その一周は動き、また停止します。これを一回ずつ繰り返す場合は、問題なく処理されます。
オブジェクトの初期化のような処理が必要なのでしょうか?
ご教授お願いいたします。
No.2ベストアンサー
- 回答日時:
根本的に Find の使用の仕方が間違ってると思います
下記で代用できませんか
Dim LastRow As String
Dim OrderNew As String
'最終行を取得
LastRow = Range("B38").End(xlDown).Row
oldad = 38
'最終行になるまでループ
For cnt = 38 To LastRow
'初期値セット(値が詰められている最初の行)。一週目は'1'
OrderNo = Range("D" & oldad).Value
'ヘッダーをセット。
Range("K" & cnt).Value = Range("B" & oldad).Value
Range("M" & cnt).Value = Range("C" & oldad).Value
Range("N" & cnt).Value = Range("D" & oldad).Value
Range("O" & cnt).Value = Range("E" & oldad).Value
Range("P" & cnt).Value = Range("F" & oldad).Value
Range("P" & cnt).Value = Range("G" & oldad).Value
Range("Q" & cnt).Value = Range("H" & oldad).Value
'D列の注文番号を検索。Rangeオブジェクトを格納。
'Rangeオブジェクトから値を格納。
OrderResultValue = Range("D" & oldad).Value
'ループ。比較。検索される値が見つからなくなったらその行番号を取得し、 _
IF文によりループエンド。その際、次の検索開始位置をoldadで確保。
Do While Range("D" & oldad + 1).Value = OrderResultValue
oldad = oldad + 1
Loop
Range("L" & cnt).Value = Range("B" & oldad).Value
Range("R" & cnt).Value = Range("I" & oldad).Value
'決済行の次行が、新たな発注番号のため、oldad+1で次行取得。
oldad = oldad + 1
Next cnt
試してみてください
解決しました。
私のやりたい処理は、そもそもループで拾える処理だったんですね・・・・。
私があまりに短絡的な発想をしていたみたいで恐縮です。
非常に助かりました。
ありがとうございます。
No.1
- 回答日時:
こんな複雑なコードを質問にコピーし、エラーを考えてくれていうのは無茶だ。
コードを読み解くことまで読者に放り投げている。
全体的なエクセルでの処理・データの成り立ち・したいことを文章で説明すること。
プログラムでやっている処理など文章ででも説明を添えたら。
>Range("K" & cnt).Value = Range("B" & oldad).Value
でCntは38から最下行まで変化させているが、右辺のoldad = 38は38で固定している。処理内容がFindならなぜ繰り返すのか一見して判らなかった。
>30週目で
週は表上ではどう変化するのか?週が変わるとデータの列が変わるのか?
突然出てきて判らない。読者・回答者に配慮した質問をしてほしい。
作った自分だけが判ることでは困る。
例えばFind("g")は私の勝手な例ですが
Sub test02()
LastRow = Range("B38").End(xlDown).Row
OrderNoResult = Range("D" & 38 & ":D" & LastRow).Find("g")
MsgBox OrderNoResult
End Sub
では、初発見のセルの「値」しか返さないが、値は探索した値に決まっている。普通は見つかった行などを後の処理に使うのではと思うが、値では何に使うのかな。
後の重複発見探求はFindNextで追求する必要が有るが、
OrderResultValue = OrderNoResult.Value
はなぜ行っているのか。
この回答への補足
現在、VBAで、
Find関数で行う処理を記述しています。
以下、記述------------------------
Dim LastRow As String
Dim OrderNew As String
'最終行を取得
LastRow = Range("B38").End(xlDown).Row
oldad = 38
'最終行になるまでループ
For cnt = 38 To LastRow
'初期値セット(値が詰められている最初の行)。一週目は'1'
OrderNo = Range("D" & oldad).Value
'ヘッダーをセット。
Range("K" & cnt).Value = Range("B" & oldad).Value
Range("M" & cnt).Value = Range("C" & oldad).Value
Range("N" & cnt).Value = Range("D" & oldad).Value
Range("O" & cnt).Value = Range("E" & oldad).Value
Range("P" & cnt).Value = Range("F" & oldad).Value
Range("P" & cnt).Value = Range("G" & oldad).Value
Range("Q" & cnt).Value = Range("H" & oldad).Value
'D列の注文番号を検索。Rangeオブジェクトを格納。
Set OrderNoResult = Range("D" & 38 & ":D" & LastRow).Find (OrderNo, MatchByte:=False, MatchCase:=False, LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows)
'Rangeオブジェクトから値を格納。
OrderResultValue = OrderNoResult.Value
'ループ。比較。検索される値が見つからなくなったらその行番号を取得し、IF文によりループエンド。その際、次の検索開始位置をoldadで確保。
Do While OrderNoResult.Value = OrderResultValue oldad = OrderNoResult.Row
Set OrderNoResult = Range("D" & 38 & ":D" &LastRow).FindNext(OrderNoResult)
If OrderNoResult Is Nothing Then
Exit Do
End If
Loop
Range("L" & cnt).Value = Range("B" & oldad).Value
Range("R" & cnt).Value = Range("I" & oldad).Value
'決済行の次行が、新たな発注番号のため、oldad+1で次行取得。
oldad = oldad + 1
Next cnt
終わり----------------------------
ご教授お願いいたします。
@書き直しました。
・やりたいこと
ある行に、注文番号が1から連なっています。
この注文番号で構成されるレコードは、重複もあります。
発注「1」
注文変更「1」
決済「1」
のように、多レコードで構成されています。
今回やりたいのは、この発注部分と決済部分の注文番号の取得です。
乱暴な記述をしてしまい申し訳ありません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) Dateserialで データ抽出 2 2022/06/26 21:07
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】NEW演歌
【大喜利】 若い人に向けたことは分かるけど、それはちょっと寄せ過ぎて変になってないか?と思った演歌の歌詞
-
チョコミントアイス
得意ですか?不得意ですか?できれば理由も教えてください。
-
ホテルを選ぶとき、これだけは譲れない条件TOP3は?
ホテルを探す時、予約サイトで希望条件の絞り込みができる便利な世の中。 あなたは宿泊先を決めるとき「これだけは譲れない」と思う条件TOP3を教えてください。
-
あなたは何にトキメキますか?
「きゅんとした〜♪」 と思う瞬間ってありますよね。 それは恋愛だったり、推し活だったり、映画のワンシーンだったり……。
-
うちのカレーにはこれが入ってる!って食材ありますか?
カレーって同じルーから作っても、家庭によって入っているものや味が微妙に違っていて面白いですよね! 「我が家のカレーにはこれが入ってるよ!」 という食材や調味料はありますか?
-
VBA 見つからなかった時の処理
Excel(エクセル)
-
VBA エクセル で FIND でのエラーについて,教えてください。
Excel(エクセル)
-
findは動くがfindnextがマクロで動きません。記述は同じはずなのですが…
Visual Basic(VBA)
-
-
4
Excel VBAマクロで実行時エラー'91'が出てしまいます。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
DoEventsがやはり分からない
-
VBの質問#if 0 then ってどう...
-
switch の範囲指定
-
【Excel】特定の文字を含むセル...
-
VBAでループ内で使う変数名を可...
-
メルカリのメルカードで買い物...
-
UMLでの例外処理
-
月度は何て読みますか?
-
インタラクティブの反対語は?
-
お家デートをしててハグを長い...
-
フォーム上のすべてのTextBoxを...
-
vbaの質問です。初心者です。 ...
-
リョウ・・・量?料?
-
EXCEL VBA マクロ 実行する度に...
-
VBAでセルに値が入力されるまで...
-
FFTの結果ついて
-
wshで起動したコマンドををタイ...
-
IQテストの数列
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
switch の範囲指定
-
UMLでの例外処理
-
EXCEL VBA マクロ 実行する度に...
-
DoEventsがやはり分からない
-
メルカリのメルカードで買い物...
-
インタラクティブの反対語は?
-
月度は何て読みますか?
-
【Excel】特定の文字を含むセル...
-
findは動くがfindnextがマクロ...
-
VBの質問#if 0 then ってどう...
-
リョウ・・・量?料?
-
お家デートをしててハグを長い...
-
VB.NET Excelを読み込んでDataT...
-
iD
-
Do~Loopした回数をカウントしたい
-
FFTの結果ついて
-
2重のDo~Loopは?
おすすめ情報