excel - ExcelのMicrosoft Wordクイックパーツと同等の機能は何ですか

Question

エクセルのセルに「最終保存日」を自動表示させたいです。Excel シートの作成者は VBA コードの記述に慣れていない可能性があるため、VBA コードを記述することは現実的ではない場合があります。

Answer 1

アドインとしてパックする場合は、このコードを記述する必要はありませんが、マクロを使用する必要があります。これを行う方法は他にありません。

Public Function LastSaveTime() As Variant
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(ActiveWorkbook.FullName)
    'you can delete the debug.print, it's just for debug ;)
    Debug.Print "Modified: " & f.DateLastModified
    LastSaveTime = f.DateLastModified
End Function

DateLastModified を探して、Excel ヘルプから適応。

これをモジュールに保存し、「アドインとして配布する」方法に従ってください。

ここで、基本的なエラーがなければ、ワークブックに新しい worksheet-function が提供=LastSaveTime()され、アクティブなワークブックの DateLastModified が返されます。application.callerアクティブなワークブックが原因で問題が発生する可能性があります。これをアドインとして使用する場合、コンストラクトを使用する方が節約になる場合があります。