Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


26707 / 76732 ←次へ | 前へ→

【55355】Re:TextBoxが1つのユーザフォーム
お礼  よちよち  - 08/4/30(水) 7:53 -

引用なし
パスワード
   ▼ponpon さん:
>いろいろネットで調べましたが、
>私には、わかりません。何か方法があるかもしれません。
>識者の回答をお待ちください。
>
>ちなみに、Lockを使えば 何とかなりました。
>
>Private Sub UserForm_Initialize()
> With Me.CommandButton1
>    .Caption = "入力不可"
>    .Locked = True
> End With
>End Sub
>
>Private Sub TextBox1_AfterUpdate()
>  
>  If IsNumeric(Me.TextBox1.Value) Then
>   With Me.CommandButton1
>     .Caption = "入力可"
>     .Locked = False
>   End With
>  End If
>End Sub
ponponさん 夜遅くに回答頂き、有難う御座います。
上例の場合はうまく動作しますが、CommandButton1.Enable=falseの状態にすると
 AfterUpdateに制御が渡ってきません。
何か1つ制御が移る先がないとだめなようです。
連休明けまで期間があるので、どなたかの助言を待ってみます。
0 hits

【55344】TextBoxが1つのユーザフォーム よちよち 08/4/29(火) 21:01 質問
【55345】Re:TextBoxが1つのユーザフォーム ponpon 08/4/29(火) 21:30 発言
【55348】Re:TextBoxが1つのユーザフォーム よちよち 08/4/29(火) 22:02 回答
【55350】Re:TextBoxが1つのユーザフォーム ponpon 08/4/29(火) 23:32 発言
【55355】Re:TextBoxが1つのユーザフォーム よちよち 08/4/30(水) 7:53 お礼
【55357】Re:TextBoxが1つのユーザフォーム Yuki 08/4/30(水) 8:35 発言
【55358】Re:TextBoxが1つのユーザフォーム ponpon 08/4/30(水) 13:07 発言
【55436】Re:TextBoxが1つのユーザフォーム よちよち 08/5/4(日) 10:25 お礼
【55354】Re:TextBoxが1つのユーザフォーム ichinose 08/4/30(水) 7:34 発言

26707 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free