Excel VBA＆マクロについて

質問

現在エクセルで個人の毎日の状態チェックを表にして作成しています。
しかし、月初めに次の月の準備として、年・月・曜日・をコピーしては書き換えといった具合に行わなくてはいけません。
状態チェックは50人以上しなくていけず、コピー＆書き換えではやはり時間がかかってしまいます。
そこで、VBA＆マクロを使用し、メッセージウインドウに年・月・曜日・の入力アイアログボックスを組み込み、そこを入力することで
全部チェック表の年・月・曜日の書き換えが行えるようにできないでしょうか？

回答No.1

KURUMITO · ベストアンサー

マクロを使わなくても次のようにすればよいでしょう。
例えばSheet1について一つのフォーマットを作成して、その後にシート見出しのSheet1を右クリックして「シートに移動またはコピー」から「コピーを作成する」にチェックをしてＯＫすればたくさんのコピーを作成できますので、それらを上手に利用すればよいでしょう。
ところでSheet１でのフォーマットの作成ですが、例えば次のようにします。
Ａ１セルには2009/8/1と入力して、右クリックし「セルの書式設定」で「表示形式」のタブから「日付」の2001年３月を選択してＯＫします。
これで2009年8月と表示されますね。2009年9月にする場合には2009/9/1とＡ1セルに入力すればよいでしょう。また、Ｂ1セルにはチェック表とすれば2009年8月チェック表のように表示できますね。
ところで、それから8月の日付や曜日を表示させるには例えば次のようにします。
Ａ3セルに日付、Ｂ3セルに曜日と入力します。
Ａ4セルには次の式を入力します。
=IF(MONTH(DATE(YEAR(A$1),MONTH(A$1),ROW(A1)))=MONTH(A$1),DATE(YEAR(A$1),MONTH(A$1),ROW(A1)),"")
Ｂ4セルには次の式を入力します。
=IF(A4="","",TEXT(A4,"aaa"))
Ａ4セルとＢ4セルを選択して34行まで下方にオートフィルドラッグします。
これによってＡ4セルからＡ34セルまでを選択してセルの表示形式を日付で3月14日とすることで、8月1日から8月31日が表示されます。単に1日から31日と表示させたい場合には表示形式の「ユーザー定義」でd"日"と入力すればよいでしょう。なお、曜日はＢ列に表示されます。
Ａ１へ2009/9/1と入力すればＡ1セルには2009年9月と表示されその月の日付と曜日が自動的に表示されます。
要はＡ1セルへの入力をするだけで表が出来上がります。このようにして作ったSheet1を次々にコピーして使うことで目的は達成できることでしょう。
ぜひご検討ください。

回答No.2

nagomitei

全て同じフォーマットであるなら対象のシートを全て選択して修正したいところを串刺しで修正ではだめですか？