Excel VBA質問箱 IV

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

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


35217 / 76738 ←次へ | 前へ→

【46723】Re:重さの範囲設定
回答  りん@とおりすがり  - 07/2/13(火) 12:12 -

引用なし
パスワード
   ▼MIKAMI さん:
>  A1  B1    C1
>  10 KGまで  1000円
>  20 KGまで  2000円
>  30 KGまで  3000円
>  40 KGまで  4000円
>
>という表をシートに記載してあります。

リストどおりにならんでるとして、セルの値が超えたかどうかをチェックします。
Private Sub CommandButton1_Click()
  Dim dt As Currency, rr As Long, rmax As Long, Rpos As Long
  Dim ws As Worksheet
  '
  Set ws = Application.ThisWorkbook.Worksheets("セット")
  dt = Val(Me.TextBox1.Value)
  rmax = ws.Range("A10000").End(xlUp).Row
  If dt = 0 Then
   MsgBox "重量を指定してください", vbExclamation
  Else
   For rr = 1 To rmax
     If ws.Cells(rr, 1).Value >= dt Then
      Rpos = rr: Exit For
     End If
   Next
   If Rpos = 0 Then
     MsgBox "料金確認不可", vbExclamation, dt & "kg"
   Else
     MsgBox "料金は、" & Format(ws.Cells(Rpos, 3), "#,##0") & "円です", vbInformation, dt & "kg"
   End If
  End If
End Sub

こんな感じです。

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 お礼

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