[[20100313221127]]　『今日の日付のセルに飛ぶ』（ｋｋ）　ページの最後に飛ぶ

『今日の日付のセルに飛ぶ』（ｋｋ）
A列に縦に365日分の日付があります。マクロで今日の日付のセルに飛ぶと言うのでしょうか？本日のセルにあわせたいのですができますか？教えてください。

 A列が日付データであることを想定していますが、
 Sub FindToday()
    On Error Resume Next
        Columns("A:A").Find(Date).Select
    On Error GoTo 0
 End Sub
 でできますか？
 (Mook)

バッチリできました。Mookさんありがとうございました。

すみません。これで応用できると思いましたができませんでした。
質問内容は変わりませんがBCの結合せる列（B19:C377)になります。に縦に365日分の日付があります。
こんな時はどうしたらできますか？質問がまとまりがなくすみませんです。よろしくお願いします。（ｋｋ）

 >列（B19:C377)になります。に縦に365日分の日付があります

 359日しか無いですけど・・・(mitsu)

 Columns("B:C").Find(Date).Select   (kei)

皆さん回答有難うございます。マクロが動かない理由は2010/1/1と手入力して下にコピーすると動くのですが=DATE(B1,E1,1)このように関数を使うとマクロが動かなくなります。どうしたらいいのでしょうか？
（ｋｋ）

 シートの状況が
 　・B19セルを先頭に365日分が一行ずつ連続して日付が入っている。
 　・B19セルは、　B1セルの年、E1セルの月の1日の日付になっている
 と決まっているのなら、B1,E1セルの値からセルを算出しても
 同じセルが得られるのではないかと思います。

 '------
Sub 移動()
Dim i As Long
    i = Date - DateSerial(Range("B1").Value, Range("E1").Value, 1)
    If i < 0 Or 364 < i Then
        MsgBox "カレンダーを変更してください。"
    Else
        Range("B" & i + 19).Select
    End If
End Sub
 '------

 (HANA)

HANAさん回答有難うございました。解決しました。有難うございました。（ＫＫ）

コメント返信：

[ 一覧(最新更新順) ]

[[20100313221127]] 『今日の日付のセルに飛ぶ』（ｋｋ） ページの最後に飛ぶ

[[20100313221127]]　『今日の日付のセルに飛ぶ』（ｋｋ）　ページの最後に飛ぶ