Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

74552 / 76807

←次へ　｜　前へ→


	【6718】ユーザーフォームの初期設定について

HOSHI - 03/7/28(月) 12:42 -


	引用なし

	パスワード

初歩的な質問です。既出でしたらご指摘下さい。

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

上のコードだと、フォームを閉じると、また最初の設定に戻ってしまいます。
よろしくお願いいたします。

0 hits

▼

【6718】ユーザーフォームの初期設定について HOSHI 03/7/28(月) 12:42

≪