No.2 エクセルでファイルを表示した回数をカウントしたいのですが・・・

質問

いつもお世話になっております。
No.1は、良回答を頂き締めさせて頂きました。
心より御礼申し上げます。

本日、会社へ参りましたら、
カウントした回数を、エクセルのファイル（中身）に表示したいと言われてしまって・・・
可能なことでしょうか？

ご教授よろしくお願いいたします。

回答No.1

zap35 · ベストアンサー

前回のマクロを「オープン回数」シートのA1セルに書き込むように変更しました。「オープン回数」シートがなければ自動作成します

Private Sub Workbook_Open()
Dim cnt As Long
On Error GoTo end0
cnt = Worksheets("オープン回数").Range("A1").Value
Worksheets("オープン回数").Range("A1").Value = cnt + 1
ThisWorkbook.Save
Exit Sub
end0:
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "オープン回数"
ActiveSheet.Range("A1").Value = 1
Worksheets(1).Activate
ThisWorkbook.Save
End Sub

もし予め開いた回数を書き込むシート、セルが決まっているなら
Private Sub Workbook_Open()
Const S as String = "オープン回数" 'シート名
Const R as String = "A1" '書き込むセル
　With Worksheets(S).Range(R)
　　IF IsNumeric(.Value) Then
　　　　.Value = .Value + 1
　　　　ThisWorkbook.Save
　　End If
　End With
End Sub
でもかまいません。２～３行目のシート名、セルアドレスは修正してください

お礼

何度もありがとうございます。
無事にカウントが表示されました。
トピを見つけて、すぐにレス下さいましたこと、
お時間頂戴しまして恐縮です。
本当にありがとうございました・・・

回答No.2

merlionXX

どうやって回数を記録しているのだろうと検索してみました。
http://odn.okwave.jp/qa3146555.html　ですね。
面白そうなので参加させてください。
開いたときに回数を表示させるようにしてみました。

ありゃ、もう前回の回答者さんの答えが出てしまってますが・・・・。

Private Sub Workbook_Open()
Dim cnt
On Error GoTo end0
With ThisWorkbook
cnt = .CustomDocumentProperties("オープン回数").Value
.CustomDocumentProperties("オープン回数").Value = cnt + 1
.Save
MsgBox "オープン回数：" & .CustomDocumentProperties("オープン回数").Value & "回", , " by ME"
Exit Sub
end0:
.CustomDocumentProperties.Add Name:="オープン回数", _
LinkToContent:=False, _
Type:=msoPropertyTypeNumber, Value:=1
.Save
MsgBox "オープン回数は自動的に記録されます。", , " （￣ー￣）v "
End With
End Sub

お礼

ご回答、ありがとうございました。
レス下さいましたこと、心より感謝申し上げます。
再拝