| |
ご回答ありがとうございました。
これでやってみようと思ったのですが、
また新しい問題にぶつかってしまいました。
教えていただいた、下記のコードですが、
Private Sub UserForm_Initialize()
CommandButton1.Enabled = False
End Sub
Private Sub TextBox1_Change()
If TextBox1.Text = "1234" Then
CommandButton1.Enabled = True
End If
End Sub
このコードを参考に、
UserFormを使用しないで作るためには、
Private Sub UserForm_Initialize()
を
Private Sub Worksheet_Activate()
にするだけでよいのでしょうか？
また、TextBox内は西暦を入力したく、
半角数字４文字のみ受け付けるようにしたいと思っています。
そこで、TextBoxプロパティーの項目別設定において
IMEMode を 2-fmIMEModeoff
MaxLength を ４
に設定しました。
ただ、これだと半角数字１文字〜３文字までも入力受付してしまうと思うのですが、
どのようにすれば、半角数字１文字〜３文字を弾く事ができるのでしょうか？
ご回答、よろしくお願いします。
▼sin さん：
>▼mutu さん：
>はじめまして
>
>>おはようございます。
>>
>>VBA初心者のmutuと申します。
>>
>>
>>先日、TextBoxとCommandButtonを作成してみました。
>>
>>そこで、TextBoxに正しい数字が入力されたら、
>>CommandButtonを活性化させて、
>>ボタンを押せるようにしたいと思っているのですが、
>>やり方がわかりません。
>>
>>ちなみに、TextBoxに正しい数字が入力される前は、
>>CommandButtonは非活性化にしておいて、
>>ボタンを押しても無視するようにしたいとも思っています。
>>
>>
>>本にもぜんぜん載っていない事で、
>>さっぱり先に進めなくなってしまいました。
>>皆さんのお力を拝借いたしたく思います。
>>よろしくお願いします。
>
>
>活性化がよく分からないので違うかもしれませんが、
>ご参考までに。
>
>
>Private Sub UserForm_Initialize()
>
> CommandButton1.Enabled = False
>
>End Sub
>
>Private Sub TextBox1_Change()
>
> If TextBox1.Text = "1234" Then
> CommandButton1.Enabled = True
> End If
>
>End Sub
|
|
mutu
- 06/6/9(金) 15:43 -
