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

[發問] 多條件篩選&ListBox

starbox520

帖子
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

starbox520

帖子
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

c_c_lai

帖子
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

c_c_lai

帖子
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

starbox520

帖子
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

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

回復 129# starbox520
這串好像是聖經，仔細研究後有疑問再問妳，
今天一整天在 Y17 有方圓舉辦的土風舞聯歡，
我老人家要出門去透透氣了！

TOP

starbox520

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

論壇榮譽勳章論壇贊助勳章
129#
發表於 2016-12-24 23:13 | 只看該作者
回復 128# c_c_lai
   剩這串哈哈~~~

    我在前置作業有先處理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

TOP

c_c_lai

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

回復 126# starbox520
在每次按鈕後，順手清除上一次的紀錄，
增加一行 "清除舊有資料" 語法，
以免內容會留下舊有內容產生困擾。
  1.     With Sheets("量大未排機")
  2.         Brr = .[A1].CurrentRegion
  3.         
  4.         .Range("I2:L" & UBound(Brr)) = ""
  5.         For i = 2 To UBound(Brr)
  6.             x = Brr(i, 1) & "|" & Brr(i, 2) & "|" & Brr(i, 3) & "|" & Brr(i, 4)
複製代碼
或是
  1.     With Sheets("量大未排機")
  2.         Brr = .[A1].CurrentRegion
  3.         
  4.         '  .Range("I2:L" & UBound(Brr)) = ""
  5.         .Range("I2:L" & UBound(Brr)).ClearContents
  6.         For i = 2 To UBound(Brr)
複製代碼
接下來， 還有未回答的問題嗎？

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
127#
發表於 2016-12-24 20:22 | 只看該作者
回復 126# starbox520
盡量 RUN 吧！
會出錯才怪！

TOP

starbox520

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

論壇榮譽勳章論壇贊助勳章
126#
發表於 2016-12-24 19:13 | 只看該作者
回復 125# c_c_lai


    我剛剛有測試過  
    目前是不會出事XD
    不知道狂點後會不會出事哈哈
    C大修的是什麼概念~

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
1 ...45678910111213... 19
返回列表 上一主題