クリップボードコピーした内容を別のシートから検索するマクロ
Dim str As String Dim dobj As New dataobject With dobj .GetFromClipboard str = .GetText End With Windows("F_Data.xls").Activate Selection.End(xlUp).Select Range("D2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Find(What:=str, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False, SearchFormat:=False).Activate Set dobj = Nothing
とりあえず、サンプル程度。
しかし、クリップボードの内容を取ってくるのに、"Microsoft Forms 2.0 Object library"が必要なのがげせない。