VBA 検索

解決済

質問者：lostsymbol
質問日時：2014/05/28 11:40
回答数：4件

困りました、、

下のような表から検索したいのですが
うまく取り出せません

～63,000
63,000～73,000
73,000～83,000
83,000～93,000
93,000～101,000
101,000～107,000
107,000～114,000
114,000～122,000
122,000～130,000
130,000～138,000
138,000～146,000
146,000～155,000
155,000～165,000
165,000～175,000
175,000～185,000
185,000～195,000
195,000～210,000
210,000～230,000
230,000～250,000
250,000～270,000
270,000～290,000

たとえばこの中から225000が当てはまるところを探したいのです

今はselect caseで一つずつ判定しているのですが
これではコードが果てしなく長くなってしまいます

もっとスマートなコードはないのでしょうか？？
よろしくお願いします<m(__)m>

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

No.1

回答者： denbee
回答日時：2014/05/28 11:53

ある列の1つ1つのセルに上記の範囲情報が載っているということですか？

自分だったら以下のようにします。
　１）セルの範囲情報を文字列として取得する（例：270,000～290,000）
　２）「～」をキーに文字列を分割し、「～」の前の情報（270,000）と後の情報（290,000）を
　　それぞれ変数に取得する
　３）入力したデータが上記の前情報と後情報の範囲内にあるか判断する
　４）これを、範囲情報が設定されているセル分繰り返す。
　　　（３）で条件に一致するものがあれば検索処理は終了）

この回答への補足

数字ごと一つのセル使ってます

それだとコードがながくなってしまいますよね？

補足日時：2014/05/28 12:54

通報する

- 0
- 件

通報する

No.2

回答者： Sayakonomimoto
回答日時：2014/05/28 11:56

今どのような感じのコードを書いているのか記載してください。

Excel使わずにVBAってあるんでしたっけ？
Excelだったらバージョンも記載してください。

この回答への補足

Case Is < .Range("F6")
wskyu.Range("H24") = .Range("L6")

Case .Range("D7") To .Range("F7")
wskyu.Range("H24") = .Range("L7")

Case .Range("D8") To .Range("F8")
wskyu.Range("H24") = .Range("L8")

Case .Range("D9") To .Range("F9")
wskyu.Range("H24") = .Range("L9")

Case .Range("D10") To .Range("F10")
wskyu.Range("D24") = .Range("H10")
wskyu.Range("H24") = .Range("L10")

Case .Range("D11") To .Range("F11")
wskyu.Range("D24") = .Range("H11")
wskyu.Range("H24") = .Range("L11")

Case .Range("D12") To .Range("F12")
wskyu.Range("D24") = .Range("H12")
wskyu.Range("H24") = .Range("L12")

Case .Range("D13") To .Range("F13")
wskyu.Range("D24") = .Range("H13")
wskyu.Range("H24") = .Range("L13")

Case .Range("D14") To .Range("F14")
wskyu.Range("D24") = .Range("H14")
wskyu.Range("H24") = .Range("L14")

Case .Range("D15") To .Range("F15")
wskyu.Range("D24") = .Range("H15")
wskyu.Range("H24") = .Range("L15")

こんな感じです

excel2007です