エラーも起きず何も分からない(~_~;) VBA

質問

困りました、
下は一部ですがこのような表から

　　B　　　　　E　　　　H
135,417　149,999　A×40%
150,000　299,999　A×30%+15000
300,000　549,999　A×20%+45000
550,000　833,333　A×10%+100000
833,334　1,249,999　A×5%+141667

If a < .Range("E8") Then
kyu = .Range("H8")

ElseIf a > .Range("B14") Then
kyu = .Range("H14")

Else
H = Application.WorksheetFunction.VLookup(a, .Range("B9:J13"), 3)
H = Replace(H, "Ａ", a)
H = Replace(H, "×", "*")
kyu = Evaluate(H)
End If

このコードを実行すると

最後のところでkyuに計算後の値が入る予定なのですが

エラーも起きず

なぜか何も入りません(・_・;)

原因がよくわからないので
どなたかよろしくお願いいします！！

回答No.4

chie65536（@chie65535） · ベストアンサー

＞順番にやっていくとVlookupがうまくいっていないようです、、、

H = Application.WorksheetFunction.VLookup(a, .Range("B9:J13"), 3)

は「aの中身の値が、B9～B13の中にあったら、あった行のD列の中身を取り出す」です。

取り出す場所はD列ではないのではないですか？H列から取り出さないといけない筈ですが？

3つ目の引数の「３」は「左から数えて３番目から取り出す」を意味します。

２つ目の引数で、セル範囲をB～Jの範囲で指定していますから、３つ目の引数は

０以下⇒実行時エラー（引数が範囲外）
１⇒B列から取り出す
２⇒C列から取り出す
３⇒D列から取り出す
４⇒E列から取り出す
５⇒F列から取り出す
６⇒G列から取り出す
７⇒H列から取り出す
８⇒I列から取り出す
９⇒J列から取り出す
10以上⇒実行時エラー（引数が範囲外）

となります。

検索対象の列がB列、取り出す場所がH列であれば、この式は

H = Application.WorksheetFunction.VLookup(a, .Range("B9:H13"), 7)

でなければいけません。

検索する範囲は「B9:J13」ではなく「B9:H13」で良い筈です。

取り出すのがH列ですから、取り出し位置は３ではなく７です。

たぶん、該当行のD列には「空白セル」がある筈です。なので、変数Hには「空（Null）」が入る筈です。

エラーも起きないし、何も入らなくて当たり前です。

＞On Error GoTo 0
＞これはどうなるのでしょうか？？

これの意味は「エラーがあったらエラーで止まれ」です。

どこかで「On Error Resume Next」と書いてあると、エラーが出てもエラーで止まらずに次のステートメントを実行してしまうので「エラーがあったらエラーで止まれ」って意味で入れます。

一応、On Error Resume Nextは、プロシージャが終了したら（Subが終了したり、Exit Subしたら）解除されますが、同じプロシージャ内のどこかでOn Error Resume Nextしてる可能性があるので、念のために入れてもらいました。

お礼

セルを結合していたので３にしてました、、
7にするとうまくいきました！
Vlookupは結合を無視して数えるのですね(・_・;)
たびたびありがとうございました_(_^_)_

回答No.3

FEX2053

>H = Application.WorksheetFunction.VLookup(a, .Range("B9:J13"), 3)
>ここの時点でHに何も入っていないことが判明しました、、

そりゃそうです。

WorksheetFunction.の後ろは「ワークシート上で()内の式が成立している
必要がある」んですけど、VLookup(a, .Range("B9:J13"), 3)←これ、ワーク
シート上に書いて、動作しますか？

.Range　とか a とかが、関数式として意味があるか先にチェックが必要かと。

何が狙いかわからないので、↓を参考に。こちらのサイトはいろいろと参考
になりますよ。
http://www.moug.net/tech/exvba/0100035.html

補足

a = .Range("W24") - (.Range("D17") + .Range("H17"))

End With

With wssyo

質問のコードの上の部分です
.Rangeもaも使えるはずなのですが、、、

回答No.2

FEX2053

そりゃ、動かないでしょ。↓意味ないですもん。

Evaluate(H)

何をしたいのかわかりませんが、VBAのEvaluateメソッドって、
引数に関数を入れないと意味がないと思いますが？
http://www.moug.net/tech/exvba/0100045.html

単にHの値をkyuに入れたいだけなら

Kyu=H

これだけの話ですよ。

お礼

Evaluateは前回の質問で使えばいいと教えられてそのまま転用しただけなので(・_・;)
使い方がよくわからないのです、、

補足

詳しく調べてみると
H = Application.WorksheetFunction.VLookup(a, .Range("B9:J13"), 3)
ここの時点でHに何も入っていないことが判明しました、、

Vlookupのやり方が間違っているのでしょうか？？

回答No.1

chie65536（@chie65535）

＞エラーも起きず

一番最初のif文の直前に

On Error GoTo 0

って入れてみましょう。

＞なぜか何も入りません(・_・;)

悩んだら、ブレークポイントで止めて、止めたらステップ実行。

お礼

On Error GoTo 0
これはどうなるのでしょうか？？

補足

順番にやっていくとVlookupがうまくいっていないようです、、、