Excel VBA質問箱 IV

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

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


35214 / 76732 ←次へ | 前へ→

【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 質問
【46723】Re:重さの範囲設定 りん@とおりすがり 07/2/13(火) 12:12 回答
【46725】Re:重さの範囲設定 Jaka 07/2/13(火) 12:30 質問
【46726】Re:重さの範囲設定 Jaka 07/2/13(火) 12:37 発言
【46730】修正 Jaka 07/2/13(火) 13:27 発言
【46729】Re:重さの範囲設定 MIKAMI 07/2/13(火) 13:19 お礼

35214 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free