多條件篩選&ListBox - Excel程式區 - 麻辣家族討論版版

starbox520

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

131^# 跳轉到 »

發表於 2016-12-25 16:05 | 只看該作者

回復 130# c_c_lai

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

132^#

發表於 2016-12-25 19:37 | 只看該作者

回復 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 的資料是從何而來？(即如何產生出來的？)

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

133^#

發表於 2016-12-26 08:18 | 只看該作者

回復 129# starbox520
試試看 WIP！

tx00001223.rar (770.58 KB)

TOP

starbox520

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

134^#

發表於 2016-12-26 15:05 | 只看該作者

抓出我的bug

我在前置作業有先處理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頁以後的東西~~

tx00001223.rar (777.94 KB)

TOP

starbox520

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

135^#

發表於 2016-12-26 15:07 | 只看該作者

回復 1# c_c_lai

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

136^#

發表於 2016-12-26 17:45 | 只看該作者

回復 2# starbox520
試試看！

tx00001223U.rar (779.44 KB)
整體全部試完後告訴我結果。

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

137^#

發表於 2016-12-26 18:53 | 只看該作者

本帖最後由 c_c_lai 於 2016-12-26 18:54 編輯

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

TOP

starbox520

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

138^#

發表於 2016-12-26 23:34 | 只看該作者

回復 4# c_c_lai

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

TOP

starbox520

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

139^#

發表於 2016-12-27 08:41 | 只看該作者

Sub WIP()
Dim r%, i%, Arr As Variant
Dim rng As Range, reg As New RegExp
With reg ' reg : : RegExp/IRegExp2
.IgnoreCase = True ' IgnoreCase = True : Boolean
' S 欄 (Recipe) 篩出 LS1T | LS1N | TR | BK | VQ 字串，其餘的不要
.Pattern = "LS1T|LS1N|TR|BK|VQ" ' Pattern = "LS1T|LS1N|TR|BK|VQ" : String
End With
With Worksheets("WIP")
Set rng = .Rows(1)
Arr = .[A1].CurrentRegion.Value ' Arr : : Variant/Variant(1 to 1249, 1 to 27)
For i = 2 To UBound(Arr) ' UBound(Arr) = 1249 : Long
' (reg.test(Arr(i, 19)) : Arr(i, 19) = "TR1T0.03" (True) / = "PK1T0" (False)) : Boolean
If Arr(i, 10) = "G" And Arr(i, 18) = "R" And reg.test(Arr(i, 19)) Then
' N 欄 (Trackin time) 的時間，以當前系統時間 + 4HRS
If IsDate(Arr(i, 14)) Then
If Arr(i, 14) >= Now And Arr(i, 14) < DateAdd("h", 4, Now) Then ' 當下時間 +4Hrs
If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "XXXXXX" Then
.Cells(i, 9) = .Cells(i, 9) & "XXXXXX" ' 確認是否為急貨單號
End If
Set rng = Union(rng, .Rows(i))
End If
' N 欄內空白無資料
ElseIf Len(Arr(i, 14)) = 0 Then
' 如 "U" 欄 (急貨單號)，有任何值，在 "I" 欄 (Schedule) 加上 * 號
If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "XXXXXXXX" Then
.Cells(i, 9) = .Cells(i, 9) & "XXXXXX"
End If
Set rng = Union(rng, .Rows(i))
End If
End If
Next
End With
With Worksheets("Sheet1")
.[A1].CurrentRegion.ClearContents ' 清除上一次的畫面
rng.Copy .Range("A1")
End With
End Sub

複製代碼

回復 4# c_c_lai

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

TOP

starbox520

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

140^#

發表於 2016-12-27 09:13 | 只看該作者

回復 4# c_c_lai

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

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

Private Sub UserForm_Initialize()
StartupPosition = 0
Top = 0
Left = Windows(1).Width - Width
lstSelector_設定
End Sub

複製代碼

TOP

[發問] 多條件篩選&ListBox

抓出我的bug

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]