|
VBAの初心者です。
以下の様な作業をさせたいのですが、わからないため
教えていただけませんでしょうか?
会社情報というシートと名刺情報というシートがあります。
会社情報のシートから名刺情報にリンクできるようにマクロで
実行出来るようにするため、以下の様な動作をさせることで
実現しようと考えてます。
シート名”会社情報”
A B C D E
会社名 リンクボタン 拠点名 都道府県 住所
ABC株式会社 マクロ実行ボタン ZE工場 東京都 東京都港区・・・
シート名”名刺情報”
A B C D E
会社名 リンクボタン 拠点名 担当者 所属
ABC株式会社 マクロ実行ボタン ZE工場 中川一郎 営業
(1)会社情報のシートを選択。アクティブセルを会社名に合わせ、その状態で
マクロ実行ボタンを押下。
(2)アクティブセルの値を読み込み、名刺情報のシートのA列にてオートフィルタを
実行。アクティブセルの値と等しい物を表示。
プログラムのコードは、以下のように考えております。
Sub 会社情報からの名刺情報検索()
Dim kaisyamei As Range
Dim N As Long
Dim i As Worksheet
Set kaisyamei = ActiveCell
Worksheets("名刺情報").Select
If N = InStr(ActiveCell, " ") Then
Worksheets("名刺情報").Range("A2").AutoFilter Field:=1, Criteria1:=kaisyamei
End If
End Sub
(困っていること)
アクティブセルの値と名刺情報の会社名が全文一致で合う場合は問題ありませんが
”ABC”のみの表記のものがあった場合、つまり部分一致で検索しようとする場合
やり方が分からず困っています。
|
|