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数式が入力されているセルだけを保護する方法]
cheap cigarettes progressive auto insurance lortab online buy hydrocodone ugg hydrocodone vicodin hgh spray ugg boot phentermine hgh ambien