エクセルのマクロについての質問です。回答くださった方には、100ポイント差し上げます。

ファイルは、1~12月のカレンダーが入った家族のスケジュールファイルです。
シートは、「200801」から「200812」まで、12のシートに分かれています。
組みたいマクロは、ファイルを開く度に、前回の最終保存に左右されることなく、
当月のシートが選択されているというものです。
(例:本日10/18に開いたら200810シートが選択されている)
どうぞよろしくお願いいたします。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2008/10/18 21:05:27
  • 終了:2008/10/18 23:37:40

回答(2件)

id:SALINGER No.1

SALINGER回答回数3454ベストアンサー獲得回数9692008/10/18 21:43:43

ポイント50pt

VBEの画面からプロジェクトエクスプローラのThisWorkbookをクリックして開く画面に以下のマクロを貼り付けてください。


Private Sub Workbook_Open()

Dim str As String

str = Year(Now) & Month(Now)

' str = StrConv(str, vbWide)

On Error Resume Next

Worksheets(str).Activate

On Error GoTo 0

End Sub


シート名が全角の場合は、コメントになっているところのコメントを外してください。

http://q.hatena.ne.jp/

id:cane100

早速の回答、ありがとうございました。動作確認できましたが、実はシート目名が「200810」ではなく、「0810」なのです。4桁ではうまく起動しなかったのですが、「200810」と6桁に直したところ、思いどおりに起動しました。何か対策がありますでしょうか。

2008/10/18 22:20:34
id:SALINGER No.2

SALINGER回答回数3454ベストアンサー獲得回数9692008/10/18 22:38:31

ポイント50pt
    str = Year(Now) & Month(Now)

    str = Format(Now, "yymm")

でどうでしょう。

http://q.hatena.ne.jp/

  • id:cane100
    ありがとうございます。完璧です。大変助かりました。またよろしくお願いいたします。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません