Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

19188 / 76807

←次へ　｜　前へ→


	【63056】Re:Rangeの使用方法。

ichinose - 09/10/4(日) 16:58 -


	引用なし

	パスワード

こんにちは。
Sub test()
　　Dim range1 As Range
　　Dim range2 As Range
　　Dim range3 As Range
　　Dim rw As Long
　　dim 検索条件 as variant
　　Set range1 = Worksheets(1).Range("A1:E10")
　　rw = range1.Row - Worksheets(1).Range("A1").Row
　　Set range2 = range1.Find(検索条件, LookAt:=xlWhole)
　　If Not range2 Is Nothing Then
　　　 Set range3 = range1.Rows(range2.Row - rw)
　　　 range3.Select
　　End If
End Sub

rwは、検索範囲がWorksheets(1).Range("A1:E10")が、

Worksheets(1).Range("A11:E20")
となっても良いように付けました。

ichinose@本日地区の運動会50代でリレー出た

1 hits

▼

【63053】Rangeの使用方法。 Pos-Ca 09/10/4(日) 15:11