軒云熊

回復 10# PJChen

把陣列改成 CELLS 應該可以 有空再試試看行不行 感謝

1. Sub 預約更新_2()
   
2. Application.ScreenUpdating = False
   
3.     Arr = [說明!I2].CurrentRegion
   
4.     Brr = [預約!A1].CurrentRegion
   
5. 
   
6.     For X = 2 To UBound(Arr)
   
7.         A = Arr(X, 1) & "-" & Arr(X, 4)
   
8.         For Y = X To UBound(Brr)
   
9.             B = Brr(Y, 2) & "-" & Brr(Y, 1)
   
10.             If A = B And Brr(Y, 3) = "" Then K = 0
    
11.             If A = B And Arr(X, 4) <> "" And K <> 1 Then
    
12.                 K = 1
    
13.                 Cells(Y, 3) = Arr(X, 7)
    
14.                 Cells(Y, 7) = "#0000" & Arr(X, 5)
    
15.             Exit For
    
16.             End If
    
17.         Next Y
    
18.     Next X
    
19. 
    
20. Application.ScreenUpdating = True
    
21. End Sub

複製代碼

PJChen

回復 11# 軒云熊

真感謝！執行沒問題了
請問原來的程式,不需要了嗎? [預約!A1].Resize(UBound(Brr, 1), UBound(Brr, 2)) = Brr
2 To UBound(Arr)...UBound(Arr)前面的數字代表什麼?我常看到程式前有不同數字,但不理解用法！
可以的話能否幫忙解說您寫的程式？

軒云熊

回復 12# PJChen

Sub 預約更新_2()
Application.ScreenUpdating = False '關閉更新畫面

    '把工作表的所有內容放到陣列
    Arr = [說明!I2].CurrentRegion
    Brr = [預約!A1].CurrentRegion

    For X = 2 To UBound(Arr) '在陣列裡的第2列開始到最後一列
        A = Arr(X, 1) & "-" & Arr(X, 4) '說明文字 帳號串聯日期
        For Y = X To UBound(Brr) '在陣列裡的第2列開始到最後一列
            B = Brr(Y, 2) & "-" & Brr(Y, 1) '預約文字 帳號串聯日期
            If A = B And Brr(Y, 3) = "" Then K = 0 '如果說明文字與預約文字相同 且預約X列位的第3欄位沒有內容 K就等於0 表示沒有被比對過
            If A = B And Arr(X, 4) <> "" And K <> 1 Then '如果說明文字的與預約文字相同 且說明X列位的第4欄位有內容 且K不等於1 表示沒有被比對過
                K = 1 '表示已經被比對過
                Cells(Y, 3) = Arr(X, 7) '把說明的預約板數放到預約工作表的單項取板欄位
                Cells(Y, 7) = "#0000" & Arr(X, 5) '把說明的 "#0000"串聯取板編號 放到預約工作表的取板編號欄位
            Exit For '跳到下一個迴圈
            End If
        Next Y
    Next X
    'D:F欄的公式值化 是因為  Brr = [預約!A1].CurrentRegion 的關係 所有內容放到陣列 或改成特定位置
'[預約!A1].Resize(UBound(Brr, 1), UBound(Brr, 2)) = Brr 因為沒有在陣列裡比對所以不需要
Brr指的是預約工作表比對後的內容
其實用字典方法會更好 但小弟還在學習中不太理解...有空還是會來看看大大們怎麼寫.順便學習^^"
Application.ScreenUpdating = True '開啟更新畫面
End Sub

PJChen

回復 13# 軒云熊

請問我查了CurrentRegion是當前區域的意思,
那Arr = [說明!I2].CurrentRegion
是指從I2到哪個儲存格為止?

軒云熊

回復 14# PJChen

那是一個動態範圍 會隨著儲存格內容變動 但前提是 只要有內容的儲存格 都是你要的 否則會選到一些不相關的內容
其實很多問題 都可以在這裡找到答案

達人總結的VBA精典的""八""類百條語句版

新手 VBA 入門常見問題

我都是在這裡學的 如果找不到答案 看看一些文章裡也許會有  再不行前輩們也會有答案 這裡真的可以學到很多
因為每個前輩的思考邏輯都有所不同 有時候看到前輩們寫 會發現 哇~原來還可以這樣......  呵呵..

PJChen

回復 15# 軒云熊


謝謝您, 有問題會再請教

PJChen

回復 15# 軒云熊

熊大好,

今天做分批預約時,發生了問題,請幫忙查看程式,感謝！

說明工作表的籃色區塊先進行第一次預約,填入資料沒問題
黃色區塊是第二批預約資料,貼到L11:S19後,程式就無法載入資料至"預約工作表",
經過測試,只要把"預約工作表"的指定區間資料清除,填入資料就可正常執行,
請問有沒有辦法,當資料分批出現時,不用做清除動作,就可以載入資料??
預約取板.rar (37 KB)

下載次數: 2

2021-3-4 22:11

軒云熊

回復 17# PJChen

我看不出來．．．　＞＂＜　　可不可以請　PJChen大大　做記號或著畫框框　說清楚一點　抱歉　我理解能力不太好　麻煩妳了　感謝

軒云熊

回復 17# PJChen

好像是　Ｌ欄格式　不是日期格式　有改了一下　有空妳再試試看是不是Ｌ欄的問題　感謝

預約取板0305.rar (37.36 KB)

下載次數: 0

2021-3-5 04:11

軒云熊

回復 17# PJChen

抱歉　剛才發現　要點好幾次資料才會全部列出　判斷沒改好　再傳一次　＞＂＜　有空再幫我看看還有沒有其它問題　感謝

預約取板030501.rar (37.36 KB)

下載次數: 0

2021-3-5 04:46