| |
▼にしもり さん：
こんばんは。
>以前、intersectを利用するのは目的のセルの範囲内に入力したかチェックする為である
そのためにあると言うのではなく、そのような利用方法もあると言うことですよね！！
Intersectメソッド機能は、あくまでも
「複数のセル範囲の共有セル範囲を表す Range オブジェクトを返します。」
です（Ｂｙ Ｈｅｌｐ）。
>このintersectは、目的のセルの範囲内をダブルクリックしてるかのチェックをする為に利用することも出来るでしょうか。
可能です。
新規ブックの適当なシート（仮に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
として当該シートのセルＡ１，Ｂ５，Ｃ１０をダブルクリックして見てください。
又、その他のセルもダブルクリックして見て上記の３セルのそれとの動作の違いを
確認して見てください。
|
|
ichinose
- 07/12/7(金) 18:10 -
