|
▼neptune さん:
大変ありがとうございました。「変数の宣言を強制する」をONにします。
また親切な解説までつけていただき感謝しています。
これから更に勉強していきます。
質問の仕方が悪くって反省しています。
実はFor〜NextのNestについてのレベルの質問をしたつもりでした。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=42601;id=excel
の回答に今気がついたのですが、このような内容の質問をしたつもりでした。
質問の仕方が
上手く表現できずに、失礼しご迷惑をおかけしました。
neptuneさんの回答を真似てInputboxを使い再度コード化しました。
一般を2、会員を3 や 50000円以上2、20000円以上3、10000円以上4など
セルの位置を数字で置き換えている点をもう少し分かりやすくする必要が
あるかと思いますが、以下のようなコードで作成しました。
Sub 割引率2()
Dim a As String
For I = 2 To 3
For n = 2 To 4
I = InputBox("一般は2を" & Chr(10) & _
"会員は3を入力してください")
n = InputBox("50000円以上は2" & Chr(10) & _
"20000円以上は3" & Chr(10) & _
"10000円以上は4を入力してください")
If Selection.Column = 2 Then
a = Cells(1, 2).Value
Else
a = Cells(1, 3).Value
End If
MsgBox a & "は" & Selection.Value * 100 & "%割引です"
Next n
Next I
End Sub
せっかく頂戴しましたコードですが入力した結果が0%になってしまいます。
修正がいただけるようであれば幸いです。
よろしくお願いします。失礼しました。
|
|