入力の方法

質問

いつも御世話になります。
例えば　添付の画像の「入力覧」C2～C4に値を入力しエンターキーなど　　　　で押したときに、

　　　 ７の行(B7～D7)に入力されるようにしたいのですが
　 　関数(VBAでなく)で可能でしょうか。
　　　　又続けて「入力覧」C2～C4の上に新しい値を入力していくと
　　　　今度は８の行に入力され次から次へと行を変えて入力する
ことが可能でしょうか。

もし可能ならばご指導いただけませんか。
　　　 また他に何かいい方法がございましたら教えてください。
　　　　よろしく御願いします。

回答No.3

hallo-2007 · ベストアンサー

VBAの本を購入すると大体の本にはサンプルとして例がありますよ。
以下は、一例です。
１、C1セルに　=TEXT(C2,"yy/mm")　入れて月度を表示させておく。
２、表示＝＞ツールバー　でフォームのウイザードを表示、適当な場所にボタンを配置
３、ボタンを右クリックしてマクロの登録から新規作成、VBエディターが起動したら。
Sub ボタン1_Click()
GYOU = Range("A65536").End(xlUp).Row + 1
Cells(GYOU, 1).Value = Range("C1").Value
Cells(GYOU, 2).Value = Range("C2").Value
Cells(GYOU, 3).Value = Range("C3").Value
Cells(GYOU, 4).Value = Range("C4").Value
End Sub
をコピィして、閉じる。

ボタンを押して実行してみてください。
シンプルなので、内容を理解して自分なりに応用してみてください。

お礼

ご尽力いただき誠に有難うございました。
下記をNo４の方の提案により追加して完成いたしました。
Dim GYOU　　　'追加

今後ともよろしく御願いします。

補足

上の指示通り設定したところ、

C2,C3,C4 に値を入力して「ボタン１」クリックすると
１　警告　中断モードでコードを実行することは出来ません

２　Sub ボタン1_Click()　黄色に
　　GYOU = 　　　　　　　青色に Range("A65536").EndxlUp).Row + 1
　　に反転されます。

何処がまずいのでしょうか。
お手数ですがごしどういたたければさいわいです。
よろしく御願いします。

回答No.4

hige_082

横から失礼します
次の1行を追加してみてください

Sub ボタン1_Click()
Dim GYOU　　　'追加
GYOU = Range("A65536").End(xlUp).Row + 1
Cells(GYOU, 1).Value = Range("C1").Value
Cells(GYOU, 2).Value = Range("C2").Value
Cells(GYOU, 3).Value = Range("C3").Value
Cells(GYOU, 4).Value = Range("C4").Value
End Sub

お礼

ご尽力いただき誠に有難うございました。
下記を追加して完成いたしました。
Dim GYOU　　　'追加

今後ともよろしく御願いします。

回答No.2

imogasi

６行以下の表で、見るところＣ２：ｃ４の場所は一定なのに
第７行も第８行でもＣ２：Ｃ４。第７目に入るデータを入力後、そのＣ２：Ｃ４値が第８行目用に変わっても、８行目はいいとして、第７行目もそれに変わっては困るので元のまま、と言う仕組みは作れない。第７行目の式を８行目に入力の前に消すでもしないと。
関数の基本を判ってない人の質問です。
エクセルは入力すべきセルを人間が判断して表を作るソフトなんだ（本質）。
この質問ではないが、関数でもできる課題でも、複雑な場合はＶＢＡでやることをお勧めする。
例えば表の組み換えなどの問題だ。
正面から、データーフォームやＶＢＡを勉強してください。
ーー
こういう入力場所を１箇所（定まったまとまり）にして、多数のまとまりデータを入力すると言うのはシートには適さない。ＶＢＡのフォームなどに適した仕組みだ。

回答No.1

mu2011

フォームを利用したら如何でしょうか。

参考URL：

http://www.eurus.dti.ne.jp/~yoneyama/Excel/input_form.htm

お礼

この方法は存じ上げていました。
もう少し発展的な方法がないかと考えていました。
ご尽力いただき誠に有難うございました。
今後ともよろしく御願いします。