[[20141127165907]] 『入力規制』(こうけい) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『入力規制』(こうけい)

初心者で表現がおかしいかもしれませんがよろしくお願いいたします。
ユーザーフォームを使って伝票入力をしています。商品コードを入力すると商品名をセルに表示しています。商品コードが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.