エクセルの関数の質問です。

質問

エクセルの関数の質問です。

初めまして、初投稿です。
現在、名簿を作っているのですが、下記のようにする方法はありませんか？

例）
　 A
1名前
2○○○（入力専用）
3
4
5名前
6○○○
7
A2に打ち込むとA6に表示される。

　　　↓
　 A
1名前
2□□□（入力専用）
3
4
5名前
6○○○
7□□□
8
A2を書き換えるとA7に入る。

色々調べたんですが、方法が思いつかず投稿させて頂きました。
上手に説明できずにすみません＾＾；よろしくお願いします。
ちなみに使っているのはエクセル2003です。

回答No.5

mar00 · ベストアンサー

Sub Macro1()
RETU = ActiveSheet.UsedRange.Columns.Count
GYOU = ActiveSheet.UsedRange.Rows.Count + 1

For i = 1 To RETU
Cells(GYOU, i) = Cells(2, i)
Next i
End Sub
でどうでしょうか。

お礼

ありがとうございます！！
やりたいようにできました＾＾

これから少しVBAについても勉強してみようと思います！！
本当にありがとうございました！！

回答No.4

imogasi

こういう類の質問が時々出るが、エクセル関数しか知らないで、それを用いてやろうとするから、出来ない課題です。
関数の本質を理解できてない。
関数はセルの値を受けるセルに入れるもの。値を持ってくるセルが引数になるが、それが同じだと、自動計算されて、受ける側が皆直前の同じ値になって、意味を成さない。同じセルに、時間的にずれて、入れてゆき、ある場合はこのセルに、ある場合はこのセルへという風に、目的のセルに値を投げ入れるイメージは出来ないのだ。
VBAだとそれが出来る。しかし入力を捉えるイベントという考えの仕組みの力を借りないと出来ない。
ーーー
しかし
それをエクセルでシステム化されているのが、
データーフォームの「フォーム」だ。こちらではセルに入力するのでなく、フォームというものの（VBAでのフォームに類似のもの）のテキストボックスに入れてエンタ（または新規）で行をすすめていくが。

回答No.3

mar00

ANo.2です。
画像を送りなおします。

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.2

mar00

Sub Macro1()
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = Range("A2")
End Sub
でどうでしょうか。

まずマクロをコピーして下さい。
1　ツール→マクロ→新しいマクロの記録→OK
2　ツール→マクロ→記録終了
3　ツール→マクロ→Visual Basic Editor
と進んで下さい。
モジュール1をダブルクリックすると画像の画面になるので
マクロをコピー

ボタンの作り方は参考なれば
http://allabout.co.jp/gm/gc/3918/2/

この投稿のマルチメディアは削除されているためご覧いただけません。

補足

ありがとうございます＾＾
できました＾＾

追加で申し訳ございませんが、例えば

A　　　B
1　○○○　　□□□

のように2箇所ないし３箇所を同時に保存する場合はどうすればよいでしょうか？

Sub Macro1()
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = Range("A2")
End Sub

基本ができていないもので、申し訳ございません。
お願いいたします。

回答No.1

bin-chan

最終データがあるセルを判定して配置するにしても、VBAでの記述が必要と思います。

その場合でも、セルA2の内容がいつの時点で確定するか、判断できませんよね。
セルA2の横にでも、[確定]ボタンでも配置して、セルA2確定時にクリックするような運用が必要でしょう。

補足

早速のご返答ありがとうございます。
すみません。先に行っておくべきでした。
私VBAがほとんど使えないです；；
できれば具体的なソースや解説をお願いできますか？