エクセルのシート毎に日付

業務日報を作成しています。
1シート1日なので、1ヶ月30シート～31シートあります。
1ヶ月1ファイルです。
この全シートのA1に日付を入れたいのですが、毎日入力するとも
限らないので、最初から　2008年8月1日（金）のような日付を
入力したいのです。
その場合、1日分を入力したら2日以降31日まで入力になるような
方法はないでしょうか？

No.1 ベストアンサー 回答者： mu2011 回答日時： 2008/07/28 14:25

次の方法は如何でしょうか。

（１）シートは名は、１～３１とします。
（２）シート２～３１までを選択→A1に=DATE(YEAR(Sheet1!$A$1),MONTH(Sheet1!$A$1),MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,2))を入力
（３）シート１を選択、Ａ１に日付を入力
因みに小の月の場合、シート３１は「翌月の一日」になります。

この回答へのお礼

早速ありがとうございます！
やってみたのですがうまくいきません。
（３）の日付を入力というのはどのような方法で入力するのでしょうか？2008/8/1と入力すると2008年8月1日のように変換されるとダメですか？

お礼日時：2008/07/28 14:55

No.6 回答者： fujillin 回答日時： 2008/07/29 23:33

式をコピーしたり31シートを作成したりするのも面倒なので、1シートだけ作成すればコピーまで行うマクロにしてしまいました。

（できあがるシート名を1～31としています。）

準備：下のマクロをマクロのモジュールにコピペ
　　　　（投稿の都合上でインデントを全角ブランクにしています）
1）シートのフォーマットの雛型となるものを作成し、シート名は1（英数字の1）として、他にシートが無い状態にしておく。
2）この状態のものを雛型のブックとして保存

[ ある1ヶ月分を作成するとき ]
1）雛型のブック（上のブック）のコピーを作成
2）シート1のA1に日付を入力する（日にち形式のものならOK　例：08/8/1）
3）セットしておいた、マクロを実行。

注）マクロは原型のみなので、入力された値（日にち）のチェックや、シート名が正しいかなどのチェックは一切行っていません。
　　（実際に使用するには、この辺のチェックを入れておかないと、誤操作の時にエラーが出ます）

------------------------------------------
Option Explicit
Dim s1 As Worksheet, s2 As Worksheet
Dim d_date As Date
Dim m_str As String, d_str As String, w As String
Dim d As Integer
Const L_week = "日月火水木金土"

Sub BookSet()
Set s1 = Sheets("1")
d_date = s1.Cells(1, 1).Value
m_str = Str(Format(d_date, "yyyy")) & "年" & Str(Format(d_date, "m")) & "月"
d = 1
d_str = m_str & Str(d) & "日"

While IsDate(d_str)
　　If (d = 1) Then
　　　　Set s2 = s1
　　Else
　　　　s1.Copy after:=Worksheets(Worksheets.Count)
　　　　Set s2 = ActiveSheet
　　　　s2.Name = Str(d)
　　End If

　　With s2.Cells(1, 1)
　　　　.NumberFormatLocal = "@"
　　　　.HorizontalAlignment = xlLeft
　　　　.Value = d_str & "(" & Mid(L_week, Weekday(d_str), 1) & ")"
　　End With
　　d = d + 1
　　d_str = m_str & Str(d) & "日"
Wend
s1.Activate
End Sub

この回答へのお礼

ありがとうございます！
私はマクロがわからないので・・・勉強してみます！

お礼日時：2008/07/30 14:10

No.5 回答者： mu2011 回答日時： 2008/07/29 15:08

NO4です。

軽率でした。
以下の訂正版をお試し下さい。
=DATE(YEAR(1!$A$1),MONTH(1!$A$1),MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,2))として下さい。

この回答へのお礼

今度は貼り付けてすぐに、Ａ１に「#VALUE!」と表示され、その後シート１に日付を入力しても変化なしです。
なにか、私のやり方がマズイのかも知れません。

お礼日時：2008/07/29 16:00

No.4 回答者： mu2011 回答日時： 2008/07/28 16:54

NO3です。

以下の手順でお試し下さい。
（１）シート名を１～３１に設定
（２）シートタグの２をクリック→shiftキーを押しながらシートタブの３１をクリック（シート２～シート３１が選択された状態になる）
（３）シート２のA1に関数を入力（シート２～シート３１のA1に関数が入力される）
（４）シートタブ１をクリック→A1に日付を入力

この回答へのお礼

ご親切にありがとうございます！
おっしゃる通りにしてみたのですが・・・
（３）シート２のＡ１・・・というところで、mu2011さんが教えてくださったものをコピーして貼り付けたのですが（これが悪いのかな？）
貼り付けると「値の更新：Sheet1」というのが出ます。
ここで何かを選択するのですか？それが出ている時はシート２のＡ１には「1900/1/0」と表示されています。
その「値の更新」というのをキャンセルするとＡ１には「#REF!」と表示されます。
よろしくお願いします！

お礼日時：2008/07/29 13:18

No.3 回答者： mu2011 回答日時： 2008/07/28 15:41

NO1です。

>2008/8/1と入力すると2008年8月1日のように変換されるとダメですか？
⇒内部シリアル値（200/8/1ならば表示形式を標準で39661）ならば特に問題ありません。
因みに各シートA1セルの書式設定をユーザ定義でyyyy"年"m"月"d"日"(aaa)とされると想定しています。

この回答へのお礼

んー・・・ウマク行きません。
もう少し頑張ってみます！

お礼日時：2008/07/28 16:41

No.2 回答者： dghjty145 回答日時： 2008/07/28 14:27

まずはじめに１日のシートのＡ１に日付を入力。

表示形式を調整。
次に２日のシートのＡ１のデータを張り付ける。そのままの状態で、「形式を選択して貼り付け」を選択し、「リンク貼り付け」を選択。そのままの状態で、Ｆ２ボタンを押して、Sheet1!$A$1のうしろに半角で＋１と入力。

３日のシートのＡ１に２日のシートのＡ１を張り付ける。Ｆ２ボタンを
押して＋１を＋２に修正。

以降は３１日まで足す数字を１つずつ増やしながら、３日のシートの
手順を繰り返す。

この回答へのお礼

ありがとうございます！
これならウマク行きそうですが、1年分あるので作業が大変ですね。

お礼日時：2008/07/28 16:42