Excel VBA質問箱 IV

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

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


4188 / 13644 ツリー ←次へ | 前へ→

【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

これらを組み合わせて作ってみてください。
必要であればシート名が見つからない場合のエラー処理も考えた方が良いかもしれません。

4188 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free