エクセルの質問です。

ユーザーフォーム上に配置されたmultimenuのタブを変更したいのですが、変更したタブの保存方法が分かりません。
Private Sub CommandButton11_Click()

MultiPage1.page3.Caption = TextBox1

End Sub

当然変わるんですけど、いったん終了すると次はまた同じデフォルトのものになってしまいます。

よろしくお願いいたします。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2008/06/09 00:58:59
  • 終了:2008/06/09 10:49:26

回答(1件)

id:s-n-k No.1

s-n-k回答回数27ベストアンサー獲得回数22008/06/09 01:57:22

ポイント60pt

質問の内容ですが、

  1. CommandButton11 がクリックされたときに、TextBox1 に設定されている文字列を MultiPage1.page3.Caption に設定する。
  2. Excel を終了しても次回起動時にその値を引き継ぐ

ということでしょうか?

その場合、設定した値を Excel のセルやファイルなどに保存しておいて、次回起動時に内容を復元するという方法が良いと思います。大まかなイメージは以下のようになります。

Private Sub CommandButton11_Click()
    MultiPage1.page3.Caption = TextBox1.Text
    Sheets(1).Range("A1").Value = TextBox1.Text
End Sub

のようにしておいて、以下のような感じで次回起動時に元の値に復元すると良いと思います。

' ThisWorkbook の中に書く
Private Sub Workbook_Open()
    MultiPage1.page3.Caption = Sheets(1).Range("A1").Value
    TextBox1.Text = Sheets(1).Range("A1").Value
End Sub

Workbook_Open についてはこの辺りが参考になると思います。

http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_130_04.html

id:clinejp

大変ありがとうございます。

動的にマクロがかけるようなものですね。

2008/06/09 10:48:51

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません