Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35220 / 76738

←次へ　｜　前へ→


	【46720】重さの範囲設定

MIKAMI - 07/2/13(火) 11:01 -


	引用なし

	パスワード

　　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円。。。と設定したいのですが。。
初心者で言葉足らずがあり、わかりづらいかと思いますがどうぞご指導お願いします。

0 hits

▼

【46720】重さの範囲設定 MIKAMI 07/2/13(火) 11:01

≪