Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11443 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【16168】テキストＢＯＸが入力禁止になりません。 くどう 04/7/19(月) 12:06 質問[未読]
【16169】Re:テキストＢＯＸが入力禁止になりません。 [名前なし] 04/7/19(月) 12:12 回答[未読]
【16170】Re:テキストＢＯＸが入力禁止になりません。 くどう 04/7/19(月) 12:19 発言[未読]
【16171】Re:テキストＢＯＸが入力禁止になりません。 つん 04/7/19(月) 12:30 回答[未読]
【16172】Re:テキストＢＯＸが入力禁止になりません。 くどう 04/7/19(月) 14:29 お礼[未読]
【16168】テキストＢＯＸが入力禁止になりません。
質問  くどう  - 04/7/19(月) 12:06 -
引用なし
パスワード
   フォームを出したあとフォーム上の４つのテキストＢＯＸを入力禁止
にしたいと思い下のような文を書きましたがテキストＢＯＸが
入力受付可能状態です。なにかおかしいのでしょうか。
どなたかご教示お願いします。

Private Sub Data_SyuSei_ST_Button_Click()
　　
　　SyuSei_Form.Show
　　SyuSei_Form.Syusei_Go_kingaku_TXT.Enabled = True
　　SyuSei_Form.Syusei_Go_SyuriKensuw_TXT.Enabled = True
　　SyuSei_Form.Syusei_Mae_kingaku_TXT.Enabled = True
　　SyuSei_Form.Syusei_Mae_SyuriKensuw_TXT.Enabled = True

End Sub
【16169】Re:テキストＢＯＸが入力禁止になりませ...
回答  [名前なし]  - 04/7/19(月) 12:12 -
引用なし
パスワード
   TrueじゃなくてFalseです。
【16170】Re:テキストＢＯＸが入力禁止になりませ...
発言  くどう  - 04/7/19(月) 12:19 -
引用なし
パスワード
   ご指導ありがとうございます。
でもFalseもやったんですけど変化なしです。
以外と簡単なことかもしれませんが。。

▼[名前なし] さん：
>TrueじゃなくてFalseです。
【16171】Re:テキストＢＯＸが入力禁止になりませ...
回答  つん E-MAIL  - 04/7/19(月) 12:30 -
引用なし
パスワード
   こんにちは。

Showしてしまえば、Formを閉じるまで、
次のコードにはいかないようです。
なので、

Sub test()

　　Load UserForm1
　　UserForm1.TextBox1.Enabled = False
　　UserForm1.Show

End Sub

この形で試してください。
【16172】Re:テキストＢＯＸが入力禁止になりませ...
お礼  くどう  - 04/7/19(月) 14:29 -
引用なし
パスワード
   ありがとうございます。動作しました。
Showしてしまったら以下のコードは実行しないみたい
ですね。勉強になりました。

▼つん さん：
>こんにちは。
>
>Showしてしまえば、Formを閉じるまで、
>次のコードにはいかないようです。
>なので、
>
>Sub test()
>
>　　Load UserForm1
>　　UserForm1.TextBox1.Enabled = False
>　　UserForm1.Show
>
>End Sub
>
>この形で試してください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11443 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free