Excel VBA質問箱 IV

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

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


5213 / 13645 ツリー ←次へ | 前へ→

【52074】指定したシート・セルでopenするには はっち 07/10/18(木) 23:50 質問[未読]
【52075】Re:指定したシート・セルでopenするには かみちゃん 07/10/19(金) 0:55 発言[未読]

【52074】指定したシート・セルでopenするには
質問  はっち  - 07/10/18(木) 23:50 -

引用なし
パスワード
   こんばんは

スケジュール管理するために、各シート名を1〜12とし
シート内に1〜31と縦に記載しています。
このエクセルを立ち上げた際に、自動で今日の日付のセルを
選択してくれるようにするのはどのようなマクロを
組めば良いのか知恵を貸してください。

宜しくお願いします

【52075】Re:指定したシート・セルでopenするには
発言  かみちゃん  - 07/10/19(金) 0:55 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>このエクセルを立ち上げた際に、自動で今日の日付のセルを
>選択してくれる

マクロの記録などで、どこまで作れましたか?

以下を標準モジュールに記述してみてください。
Sheet2のA2セルがアクティブになります。

Sub Auto_OPEN()
 MsgBox Date & vbCrLf & Year(Date) & vbCrLf & Month(Date) & vbCrLf & Day(Date)
 Sheets("Sheet2").Activate
 Range("A2").Activate
End Sub

または、ThisWorkbookモジュールに以下のように記述することでもいいです。
Private Sub Workbook_Open()
 MsgBox Date & vbCrLf & Year(Date) & vbCrLf & Month(Date) & vbCrLf & Day(Date)
 Sheets("Sheet2").Activate
 Range("A2").Activate
End Sub

> シート内に1〜31と縦に記載

どこの列のどこの行からどのように記載されているのかわからないため、現時点
ではこの程度のことしか書けません。

不明な点があれば、具体的なシートレイアウトと、ご自身でどこまでできたかを
示してみましょう。
また、自己解決された場合は、どのように解決されたのか教えてください。
上記コードは、一点注意しなければいけない点をわざと触れていません。
1〜12のシートが一番左から順番に並んでいない場合は、不具合を起こす可能性
があります。
その部分をわざと対処していません。

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