返回列表 上一主題 發帖

[發問] EXCEL VBA 連接ACCESS計算內容

[發問] EXCEL VBA 連接ACCESS計算內容

請教一下各位高手
如附件方式,目前我只會下單一個條件進行搜尋
1.如果想要尋找報工日期區間,或是所有資料同時下載,條件要如何下
2.下載時能同時計算如工作表二,像是使用sumifs或是vlookup

再請各位高手幫幫忙

test12.rar (654.58 KB)

回復 1# wsx1130

1.如果想要尋找報工日期區間,或是所有資料同時下載,條件要如何下
>>請測試看看,謝謝
Sub test()
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\database-test.mdb"
Sheets(3).Range("a1").CopyFromRecordset conn.Execute("select * from [DailyReport43600]")
conn.Close
End Sub

TOP

回復  wsx1130

1.如果想要尋找報工日期區間,或是所有資料同時下載,條件要如何下
>>請測試看看,謝謝 ...
samwang 發表於 2021-12-7 22:01


感謝sam的代碼,已經可以全部下載下來了

TOP

回復 1# wsx1130

2.下載時能同時計算如工作表二,像是使用sumifs或是vlookup
>> 紅色框的項目是怎麼來的?? 是固定的麼? 請確認,謝謝
2.JPG

TOP

回復 1# wsx1130

2.下載時能同時計算如工作表二,像是使用sumifs或是vlookup
>> 紅色框的項目是怎麼來的?? 是固定的麼? 請確認,謝謝
>> 時間都是抓工單號碼的第1筆嗎??
如果時間是要以工單號碼+製程簡稱為主,是要取哪一筆時間
Ex: 17256+品管液手工包裝 有2筆時間(假設不一樣),要取哪一筆
11.JPG

TOP

本帖最後由 samwang 於 2021-12-8 11:33 編輯

回復 1# wsx1130

請測試看看,謝謝
1. 工單號碼/製成簡稱: 從資料庫取唯一值然後自動匯出
2. 2021/11/02 16:06_1080_2021/11/02 16:13
    工單+製程: 第一筆開始時間 _ 累加數量 _ 最後完成(max)時間

Sub test()
Dim conn As New ADODB.Connection
Dim Arr, xD, Brr(), xD1, C%, n%, m%, i&, SD, ED, cnt
Set xD = CreateObject("Scripting.Dictionary")
Set xD1 = CreateObject("Scripting.Dictionary")
With Sheets(3)
    .[a1].CurrentRegion.Offset(1) = ""
'    .[a1:i1] = Array("ID", "報工序號", "工號", "班別代碼", "報工日期", "工單號碼", "作業序號", "製程簡稱", "作業細項")
'    .[j1:q1] = Array("開始時間", "完成時間", "時數", "數量", "不良數量", "工單號碼", "備註", "原因代碼", "狀態")
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\database-test.mdb"
    .Range("a2").CopyFromRecordset conn.Execute("select * from [DailyReport43600]")
    conn.Close
    Arr = .[a1].CurrentRegion
End With
ReDim Brr(1 To UBound(Arr), 1 To UBound(Arr))
For i = 2 To UBound(Arr): xD(Arr(i, 8) & "") = "": Next
With Sheets(4)
     .[a1].CurrentRegion = ""
    .Range("b1").Resize(1, xD.Count) = xD.keys
    .[a1] = "工單號碼/製程簡稱"
    For i = 2 To UBound(Arr)
        C = Application.WorksheetFunction.Match(Arr(i, 8), .Range(.[b1], .Cells(1, xD.Count + 1)), 0) + 1
        If xD1.Exists(Arr(i, 6) & "") Then
            m = xD1(Arr(i, 6) & "")
            If Brr(m, C) <> "" Then
                SD = Split(Brr(m, C), "_")(0)
                cnt = Split(Brr(m, C), "_")(1)
                ED = Split(Brr(m, C), "_")(2)
                If Arr(i, 11) > ED Then ED = Arr(i, 11)
            End If
            Brr(m, C) = SD & "_" & cnt + Arr(i, 13) & "_" & ED
        Else
            n = n + 1: xD1(Arr(i, 6) & "") = n
            Brr(n, 1) = Arr(i, 6)
            Brr(n, C) = Arr(i, 10) & "_" & Arr(i, 13) & "_" & Arr(i, 11)
        End If
    Next
    .Range("a2").Resize(n, xD.Count + 1) = Brr
End With
End Sub
33.JPG

TOP

回復  wsx1130

2.下載時能同時計算如工作表二,像是使用sumifs或是vlookup
>> 紅色框的項目是怎麼來的 ...
samwang 發表於 2021-12-8 09:41


不好意思Sam那麼晚才回您,紅色框的部分是固定,的確您計算的是我想要的方式,我再研究試試看
非常的感謝您

TOP

回復 6# samwang
Sam大大,請問一下如果需要sheet4製程簡稱位置是固定項目(不是所有的,手動輸入幾個特定製程),能用這樣的方式計算嗎

TOP

回復  samwang
Sam大大,請問一下如果需要sheet4製程簡稱位置是固定項目(不是所有的,手動輸入幾個特定製 ...
wsx1130 發表於 2021-12-18 00:00


當然可以如同先前談到的5#問題,條件要先訂好,謝謝

時間都是抓工單號碼的第1筆嗎??
如果時間是要以工單號碼+製程簡稱為主,是要取哪一筆時間
Ex: 17256+品管液手工包裝 有2筆時間(假設不一樣),要取哪一筆

TOP

回復 9# samwang

Sam大大,抓取第一筆的時間
ex: 177256 品管液QA貼標、裝箱   2021/11/02 16:06

TOP

        靜思自在 : 【為善競爭】人生要為善競爭,分秒必爭。
返回列表 上一主題