|
メールアドレスのリストが2つあり、AのリストのアドレスをBのリストで検索してあれば、そのセルを削除していくというVBAを作ろうとしているのですが、
ボタンを押すと実行するようにして、
Private Sub CommandButton1_Click()
Dim touroku_Ad As String
Dim sousin_Ad As String
Dim Sheet_obj1 As Worksheet
Dim search_res As Integer
Sheet1.Select
Set Sheet_obj1 = ActiveSheet
touroku_Ad = Sheet_obj1.Cells(2, 4)←リストAのアドレスを1つ取得
Sheet_obj1.Range(Selection, Selection.End(xlDown)).Select←リストBの範囲を選択
search_res = Macro3(touroku_Ad)
End Sub
Function Macro3(touroku_Ad As String) As Integer
Dim adress As String
adress = touroku_Ad
Selection.Find(What:=touroku_Ad, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
End Function
上記のようにマクロを呼び出すようにして検索する文字列(What:=のところ)
を変数で指定すると、エラーが出てしまいます。普通の""でくくられた文字列に
すると問題なく動作するのですが、
エラー内容は
「オブジェクト変数またはWithブロックが設定されていません」
とでます。色々ヘルプやネットを見て調べてみたのですが、
どうしてもわかりません。
どうかヨロシクお願いします。
|
|