合計請求書

コンピュータの日付が入力されているので変更があれば訂正してＯＫをクリックする

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

・請求書発行する件数を数えデータを作業に取り出す
・合計請求書44*全件数（得意先の数）行を削除する（前の請求書を消す）
・合計請求書を発行する得意先の件数分合計請求書を作成する（控えも含む）
・合計請求書を発行する得意先の件数分得意先情報・請求金額を記入する（控えも含む）

Sub 合計請求書発行()
    Dim i As Long
    Dim j As Long
    Dim hakoubi As String
    Dim kensu As Long
    Dim lastRow As Long
    hakoubi = InputBox(Prompt:="発行日は", Default:=Date)
    lastRow = Worksheets("得意先").Cells(Rows.Count, 1).End(xlUp).Row
'請求書発行する件数を数えデータを作業に取り出す
    Worksheets("作業").Cells.Clear
    j = 1
    For i = 2 To lastRow
        If Worksheets("得意先").Cells(i, 16) <> 0 Then
           Worksheets("作業").Cells(j, 1) = Worksheets("得意先").Cells(i, 1)
           Worksheets("作業").Cells(j, 2) = Worksheets("得意先").Cells(i, 2)
           Worksheets("作業").Cells(j, 3) = Worksheets("得意先").Cells(i, 3)
           Worksheets("作業").Cells(j, 4) = Worksheets("得意先").Cells(i, 4)
           Worksheets("作業").Cells(j, 5) = Worksheets("得意先").Cells(i, 12)
           Worksheets("作業").Cells(j, 6) = Worksheets("得意先").Cells(i, 13)
           Worksheets("作業").Cells(j, 7) = Worksheets("得意先").Cells(i, 14)
           Worksheets("作業").Cells(j, 8) = Worksheets("得意先").Cells(i, 15)
           Worksheets("作業").Cells(j, 9) = Worksheets("得意先").Cells(i, 16)
           j = j + 1
        End If
    Next
    kensu = j - 1
'44*全件数（得意先の数）行削除
    Worksheets("合計請求書").Range(1 & ":" & lastRow * 44).Delete
'合計請求書を発行する得意先の件数分合計請求書を作成する（控えも含む）
    Worksheets("合計請求書基本").Select
    Worksheets("合計請求書基本").Rows("1:44").Select
    Selection.Copy
    Sheets("合計請求書").Select
    For i = 1 To kensu
        Cells(1 + (i - 1) * 44, 1).Select
        Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        ActiveSheet.Paste
        ActiveWindow.SmallScroll Down:=39
    Next
'合計請求書を発行する得意先の件数分得意先情報・請求金額を記入する（控えも含む）
    For i = 1 To kensu
        For j = 1 To 2
            Worksheets("合計請求書").Cells(2 + (i - 1) * 44 + (j - 1) * 24, 7) = hakoubi
            Worksheets("合計請求書").Cells(3 + (i - 1) * 44 + (j - 1) * 24, 2) = "〒" & Worksheets("作業").Cells(i, 3)
            Worksheets("合計請求書").Cells(4 + (i - 1) * 44 + (j - 1) * 24, 2) = Worksheets("作業").Cells(i, 4)
            Worksheets("合計請求書").Cells(6 + (i - 1) * 44 + (j - 1) * 24, 2) = Worksheets("作業").Cells(i, 2) & "様"
            Worksheets("合計請求書").Cells(7 + (i - 1) * 44 + (j - 1) * 24, 3) = "コード" & Worksheets("作業").Cells(i, 1)
            Worksheets("合計請求書").Cells(15 + (i - 1) * 44 + (j - 1) * 24, 2) = Worksheets("作業").Cells(i, 5)
            Worksheets("合計請求書").Cells(15 + (i - 1) * 44 + (j - 1) * 24, 3) = Worksheets("作業").Cells(i, 8)
            Worksheets("合計請求書").Cells(15 + (i - 1) * 44 + (j - 1) * 24, 4) = Worksheets("作業").Cells(i, 5) - Worksheets("作業").Cells(i, 8)
            Worksheets("合計請求書").Cells(15 + (i - 1) * 44 + (j - 1) * 24, 5) = Worksheets("作業").Cells(i, 6)
            Worksheets("合計請求書").Cells(15 + (i - 1) * 44 + (j - 1) * 24, 6) = Worksheets("作業").Cells(i, 7)
            Worksheets("合計請求書").Cells(15 + (i - 1) * 44 + (j - 1) * 24, 7) = Worksheets("作業").Cells(i, 9)
        Next
    Next
    Worksheets("合計請求書").PrintPreview
End Sub