日付自動実行マクロについて質問です。

質問

エクセル2000で日計表を作成しています。
Ａ列には日付のシリアル値が、Ｂ列には日付、Ｃ列には曜日が入っています。
毎日データを挿入するのはＤ列からとなります。
そのファイルを開いた時に自動実行マクロでその日のＤ列にセルを飛ばすのにはどうしたらいいでしょうか？
苦労しています、どなたか詳しい方教えていただけると助かります。

回答No.1

deecyan · ベストアンサー

こんばんは　こんなんでどうでしょう？

Sub auto_open()
Dim ToDay As Long
ToDay = Int(Now() - DateValue(Year(Now) & "/1/1"))
For ii = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(ii, 1).value = ToDay Then
Cells(ii, 4).Select
Exit For
End If
Next
End Sub

日付のシリアル値とゆうのは
1月1日を1とした日ですよね？
excelでゆうシリアル値なら　ToDayを
ToDay = Int(Now())
としてください。

お礼

ありあがとうございました。
２日あれこれやってやっと出来ました。
参考にさせていただき、
Private Sub Workbook_Open()
Dim ToDay As Long
ToDay = Int(Now())
For ii = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(ii, 1).Value = ToDay Then
Cells(ii, 4).Select
Exit For
End If
Next
End Sub
としたのですがいいのでしょうか。
とりあえず飛びましたので。
シリアル値とは1900/1/1を1とした日付値です。
VBA良くわからないのですみません。

回答No.2

imogasi

部外者には下記の点が良く判らないですが。
（１）Ａ列はある日付で考えると、ただ１行しかないのですか。１日１データ＝１行ですか。
（２）「Ａ列には日付のシリアル値が、Ｂ列には日付」とあるが、両者の違いは？普通は同じものと思いますが。
（３）＞でその日のＤ列にセルを飛ばすのにはどうしたらいいでしょうか？
前もってＡ列にその日付（先日付）だけは、入っているのですか。
しかし適当に仮定してやってみました。
（テストデータ）Ｓｈｅｅｔ２のＡ１：Ｄ１０です
１１，１２，１２，１１，２はＤ列に入っている。
３０日のＤ列は入れてない。
H16.10.25 11
H16.10.26 12
H16.10.27 12
H16.10.28 11
H16.10.29 2
H16.10.30
H16.10.31
H16.11.1
H16.11.2
H16.11.3
（コード）
ＶＢＥが面のプロジェクトエクスプローラーの
ＶＢＡＰｒｏｊｅｃｔの中の
ＴｈｉｓＷｏｒｋｂｏｏｋのＷｏｒｋｂｏｏｋのＯｐｅｎ
イベントに（ブックを開くと、自動実行させるために必要です）
Private Sub Workbook_Open()
Worksheets("sheet2").Activate
d = Range("d65536").End(xlUp).Row
For i = 1 To d
If Cells(i, "A").Value = ToDay Then
Cells(i, "D").Select
Exit Sub
End If
Next i
End Sub
をいれる。
ブックを閉じて、また開くと、H16.10.31（本日）の行の
Ｄ列をアクチブにしました。
これで良いのですか。

お礼

回答ありがとうございました。
お礼申し上げます。
説明不足で失礼しました。
参考にさせていただきました。
NO.1の方の回答でなんとか出来ました。
勉強不足ですみません。