|
▼りん さん:
ありがとうございます。goodです。
もうひとつ
数字であればMsgBoxの表示は出さないようにするには?
>>仮にA1:B500の場合はどう書き込めば宜しいのでしょう。
>>VBAは余り解りませんのでよろしくお願いします。
>ヘルプはインストールしてありますか?
>
>ヘルプより引用
>Intersectメソッド
>複数のセル範囲の共有セル範囲を表すRangeオブジェクトを返します。
>引用終了
>
>なので範囲を二つ指定して共有セル範囲(かぶってる部分)があるかどうかを判定します。
>
>Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Count = 1 And Not Target.Value = "" Then
> With Application
> If Not .Intersect(Target, .ActiveSheet.Range("A1:B500")) Is Nothing Then
> MsgBox IsNumeric(Target.Value), vbInformation, "数値ならTRUE、それ以外はFALSE"
> End If
> End With
> End If
>End Sub
>
>こんな感じです。
|
|