ダブルクリックでエクセルBookを開く

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

    Const EXCEL = """" & "C:\Program Files (x86)\Microsoft Office\root\Office16\EXCEL.EXE" & """"
    Const PARAM = "/t"
    strFILE = """" & Range(Target.Columns.Address).Text & """"

    Application.DisplayAlerts = False
    Call Shell(EXCEL & Space(1) & PARAM & Space(1) & strFILE)
    Application.DisplayAlerts = True
    Cancel = True

End Sub

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

Dim strFILE As String

Const EXCEL = """" & "C:\Program Files (x86)\Microsoft Office\root\Office16\EXCEL.EXE" & """"

Const PARAM = "/t"

strFILE = """" & Range(Target.Columns.Address).Text & """"

Application.DisplayAlerts = False

Call Shell(EXCEL & Space(1) & PARAM & Space(1) & strFILE)

Application.DisplayAlerts = True

Cancel = True

End Sub

テンプレートサイト

－サンプル、テンプレート－

ダブルクリックでエクセルBookを開く

コメントを残す