|
▼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
こんな感じです。
|
|