|
A1 B1 C1
10 KGまで 1000円
20 KGまで 2000円
30 KGまで 3000円
40 KGまで 4000円
という表をシートに記載してあります。
ユーザーフォームのコマンドボタンを押すと
Private Sub CommandButton1_Click()
If TextBox1.Value <> "" Then ***貨物の大きさが入力されたら
With Worksheets("セット") ***セットのワークシートから
Set foundcell = .Range("A1:A5000").Find(TextBox1.Value) ***貨物の大きさをA1からA5000の中からみつける。
If foundcell Is Nothing Then ***みつからない場合は
MsgBox "料金確認不可" ***料金確認不可と表示
Else
myR = "Q" & foundcell.Row ****見つかったら
TextBox1.Value = .Range(myR).Offset(0, 2).Value ****みつかったらその数字のセルまで飛ぶ
End If
End With
End If
End Sub
TextBox1.Value = .Range(myR).Offset(0, 2).Value ****みつかったらその数字のセルまで飛ぶ
お分かりのとおり、これだと指定した重さの数字しか見つけることができません。
0〜10KGは1000円 11〜20KGは2000円 21〜30KGは3000円。。。と設定したいのですが。。
初心者で言葉足らずがあり、わかりづらいかと思いますがどうぞご指導お願いします。
|
|