|
▼りん さん:
ありがとうございました。
希望通りのものになりました。
お願いばかりですが・・・
VBA不慣れな人間にとってはりんさん強い味方ですね
いつも掲示板拝見してます
これからもよろしくお願いします。
失礼します。
>
>>数字であればMsgBoxの表示は出さないようにするには?
>
>>>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
> IF IsNumeric(Target.Value) Then
> 'ここに数値だったときの処理を書く
>
> ELSE
> 'ここに数値以外だったときの処理を書く
>
> End if
>>> End If
>>> End With
>>> End If
>>>End Sub
>
>
>こんな感じです。
|
|