Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39243 / 76732

←次へ　｜　前へ→


	【42604】Re:For～Nextを使って

ToShiYo - 06/9/16(土) 12:17 -


	引用なし

	パスワード

▼neptune さん：

アドバイスありがとうございます。
その通りですね。頭では理解が出来るのですが･･･
コード化することが出来ない状態です。
でも、貴殿のアドバイスに基づき、整理してやってみました。
曲がりなりにも、何とかできました。
ご意見をいただければ幸いです。
これからもよろしくお願いします。

Sub 割引率()
Dim a As String
Dim b As String
For i = 2 To 3
　 For n = 2 To 4
　　　If i > 2 Then
　　　　　　b = Cells(1, 3).Value
　　　　　　　Cells(n, i).Select
　　　　　　　　p = Cells(n, i).Offset(, -2).Value
　　　　　　　　　　 MsgBox p & "円以上の場合" & Chr(10) & b & "は" & _
　　　　　　　　　　　　　Selection.Value * 100 & "％割引です"
　　　Else
　　　　　　a = Cells(1, 2).Value
　　　　　　　 Cells(n, i).Select
　　　　　　　　o = Cells(n, i).Offset(, -1).Value
　　　　　　　　　　 MsgBox o & "円以上の場合" & Chr(10) & a & "は" & _
　　　　　　　　　　　　　Selection.Value * 100 & "％割引です"
　　　End If
　 Next n
Next i
End Sub

1 hits

▼

【42588】For～Nextを使って ToShiYo 06/9/15(金) 20:02