|
Statisさん、早速ありがとうございます。
下記をSheet1に貼り付けて A1に入力したところ Ifの次の Ma = のところで
1004 Range メソッド失敗 となってしまいました。
抱かば負ぶえですみませんが。
ちなみに質問の趣旨はマクロで値を貼り付けていたところ範囲外に気づかなかったので
検知する方法があればと思った次第です。
▼Statis さん:
>こんにちは
>
>これで如何かな?
>セルA1を対象としています。
>
>では該当のシートモジュールにて
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>Dim Ma As Variant, C As Range
> For Each C In Target
> If C.Address(0, 0) = "A1" Then
> Ma = Application.Match(C.Value, Range((Mid(C.Validation.Formula1, 2))), 0)
> If IsError(Ma) Then
> MsgBox "その値は無効です。"
> Application.EnableEvents = False
> C.ClearContents
> Application.EnableEvents = True
> End If
> End If
> Next
>End Sub
|
|