|
こんにちは。
>テキストボックスのプロパティを見ると、書かれた内容がTextと言う項目とValueと言う項目に書き込まれているようです。
>ここに直接(VBA上で)書き込んだ場合、次にワークブックをオープンにすると、自動的に表示されます。
>だから実際にワークブックをオープンにして、入力したテキストが、この部分に転記されれば、セル等に書き込まなくてもできると思っていました。
直接ユーザーフォームのコントロールに値をセット(保存)出来ますが結構面倒です。
以下のかんじです。
'UserForm1モジュール
Option Explicit
Private Sub CommandButton1_Click()
gtxt = TextBox1.Value
Unload Me
Application.OnTime Now + TimeValue("00:00:01"), "SetTextBoxValue"
End Sub
'標準モジュール
Option Explicit
Public gtxt As String
Sub SetTextBoxValue() 'txt As String)
With ThisWorkbook.VBProject.VBComponents("UserForm1")
.Designer.Controls("TextBox1").Value = gtxt
.Save
End With
End Sub
|
|