ListBox與排序加總問題 - Excel程式區

starbox520

中學生 Rank: 2

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

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

21^# 跳轉到 »

發表於 2016-10-24 08:45 | 顯示全部帖子

回復 33# GBKEE

回版大
是對應到此字串沒錯
是以工作表2資料去對應字串的"Package" 與 "BodySize"的內容作排列(數量由大致小)呈現在ListBox上
工作表1為理想圖應為

是我表達不清抱歉...
若以第一欄來說會對應到的篩選條件就是BGA 再來是17.3*7 篩完後再排列數量大小(以工作表2去做篩選)
以第2攔來說會對應到的篩選條件就是TQFP 再來是10*10 篩完後再排列數量大小

   圈起部分是上面完成結果後呈現在ListBox上點選其中某項  會直接把這4筆資料直接貼上  (每次只貼一次)
   但因為每個機台編號第一欄資料都不同  所以才想過要以先點選儲存格再去尋找字串的方法去做排列...(我的想法)
   重新附上整理後的檔案....不好意思讓您混淆了

0925.zip (551.96 KB)

TOP

starbox520

中學生 Rank: 2

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

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

22^#

發表於 2016-10-24 09:23 | 顯示全部帖子

回復 33# GBKEE

不好意思版大
此版較明確

0926TR.rar (544.82 KB)

TOP

starbox520

中學生 Rank: 2

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

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

23^#

發表於 2016-10-24 18:54 | 顯示全部帖子

回復 33# GBKEE

回版大
這些做法都是我用C#所學的觀念去弄得所以在相容性下很多問題所以我才越寫越崩潰= ="
我最終目標是用"工作表2"的資料對到"TR產出"的機台邊碼上每第一列資料，去做"Package ""Bodysize"數量由大至小，可以秀出在清單方塊上

點選其一內容可以貼到篩選條件的下一排，

   顯示在ListBox上會有8筆資料貼上只需其中四筆
   ps:有想過很多方法去做，可是都卡到每一個機台編號對應的第一排篩選東西可能不同，所以才用陣列去試試看
      但爬文中又有看到物件類別模組好像能實現，只是好像似乎變成要每個機台編號都設置按鈕
         版大有較好的想法或作法嗎~"~

TOP

starbox520

中學生 Rank: 2

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

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

24^#

發表於 2016-10-24 21:08 | 顯示全部帖子

回復 37# GBKEE

回版大篩的確實是我要的結果，
是希望透過人工去LISTBOX點選的方法去貼在第2格
( 會有 customer package bodysize lc bk vm tr 數量 ) <-8 筆資料
因為是我人工去選出來的所以我只有秀大概五筆

因為每次使用時每個機台編號只會取其中一項貼上去而已像我這樣

   因為使用時不一定會要第一筆資料，要以人工去判斷  lc  bk  vm  tr 的數量
   再以人工決定要點選一項貼上去
   所以我才會有後者所說是否要很多個按鈕的問題QQ
   又讓版大誤會我一點意思了...

TOP

starbox520

中學生 Rank: 2

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

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

25^#

發表於 2016-10-25 13:49 | 顯示全部帖子

回復 39# GBKEE

版大可以放檔案上來嗎
我怎麼輸入程式碼進去都沒有反應
按F5一直跑錯誤耶= = "

TOP

starbox520

中學生 Rank: 2

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

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

26^#

發表於 2016-10-25 15:40 | 顯示全部帖子

回復 41# GBKEE

可以了!!!!G大真是學海無崖....這些東西我找了好幾個禮拜都無從下手....
這個方法我完全沒想到過...
只是ListBox裡的資料前面篩選完後要怎麼把剩下的資料(工作表2)放在後面呢(反百的部分可以只能反白一筆，不要這麼多筆嗎)
因為下面那個ListBox2我要做未加總前的資料(要從WIP去找)可能會用到上面ListBox反白後就可以直接顯示在下面ListBox
工作表2的東西是我從WIP那邊寫過來的
ListBox2的資料要對應ListBox1反白後Customer . Package .BodySize . LC (從WIP去找這4個相同的)
然後呈現"Customer" ."Location" ."Device Type" ."Package". "BodySize". "LC". "QTY" ."T/Y" ."Schedule" . "Oven OutTime"
這算是最終目的了

