EXCEL - 最終更新日、Hyperlink

最終更新日を表示する

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