6人分の物件表を1つのbookに自動的にまとめる方法

質問

• エクセルで作られた5人分の物件表を自動的にひとつのbookにまとめる方法をご教示ください。
• 全体の物件表には既にデータが入っており、各人の物件データと全体データのフォーマットは同じです。
• マクロの使用は限られているため、どのようにすると効率的にまとめることができるかお教えください。

回答No.6

kazuhiko5681

こんばんわ。データの最終列のすぐ隣(Ｊ列までデータが入力されていればＫ列)に文字・記号等を入力した時に、受注管理ブックのシート１のＢ列より右にデータを反映するようにマクロを修正してみました。前回のように下記のコードを貼り付けて確認してみて下さい。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myWb As Workbook
Dim myWbn As String
Dim myRow1 As Long
Dim myWsn As Worksheet
Dim myAdr As String
Dim myRow2 As Long

myRow1 = Target.Row
If Range("K" & myRow1).Value = "" Then Exit Sub

For Each myWb In Workbooks
If myWb.Name = "受注管理.xls" Then
myWbn = myWb.Name: Exit For
End If
Next myWb
If myWbn <> "受注管理.xls" Then
Workbooks.Open Filename:="C:\My Documents\受注管理.xls"
End If

Set myWsn = Workbooks("受注管理.xls").Worksheets(1)
myAdr = Range("B" & myRow1).End(xlToRight).Offset(0, -1).Address
MsgBox myAdr
myRow2 = myWsn.Cells(Rows.Count, 1).End(xlUp).Row
Range("B2:" & myAdr).Copy Destination:=myWsn.Range("B" & myRow2 + 1)

End Sub

後ご質問にお答えいたします。
貴方様は、どうもモジュールがプログラムを実行させるとお考えになっておられるようですが、プログラムを実行させるのはコードです。コードを書くためのシートのことをモジュールと呼び、モジュールに書かれたコードの集まりがプログラムなのです。

Set myWsn = Workbooks("受注管理.xls").Worksheets(1)
setは、変数にオブジェクトを代入する時に使う命令語
このコードは、変数myWsnに受注管理というブックのワークシート１というオブジェクトを代入するという動作をさせるためのコードです。

myRow2 = myWsn.Cells(Rows.Count, 1).End(xlUp).Row
Rows.Countはシートの最終行を取得する時に使う。
このコードは、データが入力されている最終行の行番号をmyRow2に代入するという動作をさせるためのコードです。

詳しいことをお知りになりたい時は、次の本を読んでみて下さい。ＶＢＡのことが詳しくわかりやすく書かれています。わたしもこの本で勉強してここまでコードを約１年位で書けるようになりました。
簡単プログラミングエクセル２０００ＶＢＡ(基礎編・関数偏・応用編)
著者：大村あつし　出版社：技術評論者

また、解らないことがありましたら、ご遠慮なくお知らせ下さい。

補足

こんばんわ。 修正プログラムを作っていただきありがとうございました。
しかし！！残念ながら、追加したい行だけでなく、1行目からのすべての行が
追加されてしまいました・・・
何が原因なのでしょうか？
ところで、早速、ご推薦されたプログラミングエクセル２０００ＶＢＡ(基礎編・関数偏・応用編) を買おうと思い、本屋さんに行ってみたところ、地元の本屋さんには置いていませんでした。。。。。
明日は大きな本屋さんに行ってみます。
寒くなってきたので、風邪には気をつけてください。
それでは。