|
▼さとちぃ さん:
>Sub 名刺情報からの拠点情報検索()
> Dim kaisyamei As String
> Set kaisyamei = "*" & ActiveCell & "*"
↑これだと、 ActiveCellの値が「ABC株式会社」だったとすると、
文字列変数kaisyamei には 「*ABC株式会社*」が入っていることになります。
そのあとで、↓ActiveCellの値から"株式会社"Removeしても、、、
> 'アクティブセルの値から株式会社の文字をなくす(置換)
> ActiveCell.Replace What:="株式会社", Replacement:="", LookAt:=xlPart, _
> SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
> ReplaceFormat:=False
後の祭りです。イミディエイト・ウィンドウで ? kaisyamei とやって kaisyamei に
何が入っているか、確認してみてください。
> '拠点情報に移動し、株式会社をなくしたワードで検索
> Worksheets("拠点情報").Select
> ActiveSheet.Range("A10:A1000").AutoFilter Field:=1, Criteria1:=kaisyamei
Replaceメソッドでなく Replace関数を使えばいいのでは?
Dim s as string
s = ActiveCell.Value
s = "*" & Replace(s, "株式会社", "") & "*"
Worksheets("拠点情報").Range("A10:A1000").AutoFilter Field:=1, Criteria1:=s
|
|