| |
▼ルトン さん：
お世話になっております。
ヒントありがとうございました。
おかげさまで頂いたヒントを元に自分のやりたい事ができました。
ありがとうございました。
素人なのであまり人様にお見せ出来るようなコードではないと思いますが、
一応下記のようなコードにしました。
プロの方から見られるとなんじゃそりゃっと思われそうですが。。。
Private Sub worksheet_change(ByVal target As Range)
Dim myData As Range
Set myData = Application.Intersect(target, Range("B:B"))
If target.Column <> 2 Then Exit Sub '列のB以外は無視
If myData.Value Like "*[0-9]*" Then
MsgBox "Ｂ列には数字を入力する事が出来ません[0-9]。" _
& vbNewLine & "数字以外の文字を入力して下さい。" _
, vbCritical, "データ入力ミス"
target.Value = ""
target.Select
End If
If myData.Value Like "*[０-９]*" Then
MsgBox "Ｂ列には数字を入力する事が出来ません[0-9]。" _
& vbNewLine & "数字以外の文字を入力して下さい。" _
, vbCritical, "データ入力ミス"
target.Value = ""
target.Select
End If
End Sub
>▼なっちょめ さん：
>書くところは、ワークシートモジュールの Worksheet_Change イベントで
>良いでしょう。
>
>[値] Like "*[1-9]*"
>
>にて1〜9が含まれている事を判断できます。
>
>
>まず、これらの情報で検索をして、ご自身でできるところまで
>やってみましょう。
>
>（「コードを書いてくれ」では無いのですよね？）
>
>以後のメンテ等を考えると、ある程度は自身で作った方が良いです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 09/2/5(木) 0:28 -
