Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4202 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【57983】ワークブックを開くたびに、"=today()"のセルを表示させたい 初初初心者 08/9/25(木) 16:58 質問[未読]
【57985】Re:ワークブックを開くたびに、"=tod... カウボーイズ 08/9/25(木) 18:03 回答[未読]
【57983】ワークブックを開くたびに、"=toda...
質問  初初初心者  - 08/9/25(木) 16:58 -
引用なし
パスワード
   すみません。
エクセルを開いたときに、常にtodayのセルを表示させたいのですが・・・
現在作っているファイルは、月ごとにシートがあります。(9月、10月、11月・・・という感じです)
そして、月のシートの中のA列には1日から末日までが表示されています。(9月1日、9月2日、9月3日・・・という感じです)セルの書式設定では、日付表示となっています。
このワークブックを開いたときに、常に今日の日付のセルを表示するようにしたいのです。
共用として使っているんですが、来月の情報を入力してそのまま保存してしまう人がいるんで、開いたときに保存した月のあるシートが表示されてしまい、何度も入力ミスがありました。困っております(泣)
【57985】Re:ワークブックを開くたびに、"=t...
回答  カウボーイズ  - 08/9/25(木) 18:03 -
引用なし
パスワード
   こんばんは
1．ワークブックを開いた時に特定の動作をさせる
　　Workbook_Open のイベントプロシージャを使います

2．今月をあらわす文字列を作る（今月が9月とします）
　　Month( Date() ) & "月" で文字列 "9月" が返ります

3．シートをアクティブにする
　　Worksheets("シート名").Activate

4．日にちに該当するセルをアクティブにする（A1から下に1日ずつ増加しているとします）
　　Cells( Day( Date() ),"A" ).Activate

これらを組み合わせて作ってみてください。
必要であればシート名が見つからない場合のエラー処理も考えた方が良いかもしれません。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4202 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free