[[20070319082012]]　『月別シートの今日のセルをアクティブにするには』（ＦＡＬＣＯＮ）　ページの最後に飛ぶ

『月別シートの今日のセルをアクティブにするには』（ＦＡＬＣＯＮ）

 いつも参考にさせて頂いています。
 早速ですが
 月別のシートをつくりました
　Ａ列にその月の１日～月末日までのセルがあります

　SHEET名：３月

	[A]　　
 [  1]	2007/03/01
 [  2]　 2007/03/02
 [  3]	　：
 [  4]	2007/03/19
 [  5]	2007/03/20
 [  6]	　：

　SHEET名：４月

	[A]　　
 [  1]	2007/04/01
 [  2]　 2007/04/02
 [  3]	　：
 [  4]	
 [  5]	
 [  6]	　
　
　１～１２月までのシートがあります

 このファイルを開いた時の今日の日付のセルを
 アクティブするにはどうすればいいでしょうか
　
 学校で下記の構文がありましたが
 １つのシート内でのセル選択しています
 シートをまたいで該当（本日）のセルを
 アクティブにするにはどうすればいいでしょうか

　参考とした構文です・・・　

  Private Sub Workbook_Open()
    Worksheets(1).Activate
    Dim rg As Range
    For Each rg In Range("A1:A31")
        If rg = Date Then
            rg.Activate
            Exit Sub
        End If
    Next
 End Sub

 で参考になりますか。
 （Mook）

 衝突しましたが
 日付はシリアルで入力されていますか？
 どの範囲に日付があるかわからないので、
 こんな感じかな？
　　　　　(SHIOJII）

 Sub test()
    Dim r As Range

    For Each r In Sheets("Sheet1").UsedRange
         If r.Value = DateValue(Now) Then
            r.Activate
            Exit For
         End If
    Next
 End Sub
　
 宜しくお願いします。

 うまくいかないので自己削除。m(__)m　
（純丸）(o^-')b

 >学校で下記の構文がありましたが
 宿題？ならば自分で考えましょう！
　(TOKI)

 エクセルのバージョンも書いておいた方が良いし、
 日付が文字列なのか、直接入力なのか、はたまた関数で表示されているのかで
 やり方の変わるからその辺りも書いておいた方が良いと思います。
 とりあえず、直接のコード提示はしてないけどね、
 これ以外だったら、MATCH使った方が良いとおもいますけど。
 （ただ、２００２、２００３でシート全部が対象という設定は使わないほうがいいと思います。
 　これは、マクロで操作できないから）
 つまり、１シートづつ検索していく。
 (Jaka)
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=156;id=FAQ

 一応こういうバグがあるので注意。
http://support.microsoft.com/kb/322007/ja
http://support.microsoft.com/kb/288291/ja
http://support.microsoft.com/kb/284881/JA/

 >学校で下記の構文がありましたが
 の下に、ここの常連さん達の名前がありますので
 「学校」＝「EXCELの学校」
 ではないでしょうか…？

 (Ohagi)

 出直してきました(^^；

 Private Sub Workbook_Open()
 Dim mys As Worksheet
   Application.ScreenUpdating = False
   On Error Resume Next
   For Each mys In Worksheets
     mys.Activate
     Columns("A:A").Find(What:=Date).Select
     If Err.Number = 0 Then Exit Sub
     Err.Clear
   Next mys
 Application.ScreenUpdating = True
 End Sub
　
（純丸）(o^-')b

 ご返事が遅くなりました。
 純丸さんの方法でその月のシートの本日のセルをアクティブ 
 に出来ました。
 Jakaさん。ご注意有りございます。
 参照して、注意してみます。
 TOKIさんへ。表現の方法が悪かったようです。
 Ohagiさんのおっしゃるように学校とはこのＥＸＣＥＬの
 学校という意味でした。　　　　 ＦＡＬＣＯＮ

 上記関連で追加の質問をさせてください。
 教えて頂いた構文で希望通りなり、この学校で検索して
 本日の行一行に「条件付き書式」で色を表示する機能を
 追加しました。

 画面上で例えばマウスのホイールボタンっていうんですかね
 回るボタンで ４月２５日の行の記事欄（Ｄ列）に予定を記入し 
 保存して終了し、再びファイルを開くと、あたり前ですが
 保存した時の画面の状態で開きます。この時、本日、３月２０日
 はアクティブになっていますが、画面上には出ていません。
 ホールボタンで３月２０日（本日）が出る画面まで戻すこと
 なく、 開いた時、保存時の画面状況に関係なく本日＝アクティブセル
 が画面上に表示するさせるにはどうすればいいでしょうか。
 　　　　　　　　　　　　　　　　　　　ＦＡＬＣＯＮ

 Application.ScreenUpdating = False と Application.ScreenUpdating = True  を
 取っちゃって下さい。それで画面のチラツキが気になるようなら、また言って下さい。
（純丸）(o^-')b

 純丸さん。再び有難うございます。
 Application.ScreenUpdating = False と Application.ScreenUpdating = True  を
 外して、希望通り、保存時の画面状態に関係無く、アクティブセル（本日）が
 画面上に出ます。画面のちらつきはさほど気になりません。十分に許容の範囲です。
 有難うございました。ＦＡＬＣＯＮ

コメント返信：

[ 一覧(最新更新順) ]

[[20070319082012]] 『月別シートの今日のセルをアクティブにするには』（ＦＡＬＣＯＮ） ページの最後に飛ぶ

[[20070319082012]]　『月別シートの今日のセルをアクティブにするには』（ＦＡＬＣＯＮ）　ページの最後に飛ぶ