Excel – テンプレートサイト

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim col As String
Dim rownum As Long

Const PATH_DOC As String = "C:\Users\fj0560af\Documents\20231019_ACN_運用手順書レビュー\6.2運用手順書\All\"
Const PATH_REV As String = "C:\Users\fj0560af\Documents\20231019_ACN_運用手順書レビュー\"

Debug.Print Target.Address(False, False)
col = Left(Target.Address(False, False), 1)
rownum = Mid(Target.Address(False, False), 2)

Set obj = CreateObject("WScript.Shell")
obj.exec (PATH_REV &amp; Range("C" &amp; rownum))

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim col As String

Dim rownum As Long

Const PATH_DOC As String = "C:\Users\fj0560af\Documents\20231019_ACN_運用手順書レビュー\6.2運用手順書\All\"

Const PATH_REV As String = "C:\Users\fj0560af\Documents\20231019_ACN_運用手順書レビュー\"

Debug.Print Target.Address(False, False)

col = Left(Target.Address(False, False), 1)

rownum = Mid(Target.Address(False, False), 2)

Set obj = CreateObject("WScript.Shell")

obj.exec (PATH_REV & Range("C" & rownum))

=MAX(A$22:INDIRECT(“A”&(ROW()-1)))+1

1	=MAX(A$22:INDIRECT(“A”&(ROW()-1)))+1

・Excel 空白セルを埋める