VBA練習問題解答<br />練習問題19（総合練習1）解答
VBA練習問題解答<br />練習問題19（総合練習1）解答

VBA練習問題解答練習問題19（総合練習1）解答

マクロVBA練習問題19の回答ページです。マクロVBA練習問題 ・下記表の空欄を全て埋めて下さい。・客単価は、小数以下１桁で表示。・１週間の合計の客単価より低い日の客単価は赤字にして下さい。※客単価=売上÷客数 練習問題用のExcelファイル こちらからダウンロードできます。

'4週 For i = 1 To 4 ix = (i - 1) * 4 + 2 '日付の行位置 '単価の消去と小数設定 With Range(Cells(ix + 3, 3), Cells(ix + 3, 10)) .NumberFormatLocal = "0.0" .ClearContents End With '7列 For j = 3 To 9 '横合計と客単価 Cells(ix + 1, 10) = Cells(ix + 1, 10) + Cells(ix + 1, j) Cells(ix + 2, 10) = Cells(ix + 2, 10) + Cells(ix + 2, j) Cells(ix + 3, j) = Cells(ix + 1, j) / Cells(ix + 2, j) '縦合計 Cells(18, j) = Cells(18, j) + Cells(ix + 1, j) Cells(19, j) = Cells(19, j) + Cells(ix + 2, j) '縦合計の客単価 If i = 4 Then Cells(20, j) = Cells(18, j) / Cells(19, j) End If Next '横合計の客単価 Cells(ix + 3, 10) = Cells(ix + 1, 10) / Cells(ix + 2, 10) For j = 3 To 9 If Cells(ix + 3, j) < Cells(ix + 3, 10) ThenCells(ix + 3, j).Font.Color = vbRed End If Next '縦横合計 Cells(18, 10) = Cells(18, 10) + Cells(ix + 1, 10) Cells(19, 10) = Cells(19, 10) + Cells(ix + 2, 10) Next

難しくはないですが、結構面倒な処理になります。 縦横の順番や書き方はいろいろあります。 Worksheetfunction.Sumを使うような方法もあり得ます。 いろいろな書き方に挑戦してみて下さい。 同じテーマ「マクロVBA練習問題解答」の記事 新着記事 NEW ・・・新着記事一覧を見る アクセスランキング ・・・ ランキング一覧を見る このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。 掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。 本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。 This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.