『日付入力のしかた』（まき）

同じフォーマットのシートを何枚か作るさいに１枚目のエクセルシートセルに『２００４年５月　７日（金曜日）』としたときに２枚目のエクセルシートセルに『２００４年５月　１０日（月曜日）』とオートで日付（土・日は除外）が変わるようにする方法があるなら教えてください。さらにエクセルのシート名を「２００４年５月　１０日（月曜日）」なら「0510」などとしたいのですがかのうですか？？

----
 マクロを利用することになると思いますが、問題ありませんか？

  (INA)

----
やっぱりそうなんですか・・・。マクロ使用するのは問題ないのですが、
マクロの使い方が一切わからないので、あきらめるしかないのでしょうか？
参照できるＨＰなどあったら教えてください。
（まき）

----
 日付を入力するセル番地をお教え下さい。
 また、その日付の書式設定は、日付型or文字列のどちらでしょうか？　

 あと、１ブックに作るシート数は、１ヶ月分でしょうか？

 仕様が分かれば、マクロ自体は簡単に作れますので、お教え下さい。

  (INA)

----
・１箇所目は番地はＲ２です。　（Ｒ２からＶ２まで結合しているのですが）　

・２箇所目は番地はＣ２６です。（Ｃ２６からＴ２６まで結合しているのですが）

・書式は１箇所目のフォントは（１２）２箇所目のフォントは（２８）で両方とも文字　列です。

・１ブックは一ヶ月分です。

・あとできればなのですが２箇所目に『本日、２００４年５月　１０日（月曜日）現　在・・・』などと文字を入力することはできますか？日付以外の文字は毎回変わらな　い固定の文字です。

　以上ですよろしくお願いいたします。
----

 >１箇所目
 日付として扱いたいので、文字列でなく
 ユーザー定義で、 yyyy"年"m"月"d"日""（"aaaa"）" 
 としてはダメでしょうか？

 >２箇所目
 スペースや、全角半角、は正しいですか？
 「月」の後に全角スペースですか？


 マクロはプログラムです。
 文字や日付の取り扱いはシビアです。　
 決まり切ったこと、条件が明確なこと、かならず決まった判断が出来ること
 が重要です。

 これまでのご説明では、

 >１箇所目
 『２００４年５月　７日（金曜日）』
                ↑
                ２桁表示のスペース？

 >２箇所目
 『本日、２００４年５月　１０日（月曜日）現　　在・・・』
　　　　　　　　　　　　↑
            このスペースは、必ず必要なもの？　　　　



 いずれにせよ日付が半角文字で表示されて問題ないなら
 どちらも、ユーザー定義で表示した方が容易だと思います。

 >２箇所目
 のユーザー定義の場合です。
 "本日、"yyyy"年"m"月"d"日""（"aaaa"）  現　在・・・" 

  (INA)
 
----
・日付は全角表示可能であればユーザ定義でＯＫです。

・月の後のスペースですが、日にちが２桁（１０以降）は不要で１桁（１〜９）の場合は全角で１つスペースが必要です。

（まき）
----
 >・日付は全角表示可能であればユーザ定義でＯＫです。
 残念ながら日付型は、半角にしかできません。

 それでは文字列から取得して判別させるしかないので、もっと詳しくお教え下さい。

  >>『２００４年５月　７日（金曜日）』
 というのは、５の前にスペースは必要なく、
 日付のみ、二桁目のスペースが必要ということでよろしいですね？
 

 >・月の後のスペースですが、日にちが２桁（１０以降）は不要で１桁（１〜９）の場合は
 >全角で１つスペースが必要です。

 >> 『本日、２００４年５月　１０日（月曜日）現　　在・・・』
    　　　　　↓
    『本日、２００４年５月１０日（月曜日）現　　在・・・』
     が正しいということですね？
　　 　

   (INA)

-----

・『本日、２００４年５月１０日（月曜日）現　　在・・・』でよろしいです。
>それでは文字列から取得して判別させるしかないので、もっと詳しくお教え下さい。
 とありますが何を教えたらよろしいですか？

　本当に何もわかってなくて申し訳ありません。ＩＮＡさんもおいそがところありがとうございます。
（まき）
----
 表示形式で、日付の数字を全角にすることは可能です。
 ユーザー定義で、先頭に [DBNum3] (←カギ括弧も含む)を付けます。
 [DBNum3]"本日、"yyyy"年"m"月"d"日（"aaaa"）現　　在・・・"
 ってところでしょうか。
 (ちゅうねん)
