starbox520

回復 4# c_c_lai

    螢幕中央搞定了!!!!
    StartUpPosition   =  2 就可以了!!XD

c_c_lai

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

是真的看不懂意思，XXXXX 何意？

c_c_lai

回復 7# starbox520

下載 (49.08 KB)

2016-12-27 10:15

讀不到，指的是？
非常奇怪，為何我老是無法了解妳的詮釋？

starbox520

回復 9# c_c_lai

回C大我只是想實驗弄懂這邊是不是這樣改就能改變呈現方式

我本來要實驗把"星號"改成"急貨"

但看來字串會讀不到

所以我就隨便打個XXX實驗哈哈

starbox520

回復 10# c_c_lai
這邊的話
因為之前跟您說過這樣就叫做BGA
但可能因為
這個字串中間多了空格
導致不能判斷他叫BGA
這邊失算了，我沒料到資料會有空格種狀況Q0Q

c_c_lai

回復 12# starbox520
是從右邊起往前抓三位數字來比較 (Right(arSh2(ct2, 2), 3) = Right(Adt_Rng.Value, 3))：
例如":  "FHC BGA" 與 "VFBGA" 均視為 "BGA"，
無關有否空格， 只要右三碼是一樣，條件即為符合。

starbox520

回復 13# c_c_lai

太周到了!!
我還擔心這個Rule沒給你Q0Q
我懂了!!這樣就不會有誤了XD

c_c_lai

回復 14# starbox520

1.    If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
   
2.        .Cells(i, 9) = .Cells(i, 9) & "*"       '  確認是否為急貨單號
   
3.    End If

複製代碼

如果不要 * (即同步去除原附加的 * 號)， 然後再加上 "急貨" 兩字，
   則可改成：

1.    If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
   
2.        .Cells(i, 9) = Left(.Cells(i, 9), Len(.Cells(i, 9)) - 1) & "急貨"       '  確認是否為急貨單號
   
3.    End If

複製代碼

妳的意思是如此嗎？

starbox520

回復 15# c_c_lai

對!!!
這邊問一下
我照個改之後
變成"急"  狂疊加><lll   

下載 (13.77 KB)

2016-12-27 11:13

1. For i = 2 To UBound(Arr)      '  UBound(Arr) = 1249 : Long
   
2.            
   
3.             '  (reg.test(Arr(i, 19)) : Arr(i, 19) = "TR1T0.03" (True) / = "PK1T0" (False)) : Boolean
   
4.             If Arr(i, 10) = "G" And Arr(i, 18) = "R" And reg.test(Arr(i, 19)) Then
   
5.                 '  N 欄 (Trackin time) 的時間，以當前系統時間 + 4HRS
   
6.                 If IsDate(Arr(i, 14)) Then
   
7.                     If Arr(i, 14) >= Now And Arr(i, 14) < DateAdd("h", 4, Now) Then    ' 當下時間 +4Hrs
   
8.                         If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "急貨" Then
   
9.                             .Cells(i, 9) = .Cells(i, 9) & "急貨"       '  確認是否為急貨單號
   
10.                         End If
    
11.                         
    
12.                         Set rng = Union(rng, .Rows(i))
    
13.                     End If
    
14.                     '  N 欄內空白無資料
    
15.                 ElseIf Len(Arr(i, 14)) = 0 Then
    
16.                     '  如 "U" 欄 (急貨單號)，有任何值，在 "I" 欄 (Schedule) 加上 * 號
    
17.                     If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "急貨" Then
    
18.                       '  .Cells(i, 9) = .Cells(i, 9) & "*"
    
19.                       .Cells(i, 9) = Left(.Cells(i, 9), Len(.Cells(i, 9)) - 1) & "急貨"       '  確認是否為急貨單號
    
20.                     End If

複製代碼

c_c_lai

回復 16# starbox520
妳這裡有語病，應兩個都改成：

1.    If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "急貨" Then
   
2.        .Cells(i, 9) = .Cells(i, 9) & "急貨"       '  確認是否為急貨單號
   
3.    End If

複製代碼

因為末二字不為 "急貨"，才加上 "急貨" 二字。