|
先日はどうもありがとうございました。
今回もどうしてもわからないことができてしまい、ご質問させていただきます。
エクセル2003で、ある検査データのデータベースを作成しています。
目次−−
|−入力
|−集計
|−巡回集計
このようなシート構成で、「入力」から同じ項目を「集計」と「巡回集計」へコピーしたいんですが、どうしてもうまくいきません。
私が作成したマクロは、
Sub データ登録マクロ()
'変数を使用することを設定します。(変数MyRowに長い整数を使用します。)
Dim MyRow As Long
'シート「集計」のB列を参照して入力されていない行を見つけ、行番号を取得します。
MyRow = Worksheets("集計").Cells(Rows.Count, "b").End(xlUp).Row + 1
'シート「入力」の項目をシート「集計」へコピーします。
With Worksheets("集計")
Cells(MyRow, "a").Value = Sheets("入力").Range("c5").Text
Cells(MyRow, "b").Value = Sheets("入力").Range("c6").Text
Cells(MyRow, "c").Value = Sheets("入力").Range("c7").Text
Cells(MyRow, "d").Value = Sheets("入力").Range("c8").Text
Cells(MyRow, "e").Value = Sheets("入力").Range("c9").Text
Cells(MyRow, "f").Value = Sheets("入力").Range("c10").Text
Cells(MyRow, "g").Value = Sheets("入力").Range("c11").Text
Cells(MyRow, "i").Value = Sheets("入力").Range("c12").Text
Cells(MyRow, "j").Value = Sheets("入力").Range("c13").Text
Cells(MyRow, "k").Value = Sheets("入力").Range("c14").Text
Cells(MyRow, "l").Value = Sheets("入力").Range("c15").Text
Cells(MyRow, "m").Value = Sheets("入力").Range("c16").Text
Cells(MyRow, "n").Value = Sheets("入力").Range("c17").Text
End With
End Sub
Sub 巡回集計用マクロ()
'変数を使用することを設定します。(変数MyRowに長い整数を使用します。)
Dim MyRow As Long
'シート「巡回集計」のB列を参照して入力されていない行を見つけ、行番号を取得します。
MyRow = Worksheets("巡回集計").Cells(Rows.Count, "b").End(xlUp).Row + 1
'シート「入力」の項目をシート「巡回集計」へコピーします。
With Worksheets("巡回集計")
Cells(MyRow, "b").Value = Sheets("入力").Range("c6").Text
Cells(MyRow, "e").Value = Sheets("入力").Range("c8").Text
Cells(MyRow, "f").Value = Sheets("入力").Range("c9").Text
Cells(MyRow, "g").Value = Sheets("入力").Range("c10").Text
Cells(MyRow, "h").Value = Sheets("入力").Range("c11").Text
Cells(MyRow, "i").Value = Sheets("入力").Range("c12").Text
Cells(MyRow, "k").Value = Sheets("入力").Range("c13").Text
Cells(MyRow, "j").Value = Sheets("入力").Range("c14").Text
Cells(MyRow, "l").Value = Sheets("入力").Range("c15").Text
Cells(MyRow, "m").Value = Sheets("入力").Range("c16").Text
Cells(MyRow, "n").Value = Sheets("入力").Range("c17").Text
End With
End Sub
Sub 消去()
'画面を更新しないようにします。
Application.ScreenUpdating = False
Sheets("集計").Select
Application.Run "データ登録マクロ"
Application.Run "巡回集計用マクロ"
Sheets("入力").Select
Range("c5:c17").Select
Selection.ClearContents
Range("c5").Select
End Sub
以上です。
この方法でマクロを実行すると、「集計」にはコピーされるのですが、「巡回集計」にはコピーされません。
どのようにしたらいいでしょうか?
|
|