| 
    
     |  | ▼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にデータを入力して移行した別シートで入力データに定数を掛け算したりして計算書を作成したいと思っています。
 
 お手数かけましてすみませんがまたご指導いただけると有り難いです。
 
 
 |  |