都道府県穴埋めゲーム

マクロの初心者です。
EXCELマクロで、ページのカウントアップマクロを作成しましたが、毎回保存をかけないと、カウントアップできない状態です。開くだけで、保存をかけなくても自動的にカウントアップする方法を、どなたか詳しい方、教えていただけないでしょうか?よろしくお願いします。なお、現状のマクロは以下の通りです。どこをどう修正すればよいのか教えていただければ幸いです。

Private Sub Workbook_Open()
Sheets("count").Range("AQ3").Value=Sheets("count"),Range("AQ3").Value+1
End Sub

A 回答 (1件)

>毎回保存をかけないと、カウントアップできない状態です


ならば、カウントアップした後に、すぐにVBAで上書き保存させては

Sheets("count").Range("AQ3").Value=Sheets("count"),Range("AQ3").Value+1
ThisWorkbook.Save

この回答への補足

即、解決しました。助かりました。どうもありがとうございました。

補足日時:2014/08/25 09:26
    • good
    • 0
この回答へのお礼

早速のご回答ありがとうございました。今後ともよろしくお願いします。

お礼日時:2014/08/24 17:31

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