紹介マニアMoinMoin

 Dim myStamp As String
 Dim myFileName As String
 Dim myPath As String
 Dim Res As String
     myFileName = Me.Name
     myPath = ThisWorkbook.Path & "\" & myFileName
     'Res = MsgBox("" & myPath)
     myStamp = Format(FileDateTime(myPath), "yyyy年mm月dd日")
     'Res = MsgBox("更新日付・時刻 ⇒ " & MyStamp)

[XL2002数式が入力されているセルだけを保護する方法]


紹介マニアMoinMoin: Excel (last edited 2009-12-02 10:28:22 by sakito)