|
▼HOSHI さん:
おはようございます。
>初歩的な質問です。既出でしたらご指摘下さい。
>
>commandbuttonを押すとそのcommandbuttonのキャプションから値を受け取り、セルにその値が入力されるようにしています。
>そのキャプションを簡単に変更できるように、別のボタンとテキストボックスを作り、ボタンを押すと、そのテキストボックスから値を受け、先ほどのセルに入植するcommandbuttonのキャプションに設定できるようにしました。
>
>そこで変更されたキャプションの値は、それ以降その値がユーザーフォームに初期設定されるようにしたいのですが、どのようにしたらよいでしょうか?
コマンドボタン(Commandbutton1)のCaptionプロパティの変更の維持、
1.ブックが開いている間維持すればよいということなら、
ワークのセルをどこかにおいて、そのセルにCaptionの内容を保持する。
ユーザーフォームを表示するときには、ワークセルから内容をセットする。
2.ブックをいったん閉じて再度開いたときもCaptionプロパティの変更の維持するなら、
テキストファイルなどにCaptionの内容を保存し、ユーザーフォームを表示するときには、読み込んで内容をCaptionにセットする。
等の方法が考えられますが・・・。
仮に1.の場合の例で、
ワークのセルをSheet1のセルA1としましょう。
>
>’セルに入力するコマンドボタンを押した
>Private Sub CommandButton1_Click()
>Selection.Value = CommandButton1.Caption
>End Sub
>
>’設定変更ボタンを押した
>Private Sub CommandButton11_Click()
>CommandButton1.Caption = TextBox1.Text
Worksheets("sheet1").Range("a1").Value = CommandButton1.Caption
>Label1.Caption = TextBox1.Text
>End Sub
>
>’ユーザーフォームの初期設定
>Private Sub UserForm_Initialize()
With Worksheets("sheet1").Range("a1")
If .Value <> "" Then
CommandButton1.Caption = .Value
End If
End With
>Label1.Caption = CommandButton1.Caption
>End Sub
>
等としてみたらどうでしょうか?
|
|