1 ...234567891011... 19
返回列表 上一主題 發帖

[發問] 多條件篩選&ListBox

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
155# 跳轉到 »
發表於 2016-12-28 17:26 | 只看該作者
回復 21# starbox520
妳的提問業已超出我個人的知識領域了。
這得請教其他大大了。

TOP

starbox520

帖子
192 
主題
15 
精華
0 
積分
194 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
女 
註冊時間
2016-9-22 
最後登錄
2020-8-28 

論壇榮譽勳章論壇贊助勳章
154#
發表於 2016-12-28 16:44 | 只看該作者
回復 19# c_c_lai


C大請問一下

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

是調整屬性嗎?

TOP

starbox520

帖子
192 
主題
15 
精華
0 
積分
194 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
女 
註冊時間
2016-9-22 
最後登錄
2020-8-28 

論壇榮譽勳章論壇贊助勳章
153#
發表於 2016-12-27 23:23 | 只看該作者
回復 19# c_c_lai


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

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
152#
發表於 2016-12-27 17:54 | 只看該作者
回復 14# starbox520

為了調整對格，請將下列程式部分自行修正：
  1. Private Sub lstSelector_設定()
  2.     Dim i As Integer, Arr()

  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
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
151#
發表於 2016-12-27 12:12 | 只看該作者
本帖最後由 c_c_lai 於 2016-12-27 17:57 編輯

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

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
150#
發表於 2016-12-27 11:28 | 只看該作者
回復 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
複製代碼
因為末二字不為 "急貨"，才加上 "急貨" 二字。

TOP

starbox520

帖子
192 
主題
15 
精華
0 
積分
194 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
女 
註冊時間
2016-9-22 
最後登錄
2020-8-28 

論壇榮譽勳章論壇贊助勳章
149#
發表於 2016-12-27 11:14 | 只看該作者
回復 15# c_c_lai

對!!!
這邊問一下
我照個改之後
變成"急"  狂疊加><lll   
  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
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
148#
發表於 2016-12-27 10:54 | 只看該作者
回復 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
複製代碼
妳的意思是如此嗎？

TOP

starbox520

帖子
192 
主題
15 
精華
0 
積分
194 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
女 
註冊時間
2016-9-22 
最後登錄
2020-8-28 

論壇榮譽勳章論壇贊助勳章
147#
發表於 2016-12-27 10:44 | 只看該作者
回復 13# c_c_lai

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

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
146#
發表於 2016-12-27 10:38 | 只看該作者
回復 12# starbox520
是從右邊起往前抓三位數字來比較 (Right(arSh2(ct2, 2), 3) = Right(Adt_Rng.Value, 3))：
例如":  "FHC BGA" 與 "VFBGA" 均視為 "BGA"，
無關有否空格， 只要右三碼是一樣，條件即為符合。

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
1 ...234567891011... 19
返回列表 上一主題