셀 내용을 인수로 사용하여 Excel 2007/2010 상황에 맞는 메뉴에서 실행 파일 실행

Excel 2007 및 2010 모두. 셀을 마우스 오른쪽 버튼으로 클릭하고 선택 항목 중 하나를 "Run Slump"로 지정하고 싶습니다. 사용자가이를 선택하면 실행 파일이 시작됩니다.

     \\servername\path\slump.exe 12345

12345는 마우스 오른쪽 버튼으로 클릭 한 셀의 내용입니다. 누군가 컨텍스트 메뉴에 추가하는 방법에 대한 개요를 제공하고 프로젝트를 시작하는 VBA에 셀의 내용을 전달할 수 있으며 사용자가 Excel의 복사본에 기능을 추가하는 것이 가장 좋은 방법은 무엇입니까? 그 / 그녀는 관리자입니다 기계.

편집 : 그것을 배포하는 방법을 결정하는 경우에 차이를 만드는 경우 - 나는 아마도 그것을 사용하는 7 ~ 8 명이있을 것이라고 언급해야합니다. 우리는 모두 같은 회사에서 일합니다. 매크로에 서명 할 인증서가 있다고 생각하지 않습니다. 아마 우리는 서로 다른 프로젝트에 대해 비슷한 것들을 설치하고 제거하려고 할 것입니다.

microsoft-excel microsoft-excel-2007 microsoft-excel-2010

— Levin Magruder
소스

하나의 통합 문서에서만 기능이 필요한 경우. 해당 통합 문서에 매크로를 추가하고 xslm으로 저장할 수 있습니다. 가장 쉬운 방법입니다.

그러나 여러 통합 문서에 기능이 필요한 경우 필요에 따라 추가 기능 (다른 사람의 Excel 복사본에로드 할 수있는 코드) 또는 공유 매크로로 만들 수도 있습니다.

코드는 매우 간단합니다. 매크로가 활성화 된 통합 문서 (또는 추가 기능)가로드되면 상황에 맞는 메뉴 (오른쪽 클릭 메뉴)에 Entery를 추가하십시오.

Private Sub Workbook_Open()
With Application.CommandBars("Cell")
    With .Controls.Add(Type:=msoControlButton)
        .BeginGroup = True
        .Caption = "Run Slump"
        .OnAction = "doTheSlump"
    End With
End With
End Sub

통합 문서가 닫히거나 비활성화 될 때마다 상황에 맞는 메뉴를 제거하십시오.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  With Application.CommandBars("Cell")
    .Controls("Run Slump").Delete
  End With
End Sub

이 코드는 vba 모듈에 있어야 실행됩니다. 이 예제에서는 셀 내용을 파일 경로로 사용하여 전자 필기장을 엽니 다.

Sub doTheSlump()
retval = Shell("C:\WINDOWS\notepad.exe " + Selection.Value, 1)
End Sub

— jdh
소스