最終更新日を表示する
Function LastSaveTime() Application.Volatile LastSaveTime = ThisWorkbook.BuiltinDocumentProperties("Last save time").Value End Function
ワークシート名のハイパーリンク一覧を作成する
Sub HyperlinkListSheetsName() Dim objSheet As Object Dim intLoop As Integer intLoop = ActiveCell.Row For Each objSheet In ActiveWorkbook.Sheets ActiveWorkbook.ActiveSheet.Cells(intLoop, ActiveCell.Column).Value = "=HYPERLINK(""#" & objSheet.Name & "!A1"",""" & objSheet.Name & """)" intLoop = intLoop + 1 Next End Sub