Top> 販売管理> 請求関連・入金処理

VBA通信教材申込み

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

申込 ヤフーショッピング

請求関連・入金処理


請求関連

請求関連・入金処理

請求書のポイントは締め日更新と消費税の扱いだと思います。
昔オフコンが登場したころコンピュータの容量が小さかったために締日更新をしないと次の期間の請求書が発行できないシステムがほとんどでした。
システムを理解せずに手順だけを実行していた担当者が多く、その担当者が辞めると業務が止まってしまった事例をよく見てきました。
今ではコンピュータの性能が良くなったので更新作業のないシステムがほとんどだと思います。
今回の請求書も更新がありませんがシステムの流れを理解していないと応用できませんので理解してください。
消費税に関しては消費税だけのシートを作成しました。
以前は売上・入金・消費税も1つのシート(テーブル)で作成したこともありましたが分けた方が理解しやすいと思います。

入金処理

請求関連・入金処理

入金伝票で入力したデータを入金明細シートに登録します。
・入金伝票Noは入金明細シートの最後の行の伝票Noに1を加算します。
・得意先コードにコード番号を入力すれば得意先名が表示されます。
・得意先コード入力にカーソルがある状態で得意先コードボタンをクリックすると
得意先検索のリストボックスが表示されます。

請求関連・入金処理

・入金方法によって明細に登録します。

請求関連・入金処理

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim m得意先名 As String
  Dim m得意先cd As Long
  With Target
'得意先コードの入力
    If .Row = 4 And .Column = 2 Then
      If Cells(4, 2) = "" Then
        Exit Sub
      End If
      m得意先cd = Cells(4, 2)
      m得意先名 = tkensaku(m得意先cd)
      Cells(5, 2) = m得意先名
    End If
    If (.Row = 7 And .Column = 2) Or (.Row = 7 And .Column = 3) Or (.Row = 7 And .Column = 4) Or (.Row = 7 And .Column = 5) Then
      Cells(7, 6) = Cells(7, 2) + Cells(7, 3) + Cells(7, 4) + Cells(7, 5)
    End If
  End With
End Sub
Sub 入金伝票登録()
  Dim lastrow As Long
  Dim gyou As Long
  lastrow = Worksheets("入金明細").Cells(Rows.Count, 1).End(xlUp).Row
  gyou = lastrow + 1
'入金区分
  If Cells(7, 2) <> "" Then
    Worksheets("入金明細").Cells(gyou, 1) = Cells(3, 5)
    Worksheets("入金明細").Cells(gyou, 2) = Cells(3, 2)
    Worksheets("入金明細").Cells(gyou, 3) = Cells(4, 2)
    Worksheets("入金明細").Cells(gyou, 4) = Cells(5, 2)
    Worksheets("入金明細").Cells(gyou, 5) = Cells(6, 2)
    Worksheets("入金明細").Cells(gyou, 6) = Cells(7, 2)
    gyou = gyou + 1
  End If
  If Cells(7, 3) <> "" Then
    Worksheets("入金明細").Cells(gyou, 1) = Cells(3, 5)
    Worksheets("入金明細").Cells(gyou, 2) = Cells(3, 2)
    Worksheets("入金明細").Cells(gyou, 3) = Cells(4, 2)
    Worksheets("入金明細").Cells(gyou, 4) = Cells(5, 2)
    Worksheets("入金明細").Cells(gyou, 5) = Cells(6, 3)
    Worksheets("入金明細").Cells(gyou, 6) = Cells(7, 3)
    gyou = gyou + 1
  End If
  If Cells(7, 4) <> "" Then
    Worksheets("入金明細").Cells(gyou, 1) = Cells(3, 5)
    Worksheets("入金明細").Cells(gyou, 2) = Cells(3, 2)
    Worksheets("入金明細").Cells(gyou, 3) = Cells(4, 2)
    Worksheets("入金明細").Cells(gyou, 4) = Cells(5, 2)
    Worksheets("入金明細").Cells(gyou, 5) = Cells(6, 4)
    Worksheets("入金明細").Cells(gyou, 6) = Cells(7, 4)
    gyou = gyou + 1
  End If
  If Cells(7, 5) <> "" Then
    Worksheets("入金明細").Cells(gyou, 1) = Cells(3, 5)
    Worksheets("入金明細").Cells(gyou, 2) = Cells(3, 2)
    Worksheets("入金明細").Cells(gyou, 3) = Cells(4, 2)
    Worksheets("入金明細").Cells(gyou, 4) = Cells(5, 2)
    Worksheets("入金明細").Cells(gyou, 5) = Cells(6, 5)
    Worksheets("入金明細").Cells(gyou, 6) = Cells(7, 5)
    gyou = gyou + 1
  End If
  Call 入金伝票クリア
End Sub
Sub 入金伝票クリア()
  Dim lastrow As Long
  lastrow = Worksheets("入金明細").Cells(Rows.Count, 1).End(xlUp).Row
  Cells(3, 2) = ""
  Cells(4, 2) = ""
  Cells(5, 2) = ""
  Cells(7, 2) = ""
  Cells(7, 3) = ""
  Cells(7, 4) = ""
  Cells(7, 5) = ""
  Cells(7, 6) = ""
  Cells(3, 5) = Worksheets("入金明細").Cells(lastrow, 1) + 1
End Sub
Sub 入金伝票メニュー()
  Cells(3, 2) = ""
  Cells(3, 5) = ""
  Cells(4, 2) = ""
  Cells(5, 2) = ""
  Cells(7, 2) = ""
  Cells(7, 3) = ""
  Cells(7, 4) = ""
  Cells(7, 5) = ""
  Cells(7, 6) = ""
  Worksheets("メニュー").Select
End Sub

 

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