Excel VBA(マクロ)で業務改善
作成スキルを修得しましょう
パチンコ業界に特化した内容です

VBAの練習1

使用するデータは A-001 です。

課 題

1~320番台の玉単価をP列に、玉粗利をQ列に表示させて下さい。
(少数点の設定は、セルに設定していますので今回は考えなくて大丈夫です)

ヒント

「For~Nextステートメント」を使用します。

玉単価 = 売上額 ÷ アウト
玉粗利 = 粗利額 ÷ アウト
パチンコもスロットも計算式は同じです。

解 答

以下でも大丈夫です。
こちらは列が数値ではなくアルファベット表記になっているため可読性が高いです。

解 説

繰り返し処理のため、「For~Nextステートメント」を使用します。
開始行が2、終了行が321 ですので For i = 2 To 321 となります。
このファイルは、シート数が1つですのでシート名の指定は無しでも問題ありません。
シート名を指定する場合は、
Worksheets(“Sheet1”).Cells(・・・ 又は Sheets(“Sheet1”).Cells(・・・
として下さい。