|
初歩的な質問です。既出でしたらご指摘下さい。
commandbuttonを押すとそのcommandbuttonのキャプションから値を受け取り、セルにその値が入力されるようにしています。
そのキャプションを簡単に変更できるように、別のボタンとテキストボックスを作り、ボタンを押すと、そのテキストボックスから値を受け、先ほどのセルに入植するcommandbuttonのキャプションに設定できるようにしました。
そこで変更されたキャプションの値は、それ以降その値がユーザーフォームに初期設定されるようにしたいのですが、どのようにしたらよいでしょうか?
〜ちなみに今はこんな感じのコードです〜
’セルに入力するコマンドボタンを押した
Private Sub CommandButton1_Click()
Selection.Value = CommandButton1.Caption
End Sub
’設定変更ボタンを押した
Private Sub CommandButton11_Click()
CommandButton1.Caption = TextBox1.Text
Label1.Caption = TextBox1.Text
End Sub
’ユーザーフォームの初期設定
Private Sub UserForm_Initialize()
Label1.Caption = CommandButton1.Caption
End Sub
上のコードだと、フォームを閉じると、また最初の設定に戻ってしまいます。
よろしくお願いいたします。
|
|