Excel VBAのデータ参照方法について

質問

• Excel VBAで別ブックからデータを参照する方法について苦戦しています。現在参考にしているサイトでは、ドロップダウンリストを作成し、そのドロップダウンリストの値に応じて別のセルにデータを表示する機能を実装するような内容が書かれています。しかし、コードの一部でエラーが発生しているようで、正しく動作しません。
• 具体的には、セルA2からA10までにドロップダウンリストの入力規則を設定し、選択された値に応じてセルB2からB10にデータを表示するようにしたいと考えています。ただし、以下のコードを実行すると、エラーが発生してしまい、正常に動作しません。
• 具体的なエラーは、セルB2の入力規則を設定する部分で発生しています。セルA2の値が空の場合には、セルB2の入力規則も削除するように指定していますが、その後の処理でエラーが発生してしまいます。改善策を教えてください。

回答No.4

watabe007

こちらのテストではエラーなく動いています。
Sub Macro2()の内容は見ていませんので
Sub name_1()
　　Dim lCol As Long, lRow As Long
　　Dim i As Long, nName As String
　　Dim Wb As Workbook
　　Set Wb = Workbooks("MyBook.xls")
　　On Error Resume Next
　　With Wb.Sheets("Sheet2")
　　　　lCol = .Range("A1").End(xlToRight).Column
　　　　Wb.Names("項目リスト").Delete
　　　　Wb.Names.Add Name:="項目リスト", _
　　　　　　RefersTo:=.Range(.Cells(1, 1), .Cells(1, lCol))
　　　　'----名前の定義
　　　　For i = 1 To lCol
　　　　　　lRow = .Cells(1, i).End(xlDown).Row
　　　　　　nName = .Cells(1, i).Value
　　　　　　Wb.Names(nName).Delete
　　　　　　.Range(.Cells(1, i), .Cells(lRow, i)). _
　　　　　　　　CreateNames Top:=True
　　　　Next i
　　End With
End Sub
'↓ If c Is Nothing Then の場合の処理だけで、見つかった場合は処理は無し？
Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim c As Range
　　Dim Wb As Workbook
　　Set Wb = Workbooks("MyBook.xls")
　　If Not (Application.Intersect(Target, Range("A2:B10")) Is Nothing) Then
　　　　name_1
　　　　Application.EnableEvents = False
　　　　If Target.Column = 1 Then
　　　　　　If Target.Value = "" Then
　　　　　　　　Target.Offset(0, 1).Value = ""
　　　　　　Else
　　　　　　　　Set c = Wb.Sheets("Sheet2").Range(Target.Value). _
　　　　　　　　　　Find(Target.Offset(0, 1).Value, lookat:=xlWhole)
　　　　　　　　If c Is Nothing Then
　　　　　　　　　　'Target.Offset(0, 1).Valueが見つからなければ
　　　　　　　　　　Target.Offset(0, 1).Value = ""
　　　　　　　　Else
　　　　　　　　　　'↑見つからなかった時の処理だけで見つかった時は？
　　　　　　　　　　MsgBox c.Address(External:=True) & " にミッケ"
　　　　　　　　End If
　　　　　　End If
　　　　End If
　　　　If Target.Column = 2 Then
　　　　　　If Target.Value = "" Then
　　　　　　　　Target.Offset(0, -1).Value = ""
　　　　　　End If
　　　　End If
　　　　Application.EnableEvents = True
　　End If
End Sub

お礼

ご教示頂いたコードで確かにエラーにはなりませんでしたが、
肝心のSub Macro2()が利用できずに、
当方の求めている動作にはなりませんでした。