返回列表 上一主題 發帖

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

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

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

圖1

圖1.png
2023-9-19 17:49

圖2

圖2.png
2023-9-19 17:49

圖3

圖3.png
2023-9-19 17:49


測試 (2).zip (46.88 KB)
m06o2~~~~

回復 1# m06o2


    謝謝前輩發表此主題與範例
後學藉此帖練習陣列與字典,學習方案如下,請前輩參考
測試_20230921_1.zip (64.17 KB)

資料表:
20230921-1.jpg
2023-9-21 08:50


結果表:
20230921-2.jpg
2023-9-21 08:50



Option Explicit
Sub TEST()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Arr(1 To 16, 1 To 12), Brr, Crr, V, D, E, Z, Q, i&, j%, R&
Set Z = CreateObject("Scripting.Dictionary")
Brr = Range([總表!A4], [總表!O65536].End(3))
For i = 1 To UBound(Brr)
   If Trim(Brr(i, 7)) <> "" And Brr(i, 15) = "" Then MsgBox "資料不完整": Exit Sub
   If Val(Brr(i, 15)) > 0 Then
      For j = 1 To 9
         If Trim(Brr(i, j)) = "" Then MsgBox "資料不完整": Exit Sub
      Next
   End If
Next
D = Array(1, 2, 3, 7, 11, 12)
E = Split("2,4,6,8,9,15", ",")
For i = 1 To UBound(Brr)
   V = Z(Brr(i, 7))
   If Not IsArray(V) Then V = Arr
   R = Z(Brr(i, 7) & "|R") + 1: Z(Brr(i, 7) & "|R") = R
   For j = 0 To UBound(D): V(R, D(j)) = Brr(i, E(j)): Next
   Z(Brr(i, 7)) = V
Next
Crr = Range([輔助表!C1], [輔助表!A65536].End(3))
For i = 1 To UBound(Crr): Z(Crr(i, 1) & "|") = i: Next
For i = Sheets.Count To 1 Step -1
   If InStr(Sheets(i).Name, ".") Then Sheets(i).Delete
Next
For Each Q In Z.KEYS
   If Not IsArray(Z(Q)) Then GoTo Q01
   With Sheets("列印").Copy(after:=Worksheets(Sheets.Count))
      R = Z(Q & "|R"): ActiveSheet.Name = Q & "."
      [B3] = Q: [B4] = Crr(Z(Q & "|"), 2): [B5] = Crr(Z(Q & "|"), 3)
      With [A9].Resize(R, 12)
         .Value = Z(Q): .Borders.LineStyle = 1
         .Item(.Count + 11) = "總計:": .Item(.Count + 11).Font.Bold = True
         .Item(.Count + 12) = "=SUM(L9:L" & 8 + R & ")"
         .Item(.Count + 12).Font.Bold = True
         With Range(.Item(.Count + 25), [L27])
            .Merge: .Value = "備註:"
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlTop
            .Borders.LineStyle = 1
         End With
      End With
   End With
Q01: Next
Set Z = Nothing: Erase Arr, Brr, Crr
End Sub
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

回復 2# Andy2483


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

TOP

回復 2# Andy2483


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

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

TOP

回復 4# m06o2
輔助表需要先建DDD的基本資料
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

回復 5# Andy2483


   懂了!!我立刻去試試看
m06o2~~~~

TOP

回復 6# m06o2


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

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大,小人氣大。
返回列表 上一主題