VBAのデータ抽出ついて

Question

特定のシートのデータを抽出し別シートに一覧を書き込むマクロです。
下記コードでエラーの箇所がわからず困っています。
ご教授願えないでしょうか？

追記
質問の説明が不足して申し訳ありません。
ステップ実行してもエラーの場所は表示されず
コンパイルエラー：
修正候補：式
とだけ表示されます。
データ挿入先↓

データ元↓

Sub test()
    Dim aObj As Range
    Dim bObj As Range
    Dim cObj As Range
    Dim dObj As Range
    Dim myObj As Range
    Dim iNum As Integer
    Dim keyWord As String
    Set aObj = Worksheets("a").Range("B3:B53")
    Set bObj = Worksheets("b").Range("B3:B53")
    Set cObj = Worksheets("d").Range("B3:B53")
    Set dObj = Worksheets("c").Range("B3:B53")
    Dim count As Integer    
    For iNum = 0 To 9
        '---対象の行の名前取得---'
        count = iNum * 8
        If Range("E25").Offset(count, 0).Value <> "" Then
            keyWord = Range("E25").Offset(count, 0).Value
            '---対象名のシート検索---'
            Set myObj = aObj.Find(keyWord, LookAt:=xlWhole) '---aのシート検索---'
            If myObj Is Nothing Then Set myObj = bObj.Find(keyWord, LookAt:=xlWhole) '---bのシート検索---'
            If myObj Is Nothing Then Set myObj = cObj.Find(keyWord, LookAt:=xlWhole) '---cのシート検索---'
            If myObj Is Nothing Then Set myObj = dObj.Find(keyWord, LookAt:=xlWhole) '---dのシート検索---'
            '---対象名がヒットすればデータ代入、無ければメッセージボックス通知---'
            If myObj Is Nothing Then
                MsgBox "'" & keyWord & "'の名簿はありません。"
            Else
                '---データ代入開始---'
                If Cells(myObj.Row, 3).Value <> "" Then
                    Range("E23").Offset(count, 0).Select
                    ActiveCell.Value = Cells(myObj.Row, 3).Value
                End If

            End If
        End If
    Next iNum
End Sub

Comments

[errormaker74]

どういうエラーが出ているのでしょうか？
testメソッド内でF8キーを押してステップ実行を行ってはどうでしょうか？

ステップ実行の方法については下記のサイトなどを見てください。
https://www.239-programing.com/excel-vba/basic/basic023.html

[snowshink]

どんなシートか可能であればスクリーンショットをください。
エラーはどの行で起きてますか。エラーが起きているならアラートが表示されたと思いますがその内容はなんですか。
F8キーでデバッグしてみましたか。

[meg_]

> 下記コードでエラーの箇所がわからず困っています。
エラー内容が不明です。

[km1023]

コンパイルエラー：
修正候補：式
とだけ表示されます。

[m.ts10806]

質問は編集できますので。

[snowshink]

実行時はどのシートが表示されてますか。他のExcelシートは開いてませんか。
適当な値を入れてF8でスキップ実行してみて下さい。

[errormaker74]

下記の手順でデバッグプリントを入れてみた場合どうなるでしょうか？
1. `Dim aObj As Range`の前に`Debug.Print (Now & "--start")`を入れる。
```
Sub test()
Debug.Print (Now & "--start")
Dim aObj As Range
```
2. `count = iNum * 8`の下に`Debug.Print (Now & "--" & iNum)`を入れる。
```
For iNum = 0 To 9
'---対象の行の名前取得---'
count = iNum * 8
Debug.Print (Now & "--" & iNum)
```
3.testメソッドを実行する。
4.VBAコードを書く画面で Ctrl + G を押して「イミディエイト」という画面を表示する。
このイミディエイトという画面に何か表示されますでしょうか？

[km1023]

ありがとうございます。
やってみましたが何も表示されません。

[errormaker74]

念のため確認です。
1. VBAコードを書く画面の「デバッグ」メニューにある「〇〇のコンパイル」(〇〇はプロジェクト名)を押してみて何か起こりますか？
2. testメソッド以外に記載されているコードはありますか？(SheetやThisWorkbook、標準モジュールなどに)

[snowshink]

自分の提案はエラーを表示させるものではなく、正常に動くかどうかテストするためのものです。そこで思い通りにならないならば、いわゆるバグが存在することになります。何も表示されないのであれば正常終了したということです。結果は予想通りでしたか？

Answer 1

コンパイルエラーではなかったので、あくまで推測です。
Selectしたあと、Cellsを参照してますが、指定がなければアクティブシートのを参照するので、
Cells(myRange.Row,3)は本紙のCxx(xx＝myRange.Row)を参照しています。
多分、ここではないでしょうか。やろうとするならmyRange.Offset(0,3).Valueでしょうか。

初心者のやりがちなミスです。とくにSelectする場合は、アクティブシートがコロコロ変わりうるので、
なにか変数を用意して退避することをお勧めします。

補足ですが、cとdが逆です。多分問題ないでしょうけど。
あと、aObj,bObj,myRangeは変数名としてふさわしくないです。
Objectはクラス全体を指すので、具体的にどのクラスなのか、CreateObjectsしたものなのかわかりません。
myRangeも「お前のじゃねえ」で一掃できます。
NamesRange_a,foundCellなどとしましょう。

Comments

[km1023]

ありがとうございます。
変数名の可読性、気を付けます。