starbox520

回復 109# c_c_lai


    都要把它看成一樣~
     以人來判讀的話就像我篩選的時候，我看到QFBGA   我就會去工作表2   把有BGA這3個字都篩出來    (BGA   .  XXBGA....)
                                                                     看到  GG QFN     我就會去工作表2   把有QFN這3個字的都篩出來

c_c_lai

回復 110# starbox520
我還是先讓眼睛休息一下吧，
不然連眼睛也會跟著錯亂的！

c_c_lai

回復 110# starbox520
我還是先讓眼睛休息一下，
不然眼睛也會跟著錯亂的！

starbox520

回復 113# c_c_lai


    C大您先去休息XD

c_c_lai

回復 114# starbox520
這是我為求確認，再次整理加註的你的回覆集。
須看了數番次後，始得恍然大悟 What are you talking about。
難怪我眼睛視力恢復地如此慢！
Txt.rar (913.16 KB)

下載次數: 3

2016-12-24 08:17

c_c_lai

回復 111# starbox520

1.                 Select Case cts
   
2.                     Case 3      '  第 3 種篩選方式： TR排機&產出    E F G H   (工作表2        A B C D)
   
3.                         '  tf = arSh2(ct2, 1) = Adt_Rng.Offset(, -1) And arSh2(ct2, 2) = Adt_Rng.Value And arSh2(ct2, 3) = Adt_Rng.Offset(, 1) And arSh2(ct2, 4) = Adt_Rng.Offset(, 2)
   
4.                         tf = arSh2(ct2, 1) = Adt_Rng.Offset(, -1) And Right(arSh2(ct2, 2), 3) = Right(Adt_Rng.Value, 3) And arSh2(ct2, 3) = Adt_Rng.Offset(, 1) And arSh2(ct2, 4) = Adt_Rng.Offset(, 2)
   
5.                     Case 4      '  第 4 種篩選方式： TR排機&產出      F G H   (工作表2          B C D)
   
6.                         '  tf = arSh2(ct2, 2) = Adt_Rng.Value And arSh2(ct2, 3) = Adt_Rng.Offset(, 1) And arSh2(ct2, 4) = Adt_Rng.Offset(, 2)
   
7.                         tf = Right(arSh2(ct2, 2), 3) = Right(Adt_Rng.Value, 3) And arSh2(ct2, 3) = Adt_Rng.Offset(, 1) And arSh2(ct2, 4) = Adt_Rng.Offset(, 2)
   
8.                     Case 5      '  第 5 種篩選方式： TR排機&產出      F G     (工作表2          B C  )
   
9.                         '  tf = arSh2(ct2, 2) = Adt_Rng.Value And arSh2(ct2, 3) = Adt_Rng.Offset(, 1)
   
10.                         tf = Right(arSh2(ct2, 2), 3) = Right(Adt_Rng.Value, 3) And arSh2(ct2, 3) = Adt_Rng.Offset(, 1)
    
11.                 End Select

複製代碼

c_c_lai

回復 101# starbox520

下載 (236.75 KB)

2016-12-24 10:36

starbox520

回復 117# c_c_lai


    這邊的部分是我  例如你看到SQH191
    他不可能出現在兩筆數據上面~
    如果使用者手殘，一直點按鈕的話
    就會出現這種Bug
    但我試過debug原因好像是出在我後面IJKL欄  不會先Clear掉~"~
    導致每次按鈕按下去比對的時候
    會出現錯亂哈哈
    我有個想法就是我在ArrangeMent這邊

1. If N = 0 Then Exit Sub
   
2.     With Sheets("工作表2")
   
3.    .[A2].Resize(N, 8) = Brr
   
4.   
   
5. End With
   
6. If N = 0 Then Exit Sub
   
7.     With Sheets("量大未排機")
   
8.    .[A2].Resize(N, 8) = Brr
   
9.    End With
   
10. End Sub

複製代碼

量大未排機部分
改成   .[A2].Resize(N, 12) = Brr
這樣每次就會更新到後面這4行
在按下我設計的"量大未排機"按鈕
似乎就比較不會出錯
不過這只是我的想法XD...
因為我發現這樣改的話後面會變成跑"N/A"出來


所以C大懂我BGA.QFN.QFP  這3種特殊的狀況做判斷
再說什麼了嗎哈哈

c_c_lai

回復 118# starbox520
那 #116 上有關 BGA、QFN、QFP 的程式部分，
妳測試的結果是不是如你所願？

c_c_lai

回復 118# starbox520
又、"量大未排機" 的機台號碼 是從那裡冒出來的？