人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excelシートのどこかに、
”投手” と書かれたセル
”捕手” と書かれたセル
があります。両セルは同一行にあるはずです。

その行を、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サンプル

●質問者: radio3
●カテゴリ:コンピュータ
✍キーワード:Excel NG SET いただきます オブジェクト
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●200ポイント

http://www.hatena.ne.jp/awindow?

’ 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

前の行をコメントにして 新しく追加しましたが、これでは ダメでしょうか?

◎質問者からの返答

素早い御回答ありがとうございます!

見事動きますね!

ただ、検索範囲を絞っておきたいもので...

検索範囲をRangeで指定することにしました。

ありがとうございました!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