TOP

starbox520

中學生 Rank: 2

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

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

27^#

發表於 2016-10-26 14:47 | 顯示全部帖子

回復 43# GBKEE

回版大
出現偵錯錯誤...

1. 第一個ListBox應該是列出相近的後，剩餘的資料再以工作表2"數量"大小顯示

2.第二個ListBox呈現方法是，點其中一項，會出現從"WIP"資料裡的抓出紅筆圈選對應相同的資料
ListBox2 會像以下圖示(會抓取WIP資料 10個欄位的資料)

TOP

starbox520

中學生 Rank: 2

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

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

28^#

發表於 2016-10-26 20:50 | 顯示全部帖子

本帖最後由 starbox520 於 2016-10-26 20:51 編輯

回復 45# GBKEE

Option Explicit
Private Sub UserForm_Initialize()
StartupPosition = 0
Top = 0
Left = Windows(1).Width - Width
lstSelector_設定
End Sub
Private Sub lstSelector_設定()
With lstSelector
'**反百的部分可以只能反白一筆，不要這麼多筆嗎
' **取消 .MultiSelect = 1 *** MultiSelect 屬性指定物件是否接受多重選取。
If Not IsEmpty(Sheets("TR排機&產出").Sh_Ar) Then .List = Sheets("TR排機&產出").Sh_Ar
End With
With ListBox1 '**frmSelector中的第二個ListBox 控制項
.ColumnCount = 9
.ColumnWidths = "60,35,75,40,30,60,30,70,30"
End With
End Sub
Private Sub lstSelector_Change()
If lstSelector.ListIndex > -1 Then Ex_WIP
End Sub
Private Sub Ex_WIP()
Dim i As Integer, Ar, A(1 To 4), Ab(), ii As Integer
With Me.lstSelector
For i = 0 To 3
A(i + 1) = .List(.ListIndex, i)
Next
End With
i = 2
With Sheets("WIP")
Do While .Cells(i, 1) <> ""
If .Cells(i, "A") = A(1) And .Cells(i, "E") = A(2) And .Cells(i, "G") = A(3) And .Cells(i, "F") = A(4) Then
If IsEmpty(Ar) Then ReDim Ar(1 To 1) Else ReDim Preserve Ar(1 To UBound(Ar) + 1)
ReDim Ab(1 To 1, 1 To 9)
For ii = 1 To 8
Ab(1, ii) = .Cells(i, ii + 1) ' 8欄資料: B欄- I欄
Next
Ab(1, 9) = .Cells(i, "K") 'K欄
Ar(UBound(Ar)) = Ab
'** Listbox 最多顯示 9列
End If
i = i + 1
Loop
End With
With ListBox1
.Clear
If UBound(Ar) > 1 Then
.List = Application.Transpose(Application.Transpose(Ar))
ElseIf UBound(Ar) = 1 Then
.List = Ar(1)
End If
End With
'***********************************
End Sub
Private Sub CommandButton1_Click()
Dim AA, i As Integer, ii As Integer
With lstSelector
For i = 0 To .ListCount - 1
If .Selected(i) Then
If IsEmpty(AA) Then ReDim AA(1 To 4, 1 To 1) Else ReDim Preserve AA(1 To 4, 1 To UBound(AA, 2) + 1)
For ii = 1 To 4
AA(ii, UBound(AA, 2)) = .List(i, ii - 1)
Next
End If
Next
End With
If IsEmpty(AA) Then
MsgBox "你沒有選取資料"
ElseIf UBound(AA, 2) > 4 Then
MsgBox "你選取超過 4 筆資料"
Else
If MsgBox("共選取 " & UBound(AA, 2) & " 筆資料" & vbLf & "確定輸入", vbYesNo) = vbYes Then
With Sheets("TR排機&產出").Sh_Rng.Offset(1)
.Resize(4, 4) = ""
.Resize(UBound(AA, 2), UBound(AA)) = Application.Transpose(AA)
End With
End If
End If
End Sub