Excel VBA質問箱 IV

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

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


11423 / 13645 ツリー ←次へ | 前へ→

【16168】テキストBOXが入力禁止になりません。 くどう 04/7/19(月) 12:06 質問[未読]
【16169】Re:テキストBOXが入力禁止になりません。 [名前なし] 04/7/19(月) 12:12 回答[未読]
【16170】Re:テキストBOXが入力禁止になりません。 くどう 04/7/19(月) 12:19 発言[未読]
【16171】Re:テキストBOXが入力禁止になりません。 つん 04/7/19(月) 12:30 回答[未読]
【16172】Re:テキストBOXが入力禁止になりません。 くどう 04/7/19(月) 14:29 お礼[未読]

【16168】テキストBOXが入力禁止になりません。
質問  くどう  - 04/7/19(月) 12:06 -

引用なし
パスワード
   フォームを出したあとフォーム上の4つのテキストBOXを入力禁止
にしたいと思い下のような文を書きましたがテキストBOXが
入力受付可能状態です。なにかおかしいのでしょうか。
どなたかご教示お願いします。

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:テキストBOXが入力禁止になりませ...
回答  [名前なし]  - 04/7/19(月) 12:12 -

引用なし
パスワード
   TrueじゃなくてFalseです。

【16170】Re:テキストBOXが入力禁止になりませ...
発言  くどう  - 04/7/19(月) 12:19 -

引用なし
パスワード
   ご指導ありがとうございます。
でもFalseもやったんですけど変化なしです。
以外と簡単なことかもしれませんが。。

▼[名前なし] さん:
>TrueじゃなくてFalseです。

【16171】Re:テキストBOXが入力禁止になりませ...
回答  つん E-MAIL  - 04/7/19(月) 12:30 -

引用なし
パスワード
   こんにちは。

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

Sub test()

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

End Sub

この形で試してください。

【16172】Re:テキストBOXが入力禁止になりませ...
お礼  くどう  - 04/7/19(月) 14:29 -

引用なし
パスワード
   ありがとうございます。動作しました。
Showしてしまったら以下のコードは実行しないみたい
ですね。勉強になりました。

▼つん さん:
>こんにちは。
>
>Showしてしまえば、Formを閉じるまで、
>次のコードにはいかないようです。
>なので、
>
>Sub test()
>
>  Load UserForm1
>  UserForm1.TextBox1.Enabled = False
>  UserForm1.Show
>
>End Sub
>
>この形で試してください。

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