電子書籍の厳選無料作品が豊富!

以下のコードについて、Range("result:B11").Select  部分がデバッグ画面となります
やりたい事はfindメソッドで見つけたセル(b8)とb11セル(任意)を
範囲選択したいです。ハンド処理でいう、マウスで左クリックを押しながらB3からB11を
洗濯するのと同じ状態です

ご存じのかた、教えて下さい


【コード、一部エラーとなります】
Sub 特定()

Dim result As Range

Set result = Range("b1:b30").Find(What:="佐々木")

MsgBox result

●●●●↓エラーとなる●●●
Range("result:B11").Select 

End Sub

  • 画像を添付する (ファイルサイズ:10MB以内、ファイル形式:JPG/GIF/PNG)
  • 今の自分の気分スタンプを選ぼう!
あと4000文字

A 回答 (2件)

以下のようにしてください。



Sub 特定()

Dim result As Range
Dim v As Range
Set result = Range("b1:b30").Find(What:="佐々木")

MsgBox result
Set v = Union(result, Range("B11"))
v.Select

End Sub
    • good
    • 1

原因はオブジェクトresultがRangeであることです。


つまり、resultから検出されたAdressを抽出しなくてはいけません。

Range("result:B11").Select 

Range(result.Address & ":B11").Select
とすればできるはずです。
    • good
    • 1

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!