Excel VBA セルをダブルクリックして電卓を起動させる

• Pathname【ﾊﾟｽﾈｰﾑ】（必須）
  起動したいアプリケーション名を指定します。アプリケーションが保存されているパスがWindowsに登録されている場合は、ファイル名だけで起動できますがそうでないときは、フルパスで指定します。
• Windowstyle【ｳｲﾝﾄﾞｳｽﾀｲﾙ】（省略可）
  実行時のウィンドウ形式を以下の定数または、値で設定します。

  Windowstyleの定数、値

  定数	値	内容
  vbHide 【ﾊｲﾄﾞ】	0	ウィンドウが非表示になり、フォーカスが 非表示のウィンドウに渡されます。
  vbNormalNoFoucs 【ﾉｰﾏﾙﾉｰﾌｫｰｶｽ】	1	ウィンドウがフォーカスを持ち 元のサイズと位置に復元されます。
  vbMinimizedFocus 【ﾐﾆﾏｲｽﾞﾄﾞﾌｫｰｶｽﾞ】	2	ウィンドウがフォーカスを 持って最小化されます。
  vbMaximizedFocus 【ﾏｷｼﾐｽﾞﾄﾞﾌｫｰｶｽﾞ】	3	ウィンドウがフォーカスを 持って最大化されます。
  vbNormalNoFocus 【ﾉｰﾏﾙﾉｰﾌｫｰｶｽ】	4	ウィンドウが直近のサイズと位置に復元されます。 現在アクティブなウィンドウが引き続き アクティブのままです。
  vbMinimizedNoFocus 【ﾐﾆﾏｲｽﾞﾉｰﾌｫｰｶｽﾞ】	6	ウィンドウが最小化されて表示されます。 現在アクティブなウィンドウが引き続き アクティブのままです。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim セル範囲 As Range
Set セル範囲 = Intersect(Target, Range("A2:A5"))
If Not セル範囲 Is Nothing Then
Shell "calc.exe", vbMinimizedFocus
End If
End Sub

3行目【Set セル範囲 = Intersect(Target, Range(“A2:A5”))】
Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのIntersect【ｲﾝﾀｰｾｸﾄ】メソッドを使用して共有せるがあるかを比較するセル範囲1には、ダブルクリックしたセルが渡されるBeforeDoubleClick【ﾋﾞﾌｫｱﾀﾞﾌﾞﾙｸﾘｯｸ】イベントプロシージャーの引数Targt【ﾀｰｹﾞｯﾄ】を指定し、第2引数のセル範囲2には、A2セル～A5セルを指定して、Intersect【ｲﾝﾀｰｾｸﾄ】メソッドの戻り値をオブジェクト変数「セル範囲」にSet【ｾｯﾄ】キーワードを使用して代入します。

4行目【If Not セル範囲 Is Nothing Then】
If【ｲﾌ】ステートメントを使用して、比較演算子のNot演算子を使いオブジェクト変数「セル範囲」がNothingでない場合を定義しています。つまり、ダブルクリックしたセルがA2セルからA5セルの範囲に入っている場合を定義します。

5行目【Shell “calc.exe”, vbMinimizedFocus】
4行目の条件分岐が成立したらShell 【ｼｪﾙ】関数を使用して電卓を起動します。

• オブジェクト（省略可）
  Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトを指定します。
• セル範囲1（必須）
  共有部分があるか確認する1番目のセル範囲をRange【ﾚﾝｼﾞ】オブジェクトで指定します。
• セル範囲2（必須）
  共有部分があるか確認する2番目のセル範囲をRange【ﾚﾝｼﾞ】オブジェクトで指定します。
• セル範囲3～セル範囲30（省略可）
  共有部分があるか確認する3番目～30番目までのセル範囲をRange【ﾚﾝｼﾞ】オブジェクトで指定します。