”投手” と書かれたセル
”捕手” と書かれたセル
があります。両セルは同一行にあるはずです。
その行を、Rangeオブジェクトとして取得する方法を「具体的に」教えていただいた方、1名様に200ポイント贈呈いたします。
(最良の方だけとさせていただきますので、その点くれぐれもご容赦をお願いします)
↓では全然ダメでした。
http://www.geocities.jp/rstreaming/121.html
NGサンプル--------
Set rng投手 = Range(Cells(1,1) & ”:” & Cells(検索最大, 検索最大)).Find(What:=”投手”)
Set rng捕手 = Range(Cells(1,1) & ”:” & Cells(検索最大, 検索最大)).Find(What:=”捕手”)
If rng投手.Row = rng捕手.Row Then
Set rngヘッダ = rng投手.EntireRow
End If
---------NGサンプル
No.1
13539
1198
200pt
’ Set rng投手 = Range(Cells(1, 1) & ”:” & Cells(検索最大, 検索最大)).Find(What:=”投手”)
Set rng投手 = Range(”A1:IV65536”).Find(What:=”投手”, LookIn:=xlValues, lookat:=xlWhole)
If rng投手 Is Nothing Then MsgBox ”ヘッダに投手がない”: Exit Sub
’ Set rng捕手 = Range(Cells(1, 1) & ”:” & Cells(検索最大, 検索最大)).Find(What:=”捕手”)
Set rng捕手 = Range(”A1:IV65536”).Find(What:=”投手”, LookIn:=xlValues, lookat:=xlWhole)
If rng捕手 Is Nothing Then MsgBox ”ヘッダに捕手がない”: Exit Sub
If rng投手.Row = rng捕手.Row Then
Set rngヘッダ = rng投手.EntireRow
Else
MsgBox ”見つかりません”
End If
前の行をコメントにして 新しく追加しましたが、これでは ダメでしょうか？
2
1
1
1
32
32
素早い御回答ありがとうございます!
見事動きますね!
ただ、検索範囲を絞っておきたいもので...
検索範囲をRangeで指定することにしました。
ありがとうございました!