yliu

回復 10# GBKEE


    謝謝GBKEE!

yliu

有兩個ListBox, 一個是單號(ListBox2), 一個是單號明細(ListBox1),都可以複選, 請詳附件 ListBox問題(2).zip (23.22 KB)

下載次數: 8

2013-8-29 23:54

想請問版上高手, ListBox2的程式是否有更好的寫法?
我目前寫法是:
Private Sub ListBox2_Change()
Dim lrow, irow, ai As Integer
Sheets("login").ListBox1.Clear
[A9:E19] = ""
With ListBox2

For lrow = 0 To .ListCount - 1

  If .Selected(lrow) Then
   With Sheets(Sh)
     ai = 2
     Do While .Cells(ai, "A") <> ""
If .Cells(ai, "A") = ListBox2.List(lrow, 0) Then
      With ListBox1
        .AddItem
        irow = .ListCount
       .List(irow - 1, 0) = Sheets(Sh).Cells(ai, "A")
       .List(irow - 1, 1) = Sheets(Sh).Cells(ai, "B")
       .List(irow - 1, 2) = Sheets(Sh).Cells(ai, "C")
       .List(irow - 1, 3) = Sheets(Sh).Cells(ai, "D")
       .List(irow - 1, 4) = Sheets(Sh).Cells(ai, "E")
        End With
     End If
    ai = ai + 1
    Loop
   End With
End If
Next
End With
Application.EnableEvents = True
End Sub

c_c_lai

回復 12# yliu
套用你原本的檔案，並加以稍稍修改，看看是否符合你的需求。
請觀察 ThisWorkbook 與 Sheet1 (login) 間之互動。
P.S.  另額外增加了 Checkbox 的應用，供參考。
ListBox 複製資料轉寫到另一工作表.rar (41.65 KB)

下載次數: 7

2013-8-30 08:47

yliu

回復 13# c_c_lai

不好意思,  我要的是2個ListBox都能複選, 也就是單號的ListBox複選完後(跨單號,不是單一), 其明細都會出現在明細的ListBox, 然後再去勾選要的序號明細.
我的寫法太多層,希望能簡化. 不知是否提供較好的寫法.檔案是昨天貼上的那個檔案. 謝謝~

c_c_lai

回復 14# yliu
你要的是 圈起來的部分，附上的是全部的 (ComboBox、CheckBox、ListBox1、ListBox2)應用。
請參考裡面相關的程式碼：

下載 (52.25 KB)

2013-8-30 12:19

yliu

回復 15# c_c_lai
不好意思, 現在無法上傳圖片, 只能先用文字敘述
我想只要用2個ListBox 完成選項, 太多物件會佔空間,我的做法是:
單號的[List Box2] 可一次勾選單號TW-1301001及TW1301002
明細的[List Box1]就會出現共4筆序號明細TW-1301001 001, TW-1301001 002, TW-1301001 003, TW-1301002 001
只是希望想用別的寫法簡化我的多層迴圈判斷.

c_c_lai

回復 16# yliu
上頭附上的檔案是完全涵蓋你的 ListBox問題(2).zip 的需求，
原本是想讓你自己嘗試從中掘取出來，所以才會上傳圖片告訴你圈出的部分，
它是支很好的範例。想想還是把其它部分(案例)移除，取出你要的需求。

下載 (49.63 KB)

2013-8-30 14:38

ListBoxes 複製資料轉寫到另一工作表.rar (42.64 KB)

下載次數: 4

2013-8-30 14:40

c_c_lai

回復 16# yliu
#17 樓是單選，你也可以改為多選：

1. Private Sub CommandButton1_Click()
   
2.     Dim g As Integer, E As Range, C As Range, 單號 As String, SS As String, Rng As Range
   
3.     Dim i As Integer
   
4.    
   
5.     With Sheets("login")
   
6.         單號 = .ListBox2.Value
   
7.         Set Rng = .[B14:B24]
   
8.         SS = Application.Phonetic(Rng)                               '  結合所有序號
   
9.     End With
   
10.    
    
11.     With Sheets("final").[A:A]
    
12.         If Application.CountIf(.Cells, 單號) > 1 Then
    
13.             .Replace 單號, "=xxx", xlWhole                           '  Replace 方法
    
14.             With .SpecialCells(xlCellTypeFormulas, xlErrors)
    
15.                 .Cells = 單號
    
16.                 For Each C In .Cells                                 '  比對到 序號 踢除 此序號
    
17.                     If InStr(SS, C.Offset(, 1)) Then SS = Replace(SS, C.Offset(, 1), "") ' Replace 函數
    
18.                     If SS = "" Then Exit Sub
    
19.                 Next
    
20.             End With
    
21.         End If
    
22.         
    
23.         For Each E In Rng
    
24.             If E = "" Then Exit For
    
25.             
    
26.             If InStr(SS, E) Then                                      '  比對到 序號
    
27.                 g = Application.CountA(.Cells) + 1                    '  讀取A欗有資料數的儲存格數 +1
    
28.                 i = Application.CountA(Rng)
    
29.                
    
30.                 .Cells(g, "A").Resize(1) = 單號
    
31.                 .Cells(g, "B").Resize(1, 2) = E.Cells(1).Resize(1, 2).Value
    
32.                 .Cells(g, "D").Resize(1, 6) = E.Cells(1, 4).Resize(1, 6).Value
    
33.             End If
    
34.         Next
    
35.     End With
    
36.    
    
37.     With Sheets("login")
    
38.         .ListBox1.Clear
    
39.         .[A14:E24] = ""
    
40.         .ListBox2 = ""
    
41.     End With
    
42. End Sub

複製代碼

增加最後五行 (37 ~ 41)。

1. Private Sub ListBox2_Change()
   
2.     Dim i As Integer, R As Integer
   
3.    
   
4.     '  ListBox1.Clear
   
5.     Sheets("login").[A14:E24] = ""
   
6.       

複製代碼

將 ListBox1.Clear Remark 起來。

c_c_lai

回復  c_c_lai
不好意思, 現在無法上傳圖片, 只能先用文字敘述
我想只要用2個ListBox 完成選項, 太多物件 ...
yliu 發表於 2013-8-30 13:19

下載 (16.62 KB)

2013-8-30 15:23

這便是你要的 (多選)

yliu

回復 19# c_c_lai
抱歉, 依你所提供的,不是我要的複選. 我想應該是我表達的意思不夠清楚,
我要的複選如圖;

下載 (40.45 KB)

2013-9-1 23:13