|
おはようございます。
>下記の部分で"オブジェクト変数またはwithブロック変数が設定されて
>いません。"のメッセージが出るのですがどうすればよいのでしょうか?
>
> Selection.Find(What:="AA", After:=ActiveCell, LookIn:=xlFormulas, _
> LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext _
> , MatchCase:=False, MatchByte:=False).Activate
選択範囲に「AA」が無いときにエラーが出ますね?
こういう場合は、一度Rangeオブジェクトに代入してから処理をしが方がいいかも
Dim r As Range
Set r = Selection.Find(What:="AA", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext _
, MatchCase:=False, MatchByte:=False)
If Not r Is Nothing Then
処理処理
End If
Set r = Nothing
それから、「AA」てセルに入力された文字なんですよね?
LookIn:=xlFormulas だと、数式を検索・・・になるので、
「xlValues」にしたほうがいいかと・・・
|
|