----
 表示形式「d」が何桁かはコード内で調べれば、判別できるので、
日付入力値によって、表示形式の差し替えできますよ。
もしよければどぞ。
　
    With Selection
        If Len(Format(Selection.Value, "d")) = 2 Then
            .NumberFormatLocal = _
                    "[DBNum3]""本日、""yyyy""年""m""月""d""日""(aaaa)""現　　在"""
        Else
            .NumberFormatLocal = _
                    "[DBNum3]""本日、""yyyy""年""m""月　""d""日""(aaaa)""現　　在"""
        End If
    End With
　
割り込み失礼しました。
(KAMIYA)
-----
 表示形式で全角が使えるとのことですので、
 あとは、１桁のときの日付の前のスペースですが、
 これは ０ （ゼロ）でも問題ないでしょうか？
 もし問題なければ、
  [DBNum3]"本日、"yyyy"年"m"月"dd"日（"aaaa"）
 にすることで、
  　本日、２００４年５月０９日（月曜日）
 のようになり、日付型として扱えます。
 
 いかがでしょうか？


 >とありますが何を教えたらよろしいですか？
 私の文章で、疑問符（？）の付いている文章です。
          ↓
 >　  >>『２００４年５月　７日（金曜日）』
 >   というのは、５の前にスペースは必要なく、
 >   日付のみ、二桁目のスペースが必要ということでよろしいですね？

  (INA)

----
１桁のときの日付の前のスペースですが、これは ０でも問題ないです。
よろしくお願いいたします。

（まき）

----
 それと、ご質問の回答はどうなりますか？

  (INA)

----

一応『[DBNum3]"本日、"yyyy"年"m"月"dd"日（"aaaa"）』で定義してできるというのは
わかりましたが、具体的に１枚目、２枚目のシートで自動的に日付を変える方法がわかりません。(KAMIYA)さんなどからも回答いただきましたがはじめに記載したように私はマクロについてまったく理解がないため(KAMIYA)回答をどう使っていいのかわかりません。（ＩＮＡ）さんもしよろしければ今までの内容を整理していただき、私の一番最初の質問の答えになるように答えていただけないでしょうか？？

（まき）

----
 >などとしたいのですがかのうですか？？
 マクロを使えば可能です。

 私の最後の質問には答えていただけないようなので、
 既記の表示形式で問題ないと解釈してよろしいですか？

  (INA)

----
 すみませんでした。問題ありません。

（まき）
-----
 作ってみました。お試し下さい。

 Sub Sample()
 Dim myDate As String
 Dim i As Long

    myDate = Application.InputBox("日付を入力して下さい。" & Chr(13) & Chr(13) & _
             "入力例） 2004/01/01", _
             "シート作成マクロ", Format(Date, "yyyy/mm/dd"), Type:=2)
    
    If IsDate(myDate) = False Then
        MsgBox "入力が不正です。マクロを終了します。", vbExclamation, "入力エラー"
        Exit Sub
    End If
    
    Range("R2").Value = CDate(myDate)
    Range("C26").Value = CDate(myDate)
    ActiveSheet.Name = Format(myDate, "mmdd")
        
    
    For i = 1 To 30
        
        If Month(CDate(myDate)) <> Month(CDate(myDate) + i) Then Exit For
        
        If Not (Weekday(CDate(myDate) + i) = 1 Or Weekday(CDate(myDate) + i) = 7) Then
        
            Worksheets(Format(myDate, "mmdd")).Copy after:=Worksheets(Worksheets.Count)
                
            With ActiveSheet
                .Range("R2").Value = CDate(myDate) + i
                .Range("C26").Value = CDate(myDate) + i
                .Name = Format(CDate(myDate) + i, "mmdd")
            End With
    
        End If
    Next i
 End Sub

   (INA)

----
すごいです。感激しました。もう少しお願いですが

番地Ｒ２・Ｃ２６ともにセンタリングで表示したいのですが。。

あと日付の後に『本日、２００４年５月１０日（月曜日）現　　在・・・』と曜日を自動入力したいのですが？？

（まき）
----
 もとになるシートを開いている状態でマクロを実行して下さい。
 開かれているシートをコピーしますので、
 そのシートが「Ｒ２・Ｃ２６ともにセンタリング」されて、
 表示形式も設定されていれば、問題ないはずです。

  (INA)

-----
できました！！！
本当にありがとうございました。

（まき）