| |
>このコードを参考に、
>UserFormを使用しないで作るためには、
>
>Private Sub UserForm_Initialize()
>を
>
>Private Sub Worksheet_Activate()
>
>にするだけでよいのでしょうか？
CommandButton1のプロパティで
Enabled False
と設定すれば、デフォルトがFalseになります。
>また、TextBox内は西暦を入力したく、
>半角数字４文字のみ受け付けるようにしたいと思っています。
>
>そこで、TextBoxプロパティーの項目別設定において
>
>IMEMode を 2-fmIMEModeoff
このIMEModeは、TextBox1の初期状態を設定するだけで
日本語入力できなくなるわけではありません。
>ただ、これだと半角数字１文字〜３文字までも入力受付してしまうと思うのですが、
>どのようにすれば、半角数字１文字〜３文字を弾く事ができるのでしょうか？
Private Sub TextBox1_Change()
CommandButton1.Enabled = False
If Len(TextBox1.Text) <> 4 Then Exit Sub
・
・
とすれば、良いと思います。
一度TrueになるとずっとTrueのままになりそうですね。
|
|
ハチ
- 06/6/9(金) 18:08 -
