Excel VBA質問箱 IV

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

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


50160 / 76738 ←次へ | 前へ→

【31473】Re:ユーザーフォームの設定
質問  おおん  - 05/11/22(火) 13:15 -

引用なし
パスワード
   ▼Statis さん:
>こんにちは
>最初のコードだと値がクリアされる事は無いはずです。
>
>再度、開くとはどう言う事ですか?
>
>>できればユーザーフォーム内のコンボボックス&テキストボックス
>>のデータは保持した状態で、コマンドボタンを押すと別シートに移行させたいのですが
>>そういった設定やマクロはどのように出来るのでしょうか??
>データを保持して別シートに移行してないをしたいのか具体的に記載して下さい。
>あと、コマンドボタンの押しただけでは値は消えませんよ
>作られたコードをUpしてみて下さい。


お世話になります。最初に記載したコードもしくは

Private Sub ComboBox10_Change()
Sheets("sssss").Cells(6, 2).Value = ComboBox10.Text
End Sub

上記のコードで
コンボボックスとテキストボックスデータを他のシートに移行する
ことまではできたのですが

Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

シート内のコードに上記のような一般的なコードで
userform1が表示するようにしてあるのですが開いたときには
コマンドボタンやテキストボックスのデータが消えてしまっているのです・・・
(移行したシート内には残っていますが)

コンボボックスで再度選択又はテキストボックスで入力しないといけない状態です。
usesrformのデータは一度選択又は入力したらあまり変化させることはないのでフォームに残しておきたいと思っています。(移行したシート内には残っていますが)

コマンドボタンのコードはまだ作っていません。

具体的な目標ですが、userformにデータを入力して移行した別シートで入力データに定数を掛け算したりして計算書を作成したいと思っています。

お手数かけましてすみませんがまたご指導いただけると有り難いです。
0 hits

【31464】ユーザーフォームの設定 おおん 05/11/22(火) 8:59 質問
【31465】Re:ユーザーフォームの設定 Statis 05/11/22(火) 9:11 回答
【31467】Re:ユーザーフォームの設定 おおん 05/11/22(火) 11:55 質問
【31469】Re:ユーザーフォームの設定 Statis 05/11/22(火) 12:17 発言
【31473】Re:ユーザーフォームの設定 おおん 05/11/22(火) 13:15 質問
【31511】Re:ユーザーフォームの設定 Statis 05/11/24(木) 9:42 発言
【31515】Re:ユーザーフォームの設定 おおん 05/11/24(木) 11:32 お礼

50160 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free