123
返回列表 上一主題 發帖

出貨單建立

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
21# 跳轉到 »
發表於 2022-10-27 16:16 | 顯示全部帖子
今天練習字典,把3種分類(廠商.規格.圖號)各做數量總計與金額總計

test_1_20221027_2.zip (76.52 KB)

選單:


廠商分類/總計:


規格分類/總計:


圖號分類/總計:


主要練習修改:

    Y(T & "/數量") = Y(T & "/數量") + Arr(i, 5)
    Y(T & "/金額") = Y(T & "/金額") + Arr(i, 7)
    Y(T & "|") = Crr  '#1
    '↑令 客戶 &"|"字串 為key ,令Crr為它的item,
   
~~~
         .Cells(Y(.Name) + 1, 1) = "總計"
         .Cells(Y(.Name) + 1, 5) = Y(Replace(Z, "|", "/數量"))
         .Cells(Y(.Name) + 1, 7) = Y(Replace(Z, "|", "/金額"))
         .Rows(Y(.Name) + 1).Font.Bold = True
         .Columns(1).Font.Bold = True
         .Cells.Columns.AutoFit
         '↑令整表的所有欄位自動調整欄寬
         .Cells(Y(.Name) + 2, 1) = "以上以 廠商 分類彙整日期區間為: " & Dats & "~" & Datn
         '↑資料最後下一列A欄加入整理日期區間
         .Cells(Y(.Name) + 2, 1).Font.ColorIndex = 5
         '↑資料最後下一列A欄字色變藍色
         .Cells(Y(.Name) + 2, 1).Font.Bold = True
         '↑資料最後下一列A欄字變粗體
      End With

TOP

        靜思自在 : 多做多得。少做多失。
123
返回列表 上一主題