[[20220609142553]]　『 Findメソッドのオブジェクトエラーについて』（だいき）　ページの最後に飛ぶ

『 Findメソッドのオブジェクトエラーについて』（だいき）

このwhatの部分に変数を用いて、検索ワードを順にやっていきたいのですが、
エラーが出てしまいます。
初心者であまりよくわかってないのですが、ご教授お願いします。

Sub 入金額実査()

  Dim i
  Dim rngHitCell As Range
  Dim rngSearchArea As Range
  Dim keyWord As String
  For i = 7 To 201
    keyWord = Worksheets("データ").Cells(i, 7)

  Set rngSearchArea = Worksheets("売上表").Range("F7:F122")
  Set rngHitCell = rngSearchArea.Find(what:=keyWord, LookIn:=xlValues)

 Dim strAddress As String
  Dim intRowNo As String
  Dim intColNo As String

  strAddress = rngHitCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)
  intRowNo = rngHitCell.Row
  intColNo = rngHitCell.Column

  Worksheets("データ").Cells(i, 4) = Worksheets("売上表").Cells(intRowNo, 2)

  Next

End Sub

＜使用 Excel：unknown、使用 OS：unknown ＞

やりたいことは、
STEP1「データ」シートのG列2行目から201行目までのセルの値を、順に検索値とする
STEP2 (1)の検索値を「売上表」シートのセル範囲　F7:F122　から検索する
STEP3 上記の検索で見つかったら、検索値の同じ行のD列に、発見したセルのB列の値を書き込む
　　　STEP1 に戻って繰り返し
でいいんでしょうか？
検索で必ず見つかることが前提のコードになってます
検索して、見つかったか否かで、条件分岐しないとだめですね

（と） 2022/06/09(木) 14:52

keyWord = Worksheets("データ").Cells(i, 7)
↓
keyWord = Worksheets("データ").Cells(i, 7).value

（ah） 2022/06/09(木) 14:55

と　様
コメントありがとうございます。
条件分岐は
Worksheets("データ").Cells(i, 4) = Worksheets("売上表").Cells(intRowNo, 2)
ここの部分を書き換えれば良いのでしょうか。

（だいき） 2022/06/09(木) 15:33

勝手にエラーの原因を想像しているだけなのでね

Findメソッドで検索したとき、見つからなかった場合、rngHitCell はNothing になります
なので、rngHitCell が Nothing かどうか調べて、Nothing じゃないときだけ、
その後のSTEP3の処理をするようにしないといけないです

エラーの出る箇所とエラーメッセージを書いてください

（と） 2022/06/09(木) 15:46

strAddress = rngHitCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)

この部分がオブジェクト変数またはWithブロック変数が設定されておりませんとなっております。

（だいき） 2022/06/09(木) 15:54

想像どおりです。
対応策は回答済みです
（と） 2022/06/09(木) 15:55

ご参考。

https://www.239-programing.com/cgi-bin/excelvba_bbs.cgi?id=788
https://excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=194976&rev=0

（変なおやじ） 2022/06/09(木) 16:06

別掲示板で解決したあと放置されるのが我慢ならないすね
失礼なことしてる意識ないんですかね
（と） 2022/06/09(木) 19:30

マルチポストだったのか。
（マルチ） 2022/06/09(木) 20:26

短気かよ
（w） 2022/06/10(金) 08:54

コメント返信：

[ 一覧(最新更新順) ]

[[20220609142553]] 『 Findメソッドのオブジェクトエラーについて』（だいき） ページの最後に飛ぶ

[[20220609142553]]　『 Findメソッドのオブジェクトエラーについて』（だいき）　ページの最後に飛ぶ