Top> 販売管理> 合計請求書

VBA通信教材申込み

VBA課題解決型実践塾セミナー内容

申込 ヤフーショッピング

合計請求書


合計請求書

合計請求書

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

合計請求書

・請求書発行する件数を数えデータを作業に取り出す
・合計請求書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

 

塾長あいさつ
基本方針(考え方)
通信教育内容
課題解決セミナー内容
初心者基礎コース内容
カリキュラム・料金
案内地図・各種リンク
問合せ・申込み
アベノ塾
システムの内製化
アサイコンピュータACS
応用部品集(有料)
販売管理(事例)
財務管理(事例)
顧客管理(事例)
見積もり(事例)
給与(事例)
介護(事例)
ゴースト暗算(事例)
部品集(部品の基礎)
部品集(シート関連)
部品集(データベース)
部品集(セル関連)
部品集(関数)
部品集(フォーム関連)
部品集(ブック関連)
部品集(その他)
変数の勉強
繰り返しと条件文
マスター登録.訂正.削除
フォルダー内のファイル
項目をシート名で作成
ブックの操作
CSVファイルの取り込み
呼び出し元・先
商品マスター検索
エクセル関数をVBAで
エクセル関数を使う
よくつかうプログラム
販売管理(ソース)
財務管理(ソース)
給与管理(概要・画面)
見積もり(概要・画面)
工程管理(概要・画面)
原価管理(概要・画面)