Ｓ・Ｍ・C (Ｓｉｍｐｌｅ.Ｍａｃｒｏ.Ｃｒｅａｔｅ)　～エクセルマクロ日記～

こんにちは。
今日は、遅い投稿になってしまいました。

こんな事をしていました。




なんて、冗談ですよ。

日曜日に、子供達がパンを食べたいというので
前回うまくいかなかった、「かぼちゃパン」をつくって
みました。

野菜嫌いな子供達でも、パンになれば大好物！
健康家族です。


それでは、本題です。

今日から、ＶＢＡプログラムの勉強です。
決して難しくありません。

お店のレジで商品を精算してレシート（領収書）を発行するイメージをして下さい。



売上入力画面の内容を「レシート（領収書）」へ編集する
プログラムを作っていきます。

レジで精算した商品のコードや数量等を入力して、
レシート発行のボタンを押します。

すると、レシートを発行するプログラムが動きます。

この時のプログラムの動きを言葉で説明すると、

「領収書」の商品名を表示する１行目のセルへ
　　　　「売上入力画面」の１件目の商品名を編集しなさい。

「領収書」の数量を表示する１行目のセルへ
　　　　「売上入力画面」の１件目の数量を編集しなさい。

「領収書」の単価を表示する１行目のセルへ
　　　「売上入力画面」の１件目の単価を編集しなさい。

「領収書」の金額を表示する１行目のセルへ
　　　「売上入力画面」の１件目の金額を編集しなさい。
　　　
となります。
　　　　　　　　　　　　　　　　　　　　　　　
これを、エクセルの「セル」を編集する言葉に置き換えると

シート名が「レシート」のセル“Ｂ１０”へ、
　　　シート名が「売上入力」のセル“F５”の値を編集しなさい。

シート名が「レシート」のセル“Ｅ１０”へ、
　　　シート名が「売上入力」のセル“Ｇ５”の値を編集しなさい。

シート名が「レシート」のセル“Ｇ１０”へ、
　　　シート名が「売上入力」のセル“Ｈ５”の値を編集しなさい。

シート名が「レシート」のセル“Ｉ１０”へ、
　　　シート名が「売上入力」のセル“Ｉ５”の値を編集しなさい。

となります。

これをＶＢＡでプログラミングすると、

Worksheets("レシート“).Range("Ｂ10") = Worksheets("売上入力").Range("Ｆ5")
Worksheets("レシート“).Range("Ｅ10") = Worksheets("売上入力").Range("Ｇ5")
Worksheets("レシート“).Range("Ｇ10") = Worksheets("売上入力").Range("Ｈ5")
Worksheets("レシート“).Range("Ｉ10") = Worksheets("売上入力").Range("Ｉ5")

となります。

ここで言う“＝”は等しいという意味ではなく、
右側の値を左側に編集しなさいという事になります。

この命令がセルを編集する基本的な書き方です。
綴りを覚える必要はありません。
右側の値を左側に編集しているんだなぁぐらいで憶えていてください。
　
次回は、この命令を実際にプログラムとして
登録していく方法を勉強しましょう。