複数のシートに日付を一括入力
マクロ講座39回
![複数のシートを一度に選択して日付を入力](gazo2013/2013_macro_39.png)
![複数のシートを一度に選択して日付を入力](gazo2013/2013_macro_39.png)
Array関数で複数シートの選択 Excel 2013マクロ講座
複数のシートを一度に選択して日付を入力 マクロ講座
Array関数を使用して、複数のシートを一度に選択して日付を入力します。
(サンプルファイルは、こちらから 2013マクロ講座39回サンプルデータ)
複数のシートを一度に選択して日付を入力するマクロ
複数のシートを同時に操作するには、シート名を配列で指定します。
サンプルでは、Array関数を用いてシート名を配列として指定しています。
Array関数の構文
![Array関数](gazo2013/macro/array_function.png)
サンプルでは、Array関数を用いてシート名を配列として指定しています。
Array関数の構文
![Array関数](gazo2013/macro/array_function.png)
サンプルのブックです。シートが4枚あり、各シートに日付欄があります。
指定したシートを選択して、日付を入力させましょう。
![複数のシートを一度に選択](gazo2013/macro/2013_macro_39-08.png)
指定したシートを選択して、日付を入力させましょう。
![複数のシートを一度に選択](gazo2013/macro/2013_macro_39-08.png)
コードを見てみましょう。
Worksheets(Array(1, 3, 4)).Select でシートを選択しています。
Worksheets(Array("Sheet1", "Sheet3", "Sheet4")).Select と書いても同じです。
日付の入力では、Dateという関数を使います。
![複数のシートを一度に選択2](gazo2013/macro/2013_macro_39-07.png)
Worksheets(Array(1, 3, 4)).Select でシートを選択しています。
Worksheets(Array("Sheet1", "Sheet3", "Sheet4")).Select と書いても同じです。
日付の入力では、Dateという関数を使います。
Sub 複数シート選択() Worksheets(Array(1, 3, 4)).Select Range("B3").Select ActiveCell.Value = Date End Subマクロを実行しました。
![複数のシートを一度に選択2](gazo2013/macro/2013_macro_39-07.png)
日付のフォーマットを変更
日付のフォーマットを変更したければ、日付の表記を操作するには、Format 関数を使って表示形式を指定します。
<構文>
Format("値", "書式記号")
値には、Date関数を持ってきます。
Format("Date","m""月""d""日""(aaa)")
<構文>
Format("値", "書式記号")
値には、Date関数を持ってきます。
Format("Date","m""月""d""日""(aaa)")
Sub 複数シート選択3() Worksheets(Array(1, 3, 4)).Select Range("B3").Select ActiveCell.Value = Format(Date, _ "m""月""d""日""(aaa)") End Sub
![複数のシートを一度に選択3](gazo2013/macro/2013_macro_39-09.png)
今日の講義は以上です。お疲れ様でした。