|
▼mutu さん:
>ご回答ありがとうございました。
>
>これでやってみようと思ったのですが、
>また新しい問題にぶつかってしまいました。
>
>教えていただいた、下記のコードですが、
>
>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()
>
>にするだけでよいのでしょうか?
ユーザーフォームと同様にシートがアクティブになる度にCommandButton1.Enabled を
Falseにしたいというのであればそれでいいと思います。
一度だけにしたいのであれば、
Private Sub Workbook_Open()
Worksheets("Sheet1").CommandButton1.Enabled = False
End Sub
を使えばいいと思います。
>
>また、TextBox内は西暦を入力したく、
>半角数字4文字のみ受け付けるようにしたいと思っています。
>
>そこで、TextBoxプロパティーの項目別設定において
>
>IMEMode を 2-fmIMEModeoff
>MaxLength を 4
>
>に設定しました。
>ただ、これだと半角数字1文字〜3文字までも入力受付してしまうと思うのですが、
>どのようにすれば、半角数字1文字〜3文字を弾く事ができるのでしょうか?
>ご回答、よろしくお願いします。
弾きたいタイミングで
If Len(TextBox1.Text) < 4 Then
MsgBox "文字数が足りません"
End If
のような処理ではダメですか?
|
|