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