Top > 販売管理> 得意先別売上

VBA通信教材申込み

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

申込 ヤフーショッピング

得意先別売上

(13)得意先別売上

得意先別売上

1)作業データのクリア
2)売上データの取り出し
3)得意先コードで並び替える
4)作業1データのクリア
5)得意先コードで集計をとる

得意先別売上

得意先別売上

作業1シートを得意先別売り上げとして使う。
印刷はエクセルの機能を使う。

得意先別売上

標準モジュールに書く
Sub 得意先別売上()
  frmTuriage.Show
End Sub
フォームにオブジェクトを貼り付ける
フォームモジュールに書く。
Private Sub cmdJikkou_Click()
  Dim i As Long
  Dim j As Long
  Dim k As Long
  Dim lastRow As Long
  Dim kei As Long
  Dim keis As Long
  Dim keia As Long
'作業データのクリア
  Worksheets("作業").Cells.Clear
  Worksheets("作業").Cells(1, 1) = "売上伝票No"
  Worksheets("作業").Cells(1, 2) = "売上日"
  Worksheets("作業").Cells(1, 3) = "得意先コード"
  Worksheets("作業").Cells(1, 4) = "得意先名"
  Worksheets("作業").Cells(1, 5) = "商品コード"
  Worksheets("作業").Cells(1, 6) = "商品名"
  Worksheets("作業").Cells(1, 7) = "数量"
  Worksheets("作業").Cells(1, 8) = "販売単価"
  Worksheets("作業").Cells(1, 9) = "売上金額"
  Worksheets("作業").Cells(1, 10) = "仕入単価"
  Worksheets("作業").Cells(1, 11) = "仕入金額"
  Worksheets("作業").Cells(1, 12) = "粗利金額"
'売上データの取り出し
  lastRow = Worksheets("売上明細").Cells(Rows.Count, 1).End(xlUp).Row
  j = 2
  For i = 2 To lastRow
    If Worksheets("売上明細").Cells(i, 2) >= txtKaisi.Text And Worksheets("売上明細").Cells(i, 2) <= txtEnd.Text Then
      For k = 1 To 12
        Worksheets("作業").Cells(j, k) = Worksheets("売上明細").Cells(i, k)
      Next
      j = j + 1
    End If
  Next
'得意先コードで並び替える
  Worksheets("作業").Activate
  lastRow = Worksheets("作業").Cells(Rows.Count, 1).End(xlUp).Row
  Range(Cells(2, 1), Cells(lastRow, 12)).Select
  ActiveWorkbook.Worksheets("作業").Sort.SortFields.Clear
  ActiveWorkbook.Worksheets("作業").Sort.SortFields.Add Key:=Cells(2, 3), SortOn _
  :=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  With ActiveWorkbook.Worksheets("作業").Sort
  .SetRange Range(Cells(2, 1), Cells(lastRow, 12))
  .Header = xlNo
  .MatchCase = False
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
  End With
'得意先コードで集計をとる
  Worksheets("作業1").Cells.Clear
  Worksheets("作業1").Cells(1, 1) = "得意先コード"
  Worksheets("作業1").Cells(1, 2) = "得意先名"
  Worksheets("作業1").Cells(1, 3) = "売上金額"
  Worksheets("作業1").Cells(1, 4) = "仕入金額"
  Worksheets("作業1").Cells(1, 5) = "粗利金額"
  j = 2
  kei = 0
  keis = 0
  keia = 0
  For i = 2 To lastRow
    kei = kei + Worksheets("作業").Cells(i, 9)
    keis = keis + Worksheets("作業").Cells(i, 11)
    keia = keia + Worksheets("作業").Cells(i, 12)
    If Worksheets("作業").Cells(i, 3) <> Worksheets("作業").Cells(i + 1, 3) Then
      Worksheets("作業1").Cells(j, 1) = Worksheets("作業").Cells(i, 3)
      Worksheets("作業1").Cells(j, 2) = Worksheets("作業").Cells(i, 4)
      Worksheets("作業1").Cells(j, 3) = kei
      Worksheets("作業1").Cells(j, 4) = keis
      Worksheets("作業1").Cells(j, 5) = keia
      j = j + 1
      kei = 0
      keis = 0
      keia = 0
    End If
  Next
  Unload Me
  Worksheets("作業1").Select
End Sub
Private Sub cmdCancel_Click()
  Unload Me
End Sub

 

 

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