Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


21851 / 76734 ←次へ | 前へ→

【60271】Re:入力規則
お礼  なっちょめ E-MAIL  - 09/2/6(金) 16:47 -

引用なし
パスワード
   ▼ルトン さん:

お世話になっております。

ヒントありがとうございました。
おかげさまで頂いたヒントを元に自分のやりたい事ができました。
ありがとうございました。

素人なのであまり人様にお見せ出来るようなコードではないと思いますが、
一応下記のようなコードにしました。
プロの方から見られるとなんじゃそりゃっと思われそうですが。。。

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 "B列には数字を入力する事が出来ません[0-9]。" _
  & vbNewLine & "数字以外の文字を入力して下さい。" _
  , vbCritical, "データ入力ミス"
  
  target.Value = ""
  target.Select
End If

If myData.Value Like "*[0-9]*" Then
  MsgBox "B列には数字を入力する事が出来ません[0-9]。" _
  & vbNewLine & "数字以外の文字を入力して下さい。" _
  , vbCritical, "データ入力ミス"
  
  target.Value = ""
  target.Select
End If
End Sub

>▼なっちょめ さん:
>書くところは、ワークシートモジュールの Worksheet_Change イベントで
>良いでしょう。
>
>[値] Like "*[1-9]*"
>
>にて1〜9が含まれている事を判断できます。
>
>
>まず、これらの情報で検索をして、ご自身でできるところまで
>やってみましょう。
>
>(「コードを書いてくれ」では無いのですよね?)
>
>以後のメンテ等を考えると、ある程度は自身で作った方が良いです。

2 hits

【60221】入力規則 なっちょめ 09/2/5(木) 0:28 質問
【60222】Re:入力規則 ルトン 09/2/5(木) 9:47 発言
【60271】Re:入力規則 なっちょめ 09/2/6(金) 16:47 お礼

21851 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free