|
A B C
1 基準 一般 会員
2 50000円以上 15% 30%
3 20000円以上 10% 20%
4 10000円以上 5% 10%
上記の表で、
一般は15%・・〜・・5%引き
会員は30%・・〜・・10%引き
をMsgBoxに表現したいのですが・・・
「一般」と「会員」の区別が下のコードで表現が出来ないのですが、
どの部分を訂正したらよいのでしょうか?
アドバイスお願いします。
Sub 割引率()
Dim a As String
For i = 2 To 3
For n = 2 To 4
If Column > 2 Then
a = Cells(1, 2).Value
Else
a = Cells(1, 3).Value
Cells(n, i).Select
MsgBox a & "は" & Selection.Value * 100 & "%割引です"
End If
Next n
Next i
End Sub
^^^^^^^^^^^^^^^^^^
更に欲ばりですが、
最終的には
「一般」で「50000円以上」は15%引き
「20000円以上」は10%引き
:
:
「会員」で「10000円以上」は10%引き
まで仕上げたいのですが・・・
これはまた後日検討したいと思っています
^^^^^^^^^^^^^^^^^^^^^
|
|