c_c_lai

回復 16# starbox520
附上修正後織程式。
整個再跑一次看看。
tx00001223U.rar (775.78 KB)

下載次數: 1

2016-12-27 17:57

c_c_lai

回復 14# starbox520

下載 (42.62 KB)

2016-12-27 17:52

為了調整對格，請將下列程式部分自行修正：

1. Private Sub lstSelector_設定()
   
2.     Dim i As Integer, Arr()
   
3. 
   
4.     With lstSelector             '  ** frmSelector 中的 第一個 ListBox 控制項 (lstSelector)
   
5.         .Clear
   
6.         i = 0
   
7.         
   
8.         If Not IsEmpty(Sheets("TR排機&產出").Sh_Ar) Then
   
9.             Arr = Sheets("TR排機&產出").Sh_Ar
   
10.             If Not IsEmpty(Arr) Then
    
11.                 On Error Resume Next
    
12.                 i = UBound(Arr, 2)
    
13.                 If i > 0 Then
    
14.                     .List = Arr
    
15.                 Else
    
16.                     .AddItem
    
17.                     For i = 0 To UBound(Arr)
    
18.                         .List(0, i) = Arr(i + 1)
    
19.                     Next i
    
20.                 End If
    
21.             End If
    
22.         End If
    
23.     End With
    
24.    
    
25.     With ListBox1                '  ** frmSelector 中的 第二個 ListBox 控制項 (ListBox1)
    
26.         .ColumnCount = 9
    
27.         .ColumnWidths = "75,68,97,80,43,52,75,60,65"
    
28.    End With
    
29. End Sub

複製代碼

starbox520

回復 19# c_c_lai


    c大太周到了我還沒檢查到那裏就幫我想到了~
    真的太感謝你了!!!!!!!!!

starbox520

回復 19# c_c_lai


C大請問一下

第2個ListBox，反白後可以按 ctrl+C  複製嗎?

是調整屬性嗎?

下載 (8.37 KB)

2016-12-28 16:43

c_c_lai

回復 21# starbox520
妳的提問業已超出我個人的知識領域了。
這得請教其他大大了。

starbox520

回復 22# c_c_lai
沒關係C大其實這只是我自己想知道有沒有這部分可以應用而已XD

1. Sub WIP()
   
2.     Dim r%, i%, Arr As Variant
   
3.     Dim rng As Range, reg As New RegExp
   
4.    
   
5.     With reg                                 '  reg :  : RegExp/IRegExp2
   
6.         .IgnoreCase = True                   '  IgnoreCase = True : Boolean
   
7.         '  S 欄 (Recipe) 篩 出 LS1T | LS1N | TR | BK | VQ 字串，其餘的不要
   
8.         .Pattern = "LS1T|LS1N|TR|BK|VQ"      '  Pattern = "LS1T|LS1N|TR|BK|VQ" : String
   
9.     End With
   
10.    
    
11.     With Worksheets("WIP")
    
12.         Set rng = .Rows(1)
    
13.         Arr = .[A1].CurrentRegion.Value   '  Arr :  : Variant/Variant(1 to 1249, 1 to 27)
    
14.         
    
15.         For i = 2 To UBound(Arr)      '  UBound(Arr) = 1249 : Long
    
16.            
    
17.             '  (reg.test(Arr(i, 19)) : Arr(i, 19) = "TR1T0.03" (True) / = "PK1T0" (False)) : Boolean
    
18.             If Arr(i, 10) = "G" And Arr(i, 18) = "R" And reg.test(Arr(i, 19)) Then
    
19.                 '  N 欄 (Trackin time) 的時間，以當前系統時間 + 4HRS
    
20.                 If IsDate(Arr(i, 16)) Then
    
21.                     If Arr(i, 16) >= Now And Arr(i, 16) < DateAdd("h", 4, Now) Then    ' 當下時間 +4Hrs
    
22.                         If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "急貨" Then
    
23.                             .Cells(i, 9) = .Cells(i, 9) & "急貨"       '  確認是否為急貨單號
    
24.                         End If
    
25.                         
    
26.                         Set rng = Union(rng, .Rows(i))
    
27.                     End If
    
28.                     '  N 欄內空白無資料
    
29.                 ElseIf Len(Arr(i, 16)) = 0 Then
    
30.                     '  如 "U" 欄 (急貨單號)，有任何值，在 "I" 欄 (Schedule) 加上 * 號
    
31.                     If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "急貨" Then
    
32.                                   .Cells(i, 9) = .Cells(i, 9) & "急貨"       '  確認是否為急貨單號
    
33.                      End If
    
34.                       '  Cells(i, 9) = .Cells(i, 9) & "急貨"
    
35.                     '  .Cells(i, 9) = Left(.Cells(i, 9), Len(.Cells(i, 9)) - 1) & "急貨"       '  確認是否為急貨單號
    
36.                   '  End If
    
37.                     
    
38.                     Set rng = Union(rng, .Rows(i))
    
39.                 End If
    
40.             End If
    
41.         Next
    
42.     End With
    
43.    
    
44.     With Worksheets("Sheet1")
    
45.         .[A1].CurrentRegion.ClearContents      '  清除上一次的畫面
    
46.         rng.Copy .Range("A1")
    
47.     End With
    
48. End Sub

複製代碼

C大我"WIP"的   MA code"O"欄   可以把"TR排機&產出"   的 機台編號"B欄"
"TR排機&產出" B欄下的 號碼  會出現在  WIP"的   MA code"O"欄
可以濾掉嗎~
目前我只學保留的方法XD
先濾掉在做我後面寫的篩"G"跟"R"出來
If Arr(i, 10) = "G" And Arr(i, 18) = "R" And reg.test(Arr(i, 19)) Then

c_c_lai

回復 21# starbox520
修正妳第一個 ListBox 複製的問題，
得以多項選擇並貼製。

tx00001223U.rar (778.1 KB)

下載次數: 3

2016-12-28 17:58

c_c_lai

回復 23# starbox520
"WIP"的   MA code"O"欄   可以把"TR排機&產出"   的 機台編號"B欄"
"TR排機&產出" B欄下的 號碼  會出現在  WIP"的   MA code"O"欄
可以濾掉嗎~

以上是哪一國的文法，我怎麼看都看不懂。

starbox520

回復 25# c_c_lai


   

下載 (51.16 KB)

2016-12-28 18:48

TR排機&產出的"B"欄  裡面有SQH011 . SQH021...............SQ10A1
WIP的"O"欄   裡面也會有SQH011 . SQH021...............SQ10A1   
要把這些濾掉在做我後面寫的
If Arr(i, 10) = "G" And Arr(i, 18) = "R" And reg.test(Arr(i, 19)) Then

c_c_lai

回復 26# starbox520
要把這些濾掉？
濾掉甚麼？