c_c_lai

¦^´_ 20# yliu
¦pªG©p±N MultiSelect:  - fmMultiSelectSingle §ï¦¨  fmMultiSelectMulti
¦p¦¹ ListBox2 ¹ïÀ³¤§ ListBox2_Change() «h±NµL¥ô¦ó§@¥Î¡A
¬O¬G§A¥²¶·¨Ï¥Î¥t¥~ªº¤è¦¡¨Ó³B²z©pªº¤Ä¿ï¶µ¡A¤Ï¤§¡B
¦b¨C¦¸¤Ä¿ï®É³£·|IJ°Ê  ListBox2_Change() ¡C

GBKEE

¦^´_ 12# yliu

1. Private Sub ListBox2_Change()
   
2.     Dim lrow, irow, ai As Integer, AR, S As String
   
3.     With ListBox1
   
4.         AR = .List  '.List-> ( 0 TO .ListCount - 1, 0 TO  9)   ListBoxªºColumnCount ÄÝ©Ê ³Ì¦h¥u¯à¦³ 10 ¦æ (0 ¨ì 9)¡C
   
5.                     '³oListBox1¥u¦³4¦æ¸ê®Æ,«á­±ªº5¦æ-9¦æ = Null,¨Ï¥ÎIndex ¨ç¼Æ·|¿ù»~
   
6.         If .ListCount > 0 Then ReDim Preserve AR(0 To .ListCount - 1, 0 To .ColumnCount - 1)   '®ø°£ «á­±ªº5¦æ-9¦æªº Null
   
7.         For lrow = 0 To .ListCount - 1
   
8.             If .Selected(lrow) Then
   
9.                 S = S & Join(Application.Index(AR, lrow + IIf(UBound(AR) = 0, 0, 1)), "")       '¬ö¿ý¤w¤Ä¿ïªº¸ê®Æ
   
10.             End If
    
11.         Next
    
12.         .Clear
    
13.     End With
    
14.     [A9:E19] = ""
    
15.     With ListBox2
    
16.         For lrow = 0 To .ListCount - 1
    
17.             If .Selected(lrow) Then
    
18.                 With Sheets(Sh)
    
19.                     ai = 2
    
20.                     Do While .Cells(ai, "A") <> ""
    
21.                         If .Cells(ai, "A") = ListBox2.List(lrow, 0) Then
    
22.                             With ListBox1
    
23.                                 .AddItem
    
24.                                 irow = .ListCount
    
25.                                 .List(irow - 1, 0) = Sheets(Sh).Cells(ai, "A")
    
26.                                 .List(irow - 1, 1) = Sheets(Sh).Cells(ai, "B")
    
27.                                 .List(irow - 1, 2) = Sheets(Sh).Cells(ai, "C")
    
28.                                 .List(irow - 1, 3) = Sheets(Sh).Cells(ai, "D")
    
29.                                 .List(irow - 1, 4) = Sheets(Sh).Cells(ai, "E")
    
30.                                 If InStr(S, Application.Phonetic(Sheets(Sh).Cells(ai, "A").Resize(, 5))) Then '¤ñ¹ï: ¬ö¿ý¤w¤Ä¿ïªº¸ê®Æ
    
31.                                     .Selected(.ListCount - 1) = True
    
32.                                 End If
    
33.                             End With
    
34.                         End If
    
35.                         ai = ai + 1
    
36.                     Loop
    
37.                 End With
    
38.             End If
    
39.         Next
    
40.     End With
    
41. End Sub

½Æ»s¥N½X

yliu

¦^´_ 22# GBKEE
GBKEEª©¤j,
¥X²{«¬ºA¤£²Åªº¿ù»~°T®§, ¦bAR = .List '.List-> ( 0 TO .ListCount - 1, 0 TO  9)   ListBoxªºColumnCount ÄÝ©Ê ³Ì¦h¥u¯à¦³ 10 ¦æ (0 ¨ì 9)¡C

GBKEE

¦^´_ 23# yliu
½Ð­×§ï¦p¤U
Dim lrow, irow, ai As Integer, AR(), S As String -> Dim  AR
If UBound(AR) > -1 Then ReDim    ->  If .ListCount > 0 Then ReDim

yliu

¦^´_ 24# GBKEE
·PÁÂGBKEE, §ïµ½­ìµ{¦¡½Xªº¯ÊÂI. ÁÂÁ§AªºÀ°¦£.