麻辣家族討論版版 » Excel程式區 » 如何利用表單作出貨表

返回列表下一主題上一主題發帖

[發問] 如何利用表單作出貨表

中學生 Rank: 2

帖子: 71
主題: 18
精華: 0
積分: 131
點名: 22
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2022-1-22

2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-1-4 09:04 | 只看該作者

[發問] 如何利用表單作出貨表

請教各位前輩,如何利用表單作出貨表,感恩.

出貨統計.jpg

出貨統計.rar (8.48 KB)

樓主熱帖

收藏

杜小平

最新 JavaScript 精緻範例字典：對應 ECMAScript 新語法規則　　最新 HTML5．CSS3 精緻範例字典 (+ RWD 快速上手)

大學生 Rank: 4

帖子: 1194
主題: 0
精華: 0
積分: 1200
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2022-1-22

熱烈參與勳章

2^#

發表於 2021-1-4 10:06 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/589540468

隨意窩 "EXCEL迷" blog 或https://blog.xuite.net/hcm19522/twblog
已收集8500篇 EXCEL函數

中學生 Rank: 2

帖子: 261
主題: 8
精華: 0
積分: 279
點名: 16
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2022-1-22

2016猴年全勤獎章

3^#

發表於 2021-1-4 11:17 | 只看該作者

Sub zz()
Dim a, Title, b(), c&, n&, k&, r&, t&
Title = [b2:f2].Value
c = UBound(Title, 2)
a = [b2].CurrentRegion.Value
t = UBound(a, 2) / c - 1
ReDim b(1 To UBound(a) * (t + 1), 1 To c + 1)
For n = 0 To t
k = n * c + c
For i = 2 To UBound(a)
If a(i, k) Then
r = r + 1
For j = 1 To c
b(r, j) = a(i, k - c + j)
Next
b(r, c + 1) = b(r, 4) * b(r, 5)
End If
Next
Next
Workbooks.Add 1
[a1].Resize(1, c) = Title
Cells(1, c + 1) = "Amount"
[a2].Resize(r, c + 1) = b
[a1].CurrentRegion.Borders.Value = 1
End Sub

複製代碼

中學生 Rank: 2

帖子: 71
主題: 18
精華: 0
積分: 131
點名: 22
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2022-1-22

2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

4^#

發表於 2021-1-4 13:26 | 只看該作者

回復 3# ikboy 感謝ikboy,程式可用其他自行修飾,因功力不足,是否能將程式功能註解,讓小弟學習.

杜小平

中學生 Rank: 2

帖子: 261
主題: 8
精華: 0
積分: 279
點名: 16
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2022-1-22

2016猴年全勤獎章

5^#

發表於 2021-1-4 16:44 | 只看該作者

回復 4# dou10801

Sub zz()
Dim a, Title, b(), c&, n&, k&, r&, t&
Title = [b2:f2].Value '取標題
c = UBound(Title, 2) '取標題長度
a = [b2].CurrentRegion.Value '取表1的資料放入 a Array
t = UBound(a, 2) / c - 1 '計算表1中標題的重複次數以 0 開始至 t, 為以下第一循環作好計算 ,請看 @_@
ReDim b(1 To UBound(a) * (t + 1), 1 To c + 1) '建立一個較大的 b Array
For n = 0 To t '@_@
k = n * c + c '計算 k 的值, 即出貨數量在Title中的位置
For i = 2 To UBound(a) '由 a 的第2行循環
If a(i, k) Then '行列對應有出貨數量, 進行以下程序
r = r + 1 '建立新行數給 b Array
For j = 1 To c '循環標題長度
b(r, j) = a(i, k - c + j) '取 a Array 中相對行列的資料給 b Array
Next '循環
b(r, c + 1) = b(r, 4) * b(r, 5) '計算金額
End If
Next '循環
Next '循環
Workbooks.Add 1 '新建工作簿
[a1].Resize(1, c) = Title '寫入標題
Cells(1, c + 1) = "Amount" '寫入新標題
[a2].Resize(r, c + 1) = b '將 b Array 寫入
[a1].CurrentRegion.Borders.Value = 1 '畫上格線
End Sub

複製代碼

中學生 Rank: 2

帖子: 71
主題: 18
精華: 0
積分: 131
點名: 22
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2022-1-22

2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

6^#

發表於 2021-1-5 07:57 | 只看該作者

回復 5# ikboy ikboy大大,感恩.

杜小平

靜思自在 : 心中常存善解、包容、感思、知足、惜福。

返回列表下一主題上一主題