0

エクセルでの質問です 以前このようなご回答をされているのを見つけて質問させていただきます

この更新履歴を残すのではなく、
エクセルを開いた履歴を残すようにしたいのですが可能でしょうか？

いきなりの質問ですが、よろしくお願い致します


マクロを有効にして開くことが前提です。「更新履歴」というシートを自動で作成し、各シートの変更内容を自動的に記録します。なお、「更新履歴」のシートは非表示にしていますので、通常の操作をする人は気がつきません。
2003までは書式→シート→再表示、2007以後はホームタブ→書式→表示設定→シートの再表示で更新履歴を閲覧できます。不要になったらシートを削除して結構です。ブックを開くと新しい更新履歴のシートを自動で作成します。
新しいブックで動作を確認してからご利用ください。

念のため、マクロの設定と実行方法も書いておきます。
①下記のコード全体をコピーします。
②EXCELの画面で、Altを押しながらF11を押してＶＢＥ画面を呼び出します。
③左側のVBAProject画面のThisWorkBookをダブルクリックします。
④下記のコードを右側の空白な場所に貼り付けます。
④右上の×で閉じます。ＶＢＥを終了します。

Private Sub Workbook_Open()
flag = 0
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name = "更新履歴" Then
flag = 1
Exit For
End If
Next
If flag = 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "更新履歴"
Range("A1") = "シート名"
Range("B1") = "変更場所"
Range("C1") = "変更後の値"
Range("D1") = "年月日 時 刻 "
Columns("A:D").Select
Columns("A:D").EntireColumn.AutoFit
End If
Sheets("更新履歴").Visible = False
Sheets(1).Select
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "更新履歴" Then Exit Sub
With Sheets("更新履歴")
.Rows(2).Insert Shift:=xlDown
.Range("A2").Value = Sh.Name
.Range("B2").Value = Target.Address
.Range("C2").Value = Target.Value
.Range("D2").Value = Now
End With
End Sub


.




違反報告
回答日時：2011/7/28 09:13:41

質問者が選んだベストソリューション

Yahoo!知恵袋 4718日前