| |
▼ひろ さん：
こんばんは。
>findメソッドを使用して下記のコードを作成しました。
>が、エラーが出ます。
>
>エラーメッセージは、
>「オブジェクト変数またはwithブロック変数が設定されていません」
>です。
>
>何故でしょうか？教えてください。
>
>Dim SearchArea, findstr As Range
>Dim firstaddress As String
>
> Set SearchArea = ActiveSheet.UsedRange
> Set findstr = SearchArea.Find(what:="部門")
> If findstr Is Nothing Then Exit Sub
> firstaddress = findstr.Address
>
> Do
> findstr.Value = "dell"
> Set findstr = SearchArea.FindNext(after:=findstr)
> Loop While findstr.Address <> firstaddress And Not findstr Is Nothing･･･ここでエラーが出ます。
findstrがNothingならば、findstr.Address は、エラーになりますよね？
これ、「部門」という文字列を「dell」に置換するのなら、
RangeオブジェクトのReplaceメソッドを使う方が簡単かと思いますよ！！
|
|
ichinose
- 07/10/3(水) 20:10 -
