エクセル２００３

エクセル２００３で勤務表を作ったのですが同じ形状のシートを１ヶ月分（ワークシート３０枚）を一つのブックに保存しています。
それぞれシート名を日付にしているのですが本当の日付と関連付ける事は可能でしょうか？
例えば１５日にエクセルのこのブックを立ち上げるとシート１５が開き、次の日（１６日）にこのブックを開くとシート１６が一番に開くようにしたいです…何か方法があれば宜しくお願いします。

No.1 ベストアンサー 回答者： tkrn 回答日時： 2007/06/25 18:23

エクセルマクロ(VBA)はわかりますか？

ThisWorkBookに下記のマクロを埋め込めば可能です。

sSheetName変数の書式はあわせてください。
とりあえず、該当シート名が「"シート"＋日」で開くように書いてあります。
また、該当シートがない場合は、保存したとき開いていたシートを開きます。

Private Sub Workbook_Open()
Dim shtSheet As Worksheet
Dim sSheetName As String

'日が半角数字の場合("シート"＋半角の日)
'sSheetName = "シート" & DateTime.Day(Now)
'日が全角数字の場合("シート"＋全角の日)
sSheetName = "シート" & StrConv(DateTime.Day(Now), vbWide)

For Each shtSheet In Me.Worksheets
If shtSheet.Name = sSheetName Then
shtSheet.Activate
Exit For
End If
Next
End Sub

この回答への補足

何度もすみません！！
できました！！よく見直すとＤＡＹがＤＡＴＥになってました！！
本当ありがとうございました！！
これで明日から楽ができてさらにみんなのミスも減ります。
本当ありがとうございました！！

補足日時：2007/06/27 01:38

この回答へのお礼

すばやい回答ありがとうございます！
さっそく試してみたんですがマクロがうまくいきません…
デバックしてみるとどうも
If shtSheet.Name = "勤務表" & DateTime.Date(Now) Then
この部分に間違いあがあるようなんですが僕の知識じゃどこが間違ってるのか分かりません。失礼ですがどこが駄目なのか時間が空いてる時でいいので教えて頂ないでしょうか？何度も本当にすみません。
シート名は勤務表24　←（半角）
みたいな感じです…　

お礼日時：2007/06/27 01:28