|
今、研修をしていまして一昨日から悩んでます。
Private Sub 見積書作成_Click()
Dim InData As Range
Set InData = ActiveCell
Sheets("見積テンプレート").Copy Before:=Sheets(3)
ActiveSheet.Name = InData.Value & "見積" & Year(Cells(4, 9)) & Month(Cells(4, 9))
ActiveSheet.Cells(3, 9).Value = Sheets("契約一覧").Cells(4, 2).Value
ActiveSheet.Cells(9, 9).Value = Sheets("契約一覧").Cells(4, 4).Value
ActiveSheet.Cells(20, 4).Value = Sheets("契約一覧").Cells(4, 4).Value
ActiveSheet.Cells(7, 7).Value = "〒" & Sheets("契約一覧").Cells(4, 5).Value
ActiveSheet.Cells(7, 9).Value = Sheets("契約一覧").Cells(4, 6).Value
ActiveSheet.Cells(8, 9).Value = Sheets("契約一覧").Cells(4, 7).Value
ActiveSheet.Cells(18, 4).Value = Sheets("契約一覧").Cells(4, 8).Value
ActiveSheet.Cells(22, 4).Value = Sheets("契約一覧").Cells(4, 9).Value
ActiveSheet.Cells(22, 7).Value = Sheets("契約一覧").Cells(4, 10).Value
ActiveSheet.Cells(24, 5).Value = Sheets("契約一覧").Cells(4, 14).Value
ActiveSheet.Cells(25, 5).Value = Sheets("契約一覧").Cells(4, 12).Value
ActiveSheet.Cells(25, 7).Value = Sheets("契約一覧").Cells(4, 13).Value
ActiveSheet.Cells(26, 5).Value = Sheets("契約一覧").Cells(4, 15).Value
ActiveSheet.Cells(27, 5).Value = Sheets("契約一覧").Cells(4, 16).Value
ActiveSheet.Cells(29, 4).Value = "検収毎月" & Sheets("契約一覧").Cells(4, 17).Value & "締め、" & Sheets("契約一覧").Cells(4, 18).Value & "銀行振込"
ActiveSheet.Cells(32, 4).Value = Sheets("契約一覧").Cells(4, 19).Value
' ActiveSheet.Cells(34, 1).Value = Sheets("契約一覧").Cells(4, 20).Value ' ActiveSheet.Cells(35, 1).Value = Sheets("契約一覧").Cells(4, 21).Value
ActiveSheet.Cells(34, 5).Value = Sheets("契約一覧").Cells(4, 22).Value
ActiveSheet.Cells(35, 5).Value = Sheets("契約一覧").Cells(4, 23).Value
ActiveSheet.Cells(36, 5).Value = Sheets("契約一覧").Cells(4, 24).Value
Sheets("見積テンプレート").Copy Before:=Sheets(3)
ActiveSheet.Name = InData.Value & "注文" & Year(Cells(4, 9)) & Month(Cells(4, 9))
ActiveSheet.Cells(3, 9).Value = Sheets("契約一覧").Cells(4, 3).Value
ActiveSheet.Cells(9, 9).Value = Sheets("契約一覧").Cells(4, 4).Value
ActiveSheet.Cells(20, 4).Value = Sheets("契約一覧").Cells(4, 4).Value
ActiveSheet.Cells(7, 7).Value = "〒" & Sheets("契約一覧").Cells(4, 5).Value
ActiveSheet.Cells(7, 9).Value = Sheets("契約一覧").Cells(4, 6).Value
ActiveSheet.Cells(8, 9).Value = Sheets("契約一覧").Cells(4, 7).Value
ActiveSheet.Cells(18, 4).Value = Sheets("契約一覧").Cells(4, 8).Value
ActiveSheet.Cells(22, 4).Value = Sheets("契約一覧").Cells(4, 9).Value
ActiveSheet.Cells(22, 7).Value = Sheets("契約一覧").Cells(4, 10).Value
ActiveSheet.Cells(24, 5).Value = Sheets("契約一覧").Cells(4, 14).Value
ActiveSheet.Cells(25, 5).Value = Sheets("契約一覧").Cells(4, 12).Value
ActiveSheet.Cells(25, 7).Value = Sheets("契約一覧").Cells(4, 13).Value
ActiveSheet.Cells(26, 5).Value = Sheets("契約一覧").Cells(4, 15).Value
ActiveSheet.Cells(27, 5).Value = Sheets("契約一覧").Cells(4, 16).Value
ActiveSheet.Cells(29, 4).Value = "検収毎月" & Sheets("契約一覧").Cells(4, 17).Value & "締め、" & Sheets("契約一覧").Cells(4, 18).Value & "銀行振込"
ActiveSheet.Cells(32, 4).Value = Sheets("契約一覧").Cells(4, 19).Value
' ActiveSheet.Cells(34, 1).Value = Sheets("契約一覧").Cells(4, 20).Value ' ActiveSheet.Cells(35, 1).Value = Sheets("契約一覧").Cells(4, 21).Value
ActiveSheet.Cells(34, 5).Value = Sheets("契約一覧").Cells(4, 22).Value
ActiveSheet.Cells(35, 5).Value = Sheets("契約一覧").Cells(4, 23).Value
ActiveSheet.Cells(36, 5).Value = Sheets("契約一覧").Cells(4, 24).Value
'複数のシートをコレクションによりまとめてループでコピーする方法は
End Sub
というがありまして、契約一覧というシートのどこかを選択して、見積テンプレートクリックすると、新しいシートに契約一覧にある行の情報が作成されます。今の状態だと契約一覧シートのどこをクリックしても同じ情報しか作成されません。課題は、契約シートで選択した際の行の情報が作成されてほしいのですが、全く上手くいきません。教えてください。
|
|