|
▼マクロ初心者 さん:
>▼IROC さん:
>>列はたくさんあるのでしょう?
>>
>>C列をキーに、A列とB列から同じものを探せばよいのですか?
>
>はいそうです。C列にあるデータをキーにして
>複数列にあるデータの中から検索し、
>そのデータを削除したいのです。
>
>それで最初のマクロに戻るんですけど、
>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
>
>というようにして、後はmainのPrivate Sub CommandButton1_Click()
>の中で、同じ処理をループすればよいのかなぁ?と思ってるんですけど…
>どうなのでしょうか?
すいません、また説明不足でした。
それでマクロに検索するアドレスを引数としてマクロに渡して
Whatの値を引数にすると最初に書いたようにエラーになるんです。
どうしたらよいのか本当に困っています…
よろしくお願いします。
|
|