|
▼ichinose さん:
こんばんは。
Intersectメソッド機能が、複数のセル範囲の共有セル範囲を表す Range オブジェクトを返すとはそういうことなのですね。
ありがとうございました。
>新規ブックの適当なシート(仮にSheet1としましょう)のモジュールに
>
>'====================================================================
>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
> If Not Application.Intersect(Range("a1,b5,c10"), Target) Is Nothing Then
> MsgBox "対象セルがダブルクリックされました" & vbCrLf & Target.Address
> Cancel = True
> End If
>End Sub
>
>として当該シートのセルA1,B5,C10をダブルクリックして見てください。
>
>又、その他のセルもダブルクリックして見て上記の3セルのそれとの動作の違いを
>確認して見てください。
確認してみます。
恐れ入りました。
|
|