starbox520

回復 130# c_c_lai


    今天聖誕節您還是出去透透氣XD

c_c_lai

回復 129# starbox520
妳在前置作業有先處理WIP的資料，即在寫入 Sheet1 之前先將：

1. S欄篩出 LS1T| LS1N| TR| BK| VQ 字串，其餘的不要；
2. 將 J 欄的 "G"、 R欄的 "R" 篩出來，其餘的不要；
3. "N" 欄的時間，以當前系統時間 + 4HRS 內 篩出來，空白無時間資料的
   篩出 來，其餘的不要 (其餘的指不在這 4HRS 以內的資料)；
4. "U" 欄急貨單號，有任何值，在 "I" 欄 Schedule加上 * 號
   之後再寫到 Sheet1。

A. 請問妳是用人工作業處理嗎？ (即從 WIP 寫入到  Sheet1)
B. 試問 WIP 的資料是從何而來？(即如何產生出來的？)

c_c_lai

回復 129# starbox520
試試看 WIP！
tx00001223.rar (770.58 KB)

下載次數: 1

2016-12-26 08:18

starbox520

我在前置作業有先處理WIP的資料 1.S欄篩出LS1T|LS1N|TR|BK|VQ 字串，其餘的不要
                                                                 2.將J欄的"G"R欄的"R"篩出來，其餘的不要
                                                                 3.'N欄的時間，以當前系統時間 + 4HRS 內 篩出來，空白無時間資料的篩出來，其餘的不要(其餘的指不在這4HRS以內的資料)
                                                                 4."U"欄急貨單號，有任何值，在"I"欄Schedule加上*號
                                                                  之後再寫到Sheet1
       這邊有一個問題是，我的用法也會更改到WIP上的資料，*號部分
       但問題在使用者，如果手殘一直點的話，這個星號會無止進的增加**********會變成一大堆...
       然後我發現我篩完後貼去Sheet1的部分，有的時候會殘留之前的資料
       ->WIP的資料每天會做更新，我試過好像要把Sheet1的資料整個刪除掉在去執行，比較不會出問題...
           這邊我是在"TR排機&產出" 做一個WIP更新的按鈕，之前有想過把這個執行也一同放入 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
         但是跑起來會很久，而且有時候顯示的資料會錯誤，因此最後才用了這個辦法...這部分有更好的作法嗎~

      配上C大之前幫忙修改的，ListBox1 & ListBox2 皆會使用到工作表2跟Shee1
      Sub ArrangeMent() 是從WIP整理過後的資料 (Sheet1)計算出來的
      就是"工作表2"
   
       寫到工作表2的部分，我把執行放到  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       目前還沒看到錯誤，不知道放在這邊日後會不會有Bug


PS我一直無法看到13頁以後的東西~~

下載 (65.55 KB)

2016-12-26 15:05

tx00001223.rar (777.94 KB)

下載次數: 3

2016-12-26 15:05

starbox520

回復 1# c_c_lai

C大我一直看不到您回復的><"
最我只能看到這樣~
一天了QQ

下載 (65.55 KB)

2016-12-26 15:07

c_c_lai

回復 2# starbox520
試試看！
tx00001223U.rar (779.44 KB)

下載次數: 8

2016-12-26 17:43

整體全部試完後告訴我結果。

c_c_lai

回復 1# starbox520
整隻程式包含 "lstSelector_設定()" 、
ArrangeMent()、WIP() 在內都有修正過。

下載 (102.62 KB)

2016-12-26 18:52

starbox520

回復 4# c_c_lai


    哈哈把我亂七八糟的改的好有規律
    我明天更新資料看看
    看哪邊還出錯XD

starbox520

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, 14)) Then
    
21.                     If Arr(i, 14) >= Now And Arr(i, 14) < DateAdd("h", 4, Now) Then    ' 當下時間 +4Hrs
    
22.                         If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "XXXXXX" Then
    
23.                             .Cells(i, 9) = .Cells(i, 9) & "XXXXXX"       '  確認是否為急貨單號
    
24.                         End If
    
25.                         
    
26.                         Set rng = Union(rng, .Rows(i))
    
27.                     End If
    
28.                     '  N 欄內空白無資料
    
29.                 ElseIf Len(Arr(i, 14)) = 0 Then
    
30.                     '  如 "U" 欄 (急貨單號)，有任何值，在 "I" 欄 (Schedule) 加上 * 號
    
31.                     If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "XXXXXXXX" Then
    
32.                         .Cells(i, 9) = .Cells(i, 9) & "XXXXXX"
    
33.                     End If
    
34.                     
    
35.                     Set rng = Union(rng, .Rows(i))
    
36.                 End If
    
37.             End If
    
38.         Next
    
39.     End With
    
40.    
    
41.     With Worksheets("Sheet1")
    
42.         .[A1].CurrentRegion.ClearContents      '  清除上一次的畫面
    
43.         rng.Copy .Range("A1")
    
44.     End With
    
45. End Sub

複製代碼

回復 4# c_c_lai


這邊我不懂意思
我不是把星號改掉了   ->   我改成XXXXX
但是秀出來一樣有星號耶~

starbox520

回復 4# c_c_lai


    發現空格的話
    好像就讀不到了
   

下載 (32.96 KB)

2016-12-27 09:12

   UserForm的位置如果要讓她在螢幕正中間要改哪裡呢

1. Private Sub UserForm_Initialize()
   
2.     StartupPosition = 0
   
3.     Top = 0
   
4.     Left = Windows(1).Width - Width
   
5.     lstSelector_設定
   
6. End Sub

複製代碼