准提部林

參考檔
Xl0000117.rar (19.72 KB)

下載次數: 9

2020-12-7 16:58

四段分開寫, 意思差不多, 自行研究下~~

准提部林

回復 3# b9208

Xl0000117-1.rar (21.23 KB)

下載次數: 6

2020-12-8 19:05

   
統計表的格式(標題行), 與所述條件不一致~~
自行參酌程式修改

准提部林

回復 5# b9208


__還是看不懂統計表的規則__
「日期 & 部門 & 名稱 & 料號（前7碼）」等相同列，只計數1次。
一、依據「名稱」統計，輸出於A表。
二、依據「地區」統計，輸出於B表。
二、依據「部門」統計，輸出於C表。

准提部林

回復 7# b9208


先做總表:
Xl0000126-1.rar (22.28 KB)

下載次數: 8

2020-12-11 11:17

統計表自行先摹擬結果, 看不懂~~

准提部林

回復 9# b9208

參考檔:
Xl0000396-1.rar (29.95 KB)

下載次數: 14

2020-12-12 11:46

統計做兩個, 懂哪個就用哪個

准提部林

回復 11# b9208

For Each S In Array("NL", "SL")
    On Error Resume Next
    If Sheets(S & "") Is Nothing Then
       MsgBox "工作表:〔" & S & "〕不存在! ": Exit Sub
    End If
    On Error GoTo 0
Next

准提部林

回復 13# b9208


附檔:
T18-01.rar (56.23 KB)

下載次數: 12

2020-12-19 09:19

准提部林

回復 15# b9208


  Set xB = Workbooks.Open(PH & "\" & FN, ReadOnly:=True)
   Set xS = xB.Sheets(1)
   If DateStr = "" Then DateStr = xS.[A2]
   Arr = Range(xS.[A1:O1], xS.UsedRange)


If M > 0 Then
   [總表!b2] = DateStr

end if

插入紅色字那二行~~