アプリ版:「スタンプのみでお礼する」機能のリリースについて

月末値
bookを開いたときに前月シートをアクティブにして開くにはどうのうようなコード処理になるのでしょうか?
当月の月が11月でしたらbookを開いた時に10月シートをアクティブにする感じです
試行錯誤しながらやってますがわかりませんVBA初心者になります。
A1に=today() B1に前月値の=EOMONTH()があります。
Sub テスト()
workbooksheet.Month(Cells(1, 2).Value)&月).select  ??
End Sub
どなたか詳しいかたご教示ください

「月末値 bookを開いたときに前月シート」の質問画像

A 回答 (1件)

こんにちは!



>当月の月が11月でしたらbookを開いた時に10月シートをアクティブにする感じです

シート名が 1月~12月まであるとすると、
セルのシリアル値は関係なく、シート名だけで選択できると思います。
↓のコードにしてみてください。

Private Sub Workbook_Open()
Dim sN As String
sN = Format(DateAdd("m", -1, Date), "m月")
Worksheets(sN).Activate
End Sub

こんな感じではどうでしょうか?m(_ _)m
    • good
    • 0
この回答へのお礼

素晴らしい限りです
VBAに対して興味が更に湧いてきました。ありがとう御座います

お礼日時:2017/11/14 17:39

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!