VLOOKUP関数で計算式をC6に挿入します。
=VLOOKUP(B6,$E$6:$F$10,2,TRUE)
最後にVLOOKUP関数の入ったC6を下にオートフィルでコピーすれば完了です。
VBA------------------------------------------------------------------------
では、この商品券発行リストをVBAで実行します。コマンドボタンを作ります。
コマンドボタンを押すと下記のコードが実行され、VLOOKUP関数と同じように表示されます。
Private Sub CommandButton1_Click()
Dim Au() As Variant
code_col = 5 '換算表の横の位置
code_row = 6 '換算表の縦の位置
ReDim Au(5, 2) '配列を作成
'DO LOOPを使った繰り返し、6行目から空白行までの換算表を配列Auに入れます。
i = 1
Do While Cells(code_row, code_col) <> ""
Au(i, 0) = Cells(code_row, code_col) '配列に購入金額を入れる
Au(i, 1) = Cells(code_row, code_col + 1) '配列に商品券をいれる
code_row = code_row + 1
i = i + 1
Loop
For k = 6 To 20
For j = 1 To i - 1
If Cells(k, 2) >= Au(j, 0) Then
Cells(k, 3) = Au(j, 1)
End If
Next j
Next k
End Sub