LookAt の定数を変数で指定するには？

質問

エクセルvbaです。

Sub test()
Dim strLookAt As String
strLookAt = "xlPart"

Cells.Replace What:="aaa", Replacement:="iii", LookAt:=strLookAt
End Sub

このようなことはできないのでしょうか？

LookAtの部分のxlWhole または xlPart かをシートから読み取って変数に格納し、
Replace メソッドで置換したいのですが、
このコードを実行すると「型が一致しません」になります。

多分、LookAt:=strLookAtでエラーになってるのだと思います。
String型だからいけないのでしょうか？

回避方法を教えてください。よろしくお願いします。

回答No.1

kybo · ベストアンサー

VBEの画面で表示→イミディエイトウィンドウで

?xlPart

と入れればわかります。2が答えです。

そういう定数は数値です。なので以下の様にします。

Sub test()
Dim strLookAt As Integer
strLookAt = xlPart

Cells.Replace What:="aaa", Replacement:="iii", LookAt:=strLookAt
End Sub

お礼

?xlPartをやってみたら2が返りました。
数値型にしてみたら問題なくできました。

とてもわかりやすい説明ありがとうございます。