EXCEL表單自動生成表單或者WORD檔案

帖子: 44
主題: 9
精華: 0
積分: 72
點名: 7
作業系統: win7
軟體版本: 64旗艦版
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-1-27
最後登錄: 2024-3-5

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2023-9-19 17:54 | 顯示全部帖子

EXCEL表單自動生成表單或者WORD檔案

從N欄篩選單位，製作當月的報表如下面word檔案，由下圖1 N欄進行篩選，結果如圖2，然後製作成圖3。
目前我是用篩選的看有幾個單位每個單位製作成一張表單，有沒有辦法用VBA自動生成各單位的表單。

測試 (2).zip (46.88 KB)

樓主熱帖

m06o2~~~~

帖子: 44
主題: 9
精華: 0
積分: 72
點名: 7
作業系統: win7
軟體版本: 64旗艦版
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-1-27
最後登錄: 2024-3-5

論壇贊助勳章

2^#

發表於 2023-9-22 09:18 | 顯示全部帖子

回復 2# Andy2483

正在研究前輩的程式碼中!!

m06o2~~~~

帖子: 44
主題: 9
精華: 0
積分: 72
點名: 7
作業系統: win7
軟體版本: 64旗艦版
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-1-27
最後登錄: 2024-3-5

論壇贊助勳章

3^#

發表於 2023-9-22 10:02 | 顯示全部帖子

回復 2# Andy2483

剛剛測試把單位名稱改成DDD 發現程式就會出現錯誤

[B3] = Q: [B4] = Crr(Z(Q & "|"), 2): [B5] = Crr(Z(Q & "|"), 3)

m06o2~~~~

帖子: 44
主題: 9
精華: 0
積分: 72
點名: 7
作業系統: win7
軟體版本: 64旗艦版
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-1-27
最後登錄: 2024-3-5

論壇贊助勳章

4^#

發表於 2023-9-22 13:26 | 顯示全部帖子

回復 5# Andy2483

懂了!!我立刻去試試看

m06o2~~~~

帖子: 44
主題: 9
精華: 0
積分: 72
點名: 7
作業系統: win7
軟體版本: 64旗艦版
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-1-27
最後登錄: 2024-3-5

論壇贊助勳章

5^#

發表於 2023-9-22 13:56 | 顯示全部帖子

回復 6# m06o2

目前感覺他是搜尋總表的G欄進行排列，我想要他用N欄進行排列，但找不到地方可以改

m06o2~~~~

帖子: 44
主題: 9
精華: 0
積分: 72
點名: 7
作業系統: win7
軟體版本: 64旗艦版
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-1-27
最後登錄: 2024-3-5

論壇贊助勳章

6^#

發表於 2023-9-22 15:41 | 顯示全部帖子

回復 8# Andy2483

要搜尋N欄才可以當初我是想說簡單化讓他一樣~但是正常是用N欄做表單通常都不一樣

m06o2~~~~

帖子: 44
主題: 9
精華: 0
積分: 72
點名: 7
作業系統: win7
軟體版本: 64旗艦版
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-1-27
最後登錄: 2024-3-5

論壇贊助勳章

7^#

發表於 2023-9-22 16:55 | 顯示全部帖子

回復 9# m06o2
我找到了~感謝!

V = Z(Brr(i, 14))
If Not IsArray(V) Then V = Arr
R = Z(Brr(i, 14) & "|R") + 1: Z(Brr(i, 14) & "|R") = R
For j = 0 To UBound(D): V(R, D(j)) = Brr(i, E(j)): Next
Z(Brr(i, 14)) = V

m06o2~~~~