[[20060809022729]]　『ユーザーフォームのTextBoxに入力した数字は、次堰x（初心者）　ページの最後に飛ぶ

『ユーザーフォームのTextBoxに入力した数字は、次回、TextBoxを開いた時、その数字は消えてしまってますが、消えないように出来るのでしょうか？？』（初心者）

 次回とは？

ユーザーフォームのTextBoxに入力した数字及び文字が、いったんTextBoxをUnloadしてしまうと、消えてしまうので、消えないように出来ないでしょうか？？
（初心者）

 基本的にアンロードしたものは元に戻りません。
どこかに保存しておくことが必要です。
ひとつはアンロード前のテキストボックスの文字列をシートに記録しておく方法。
もうひとつの方法としてプロジェクト実行中（該当ブックを開いている間）に限れば、
Public宣言でプロジェクトレベルでの変数で保持することはできると思います。
http://miyahorinn.fc2web.com/vbabegin/s_07_02.html
(みやほりん)(-_∂)b

 追記：
アンロードしてしまったら「消えないように」ということはできないので、
上記のようにシートに記録したり、変数に保持したりしたものを
ユーザーフォームのInitiarizeイベントでテキストボックスに書き戻します。
　
それからもうひとつ方法が。
アンロードではなくて、Hideとする。
(みやほりん)(-_∂)b

Initiarizeイベントで、書き戻すとは、どのようにすればよいのでしょうか？
（初心者）

 こんな感じです。

 '[Userformモジュール]

 '読み込み
 Private Sub UserForm_Initialize() 
    TextBox1.Text = Worksheets("Sheet1").Range("A1").Value
 End Sub

 '書き込み
 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Worksheets("Sheet1").Range("A1").Value = TextBox1.Text
 End Sub

 参考
http://excelvba.pc-users.net/fol9/9_3.html
   (INA)

 おぉ～！！
 INAさん、お久しぶりです！！！
　
 お元気でらっしゃいましたか？
 現在はこちらに？
　
 とにかく、お元気そうで＾＾
 （キリキ）(〃⌒o⌒)b

 INAさん、お久しぶりです　＆　早速のフォローありがとうございます。
お土産話があったら聞きたいです～
(みやほりん)(-_∂)b

コメント返信：

[ 一覧(最新更新順) ]

[[20060809022729]] 『ユーザーフォームのTextBoxに入力した数字は、次堰x（初心者） ページの最後に飛ぶ

[[20060809022729]]　『ユーザーフォームのTextBoxに入力した数字は、次堰x（初心者）　ページの最後に飛ぶ