Excel VBA質問箱 IV

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

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


29931 / 76733 ←次へ | 前へ→

【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のシートが一番左から順番に並んでいない場合は、不具合を起こす可能性
があります。
その部分をわざと対処していません。

1 hits

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

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