[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『入力規制』(こうけい)
初心者で表現がおかしいかもしれませんがよろしくお願いいたします。
ユーザーフォームを使って伝票入力をしています。商品コードを入力すると商品名をセルに表示しています。商品コードが9桁あり途中まででも商品名がヒットしてしまうため、9桁入力するよう記述しています。
Plivate Sab TextBox6_Exit (ByVal Cancei As MSForms. ReturnBoolean)
With TextBox6
If Len (.Text) <> 9 Then '9桁指定
MsgBox "確認!!"
Cancel = True
End If
End With
End Sub
今回、787で始まる10桁の商品コードが追加される指示がありました。
新しい787で始まる10桁の商品コードを入力するとエラーが出てしまいます。
今までの商品コード(91で始まる9桁)の場合は上記記述が適用され、新しい787で始まる商品コードの場合は、10桁の入力以外はエラーが出るような記述はできないでしょうか、よろしくお願いいたします。
< 使用 Excel:Excel2010、使用 OS:Windows7 >
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean) With TextBox6 Select Case Len(.Text) Case 10 If Left(.Text, 3) <> "787" Then Cancel = True End If Case 9 If Left(.Text, 2) <> "91" Then Cancel = True End If Case Else Cancel = True End Select
If Cancel = True Then MsgBox "確認!!" End If End With End Sub (???) 2014/11/27(木) 17:40
(こうけい) 2014/11/27(木) 17:58
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.