EXCEL 同じセルに入力したデータを別のシートに保存したい

質問

シート１の同じセルに入力したデータを別のシート２に保存して行きたい、詳細に方法を教えて下さい。

回答No.5

noname#101556

#3です。いただいた補足に従い、マクロの例をお知らせします。

■マクロの作成

Sheet1を選択します
コントロールツールボックスでテキストボックスを選択、シート上の任意の位置にTextBox1を追加します
同様にデザインモードを選択、TextBox1をダブルクリックしてVisualBasicエディタ上でTextBox1オブジェクトのGotFocusプロシージャを以下のとおり編集します

Private Sub TextBox1_GotFocus()
Worksheets("sheet2").Range("A1").Value = TextBox1.Text
TextBox1.Text = ""
End Sub

Sheet1を選択します
コントロールツールボックスでコマンドボタンを選択、シート上の任意の位置にCommandButton1を追加します
同様にデザインモードを選択、TextBox1をダブルクリックしてVisualBasicエディタ上でCommandButton1オブジェクトのClickプロシージャを以下のとおり編集します

Private Sub CommandButton1_Click()
Worksheets("sheet2").Range("A1").Value = Range("A1").Value
Range("A1").Value = TextBox1.Text
End Sub

■動作確認

TextBox1に "ABC" と入力します
CommandButton1を押します
Sheet1!A1に "ABC"と入力されます
Sheet2!A1は空白のままです
TextBox1にカーソルを置きます
Sheet2!A1に従前の "ABC" が保存されています
TextBox1に "DEF" と入力します
CommandButton1を押します
Sheet1!A1に "DEF"と入力されます

■補足

「どのようなマクロを作成すればよいか」は以上です。初心者の方のVBAプログラミングに必須の基礎知識をここで「簡単に」ご説明することは不可能です。申し上げました「マクロの作成が可能であれば」の主旨は「マクロの作成に必要な基本的なスキルをお持ちであれば」ということです。興味をお持ちであれば、参考URLのような入門者向けサイトをご参考になさってください。なお、上の例には、申し上げました「不用意なセルの更新を防止する考慮」は含みません。

参考URL：

http://www.geocities.jp/ktaji99/excel/VBAlearning.html

お礼

貴殿の通りやりましたら出来ました、本当に有難う御座いました。この場をお借りして勉強して行きたいと思っています、今後とも宜しくお願い致します、有難う御座いました。

補足

再度教えて下さい、貴殿の言われる通り行いましたら出来たのですが、シート２に於いては、同一セルにデータが貼り付けられてしまいます、A1に入力されたら、次はA2・・・・・Anと言った感じで貼り付けされるにはどうしたら良いでしょうか？大変申し訳ありません。