Excel VBA質問箱 IV

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

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


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

10436 / 76734

←次へ　｜　前へ→


	【71844】空白あり）Loop処理で行うVBAの作成

saya - 12/4/18(水) 9:48 -


	引用なし

	パスワード

初めて投稿させていただきます。
私はまだVBAの勉強を始めたばかりでまだまだこれから勉強していくつもりです。
皆様のお力を貸してください。

単価計算をLoop処理で行うVBAマクロの作成です。
数量、金額があったりなかったりしています。
2行目から数量と金額を入力しています。

　 C列　　D列　　　　E列
1行数量　単価計算　契約金額合価
　 1　　　　　　　　　 10,880
　空白　　　　　　　　
　 1　　　　　　　　　　640
　空白　　　　　　　　
　 1　　　　　　　　　　64,640
　空白　　　　　　　　
　 1　　　　　　　　　　73,600
　 1　　　　　　　　　　73,600
　空白　　　　　　　　
　 1　　　　　　　　　　73,600
　 1　　　　　　　　　　16,640
　 1　　　　　　　　　　16,640
　空白　　　　　　　　
　空白　　　　　　　　
　 1　　　　　　　　　　2,560
　
以前に空白のない場合のマクロ作成をしました。
その時の構成がこちらです。
※補足：C列)数量、D列)単価、E列)合価になります。

Sub Macro1()

　　 Dim intDataCnt As Long

　　　　intDataCnt = 2

　Do While Range("C" & intDataCnt).Value <> ""
　　　　　
　Range("D" & intDataCnt).Formula = Range("E" &intDataCnt).Value / Range("C" & intDataCnt).Value

　　　　　　intDataCnt = intDataCnt + 1

　 Loop
End Sub

上記の空白なしの場合の構成を参照して作りたいのですが、
どうしたらいいでしょうか。

3 hits

▼

【71844】空白あり）Loop処理で行うVBAの作成 saya 12/4/18(水) 9:48

≪