Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
19115 / 76734 ←次へ　｜　前へ→
【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 質問
【63054】Re:Rangeの使用方法。 脱初心者 09/10/4(日) 16:07 回答
【63057】Re:Rangeの使用方法。 Pos-Ca 09/10/4(日) 21:20 お礼
【63058】Re:Rangeの使用方法。 kanabun 09/10/4(日) 22:10 発言
【63059】Re:Rangeの使用方法。 脱初心者 09/10/4(日) 23:00 発言
【63079】Re:Rangeの使用方法。 Pos-ca 09/10/5(月) 19:20 お礼
【63056】Re:Rangeの使用方法。 ichinose 09/10/4(日) 16:58 発言≪
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
19115 / 76734 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free