Excel シート１の雛型からシート２の一覧表作成へ

質問

お世話になります。

　私は会社でExcelを使い事務をしております。
　式を入力して少し事務を簡素化する事は出来ますが、マクロやVBには明るくありません。
　シート１の雛型１箇所に入力すると同時に、シート２に一覧表が作成される様には出来ないものでしょうか？
　頑張ってマクロを使ってみましたが、シート１のB1を入力するとシート２のB1の数値まで変わってしまいます。（表を参考にしてください）

　シート１（雛型）
　　　A　　　　　　　B　　　　　　　　C
１ 固定数　　入力した数字　　数式A/B

　シート２（一覧表）
　　　　A　　　　　　　　　　　B　　　　　　　　　C
１　シート1A1の数字　シート1B1の数字　シート1C1の数字　
２　シート1A1の数字　シート1B1の数字　シート1C1の数字
３　シート1A1の数字　シート1B1の数字　シート1C1の数字
４　シート1A1の数字　シート1B1の数字　シート1C1の数字

　分かりにくい説明で申し訳ありません。
　皆さまのお知恵をお待ちしております。
　よろしくお願いします。

回答No.4

jindon · ベストアンサー

シート名

シート１　：　雛形
シート２　：　データ蓄積用

シート１のB1に変更があった場合、シート１のA1:D1の：

１）「値のみ」をシート２に順次蓄積する。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastA As Long, ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Sheets("シート１")
Set ws2 = Sheets("シート２")
With Target
If .Address <> "$B$1" Or .Count <> 1 Or IsEmpty(Target) Then Exit Sub
If WorksheetFunction.Count(ws1.Range("a1:b1")) <> 2 Then Exit Sub
lastA = ws2.Range("a65536").End(xlUp).Row
ws2.Range("a" & lastA + 1).Resize(1, 4).Value = _
ws1.Range("a1").Resize(1, 4).Value
End With
End Sub

２）数式も含めてシート２に順次蓄積する。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastA As Long, ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Sheets("シート１")
Set ws2 = Sheets("シート２")
With Target
If .Address <> "$B$1" Or .Count <> 1 Or IsEmpty(Target) Then Exit Sub
If WorksheetFunction.Count(ws1.Range("a1:b1")) <> 2 Then Exit Sub
lastA = ws2.Range("a65536").End(xlUp).Row
ws2.Range("a" & lastA + 1).Resize(1, 4).Copy _
Destination:=ws2.Range("a" & lastA+1)
End With
End Sub

お礼

迅速かつ丁寧なお返事をありがとうございます。
　早速試してみたところ、思っていた通りになりました。これで事務処理もスムーズになると思います。
　丁寧な方々に出会えてすぐに問題も解決でき、本当ならば全員にポイントを差し上げたいところですが、今回はこのような配点にさせていただきました。
　ご了承下さいませ。
　本当にありがとうございました。

回答No.3

imogasi

私も＃１のお方と同じく質問の意味（何をしたいか）が判りません。シート１は固定数と入力値１個を取るためのものですよね。シート１のＣ１の数式Ａ／Ｂは何のためにある（使う）のですか。
シート２は何をしたいのでしょうか。
数値実例でも３－４行上げてもらえれば判るかもしれない。
シート２の各行で変わるのは何ですか。
●今閃きました。ひょっとしてシート１に入力した
値を行をづらして記録すること及びＡ／Ｂの値を計算して
累積して記録して行きたいのでしょうか。
それであればシート１のＣｈａｎｇｅイベントなど使い
シート２の行数を１ずつ増やせば良いのですが、ＶＢＡとしてもやや難しい。行を表す変数の扱い（下記のｉ）が私も含め、初学者には難しいと思う。
シートのＣｈａｎｇｅイベントに
Private Sub Worksheet_Change(ByVal Target As Range)
i = i + 1
Worksheets("sheet3").Cells(i, "B") = Target
End Sub
標準モジュールに
Public i
Ｓｈｅｅｔ１のセルに値をいれるとＳｈｅｅｔ３のＢ列に
Ｂ１－＞Ｂ２－＞Ｂ３・・・に入力値をセットします。
あとＡ１の値とか、Ｃ列は（ＶＢＡでもやれますが）関数でやれば良いでしょう。

補足

皆さまお返事ありがとうございます。
　質問の仕方が悪く申し訳ありません。
　今回アークタンジェントを利用して角度取得一覧表を作成することが目的です。
　そのためにシート１のＡ１には１０、Ｃ１はＡ／Ｂ、Ｄ１には式ＡＴＡＮ(Ｃ１)*１８０/ＰＩ()を入力し、Ｂ１に数値を入力すれば角度を求めることが出来る雛型を作成しました。
　Ｂ１が更新されるたびに、シート２にＡ１～Ｄ１の入力内容が自動的にとび、一覧表が作成されるようにしたいと思っています。
　ちなみに求めたい角度は８００～１０００個あります。
　初心者はやはり欲張らずに一覧表を作成し、式をコピーした方が良いのでしょうか？
　皆さまの意見をお待ちしています。

回答No.2

jindon

Sheet1の一列目を入力用として、Sheet2にデータを重ねていくということでしょうか？
Sheet1のシートタブを右クリックして「コードを表示」を選択
下記のコードを貼り付ける。

Sheet1のB1が変更された時点でSheet1のA1:B1が入力されている場合、Sheet2のA列の最後の次の行に転記されます。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastA As Long, ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Sheets("sheet1")
Set ws2 = Sheets("sheet2")
With Target
If .Address <> "$B$1" Or .Count <> 1 Or IsEmpty(Target) Then Exit Sub
If WorksheetFunction.Count(ws1.Range("a1:b1")) <> 2 Then Exit Sub
lastA = ws2.Range("a65536").End(xlUp).Row
ws2.Range("a" & lastA + 1).Resize(1, 3).Value = _
ws1.Range("a1").Resize(1, 3).Value
End With
End Sub

お礼

お返事ありがとうございます。
　質問の仕方が悪く申し訳ないです。
　＃３さんのお返事に補足しました。
　もしお時間があれば回答お願いします。

回答No.1

DoragonFang

すみません、ちょっとやりたいことの内容がよくわからないんですが、質問に書かれたシート２はご自分で作ったマクロの結果という意味でしょうか？
作りたいのは

　シート１（雛型）
　　　A　　　　　　　B　　　　　　　　C
１ 固定数　　入力した数字　　数式A/B
２ 固定数　　入力した数字　　数式A/B
３ 固定数　　入力した数字　　数式A/B
４ 固定数　　入力した数字　　数式A/B

　シート２（一覧表）
　　　　A　　　　　　　　　　　B　　　　　　　　　C
１　シート1A1の数字　シート1B1の数字　シート1C1の数字　
２　シート1A2の数字　シート1B2の数字　シート1C2の数字
３　シート1A3の数字　シート1B3の数字　シート1C3の数字
４　シート1A4の数字　シート1B4の数字　シート1C4の数字

ということでしょうか？
単純にシート１のそれぞれのセルを参照する、ということではダメなんですね？

お礼

お返事ありがとうございます。
　質問の仕方が悪く申し訳ないです。
　＃３さんのお返事に補足しました。
　もしお時間があれば回答お願いします。