エクセル研究室−Excelの基本的な使い方、応用技を紹介

特定の範囲内にアクティブセルがある場合警告表示する


特定の範囲内にアクティブセルがある場合警告表示する



A1:A10の範囲内にアクティブセルがある時に実行した場合、警告のダイアログを表示します。

Sub Sample90()
If Not Intersect(Range("A1:C10"), ActiveCell) Is Nothing Then
  MsgBox "この範囲内では実行出来ません", vbCritical
End If
End Sub







エクセルVBAテクニック集トップ