GBKEE

¦^´_ 1# dechiuan999

1. Private Sub ComboBox1_Change()
   
2.     Dim mSht As Worksheet, mAr, s$, j%, m%, mStr$, mStr1$
   
3.     Dim mRng  As Range, mRng1 As Range
   
4.     Set mSht = Worksheets("L_Data01")
   
5.     With mSht
   
6.         With ComboBox1
   
7.             .Width = .Width * 0.5
   
8.             .ColumnCount = 1
   
9.             mAr = .List
   
10.             .Value = .List(.ListIndex)
    
11.             mStr = .Value
    
12.         End With
    
13.         Set mRng1 = .Columns("c").Find(what:=mStr, lookat:=xlWhole, searchorder:=xlByRows)
    
14.         If Not mRng1 Is Nothing Then
    
15.             m = mRng1.Row
    
16.         Else
    
17.             MsgBox "½Ð¥ý¿ï¨ú«ü©w©m¦W"
    
18.             Exit Sub
    
19.         End If
    
20.         .Range("IO1").CurrentRegion = ""
    
21.         .Range("a" & m).Resize(6, 8).Copy .Range("IO2")
    
22.         Set mRng = .Range("IO2").CurrentRegion
    
23.         .[A1:H1].Copy .[IO1]
    
24.         With ListBox1
    
25.             .Width = .Width * 1
    
26.             .ColumnCount = 8
    
27.             .ColumnHeads = True
    
28.             .RowSource = mRng.Address(, , , 1, 1)
    
29.             .ColumnHeads = True
    
30.         End With
    
31.     End With
    
32. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# dechiuan999
Excel Vba »¡©ú [ ®M¥Î¦Ü Range ª«¥ó®É¥Î Address ÄÝ©Ê¡C]   ¾Þ§@ »¡©ú¸Ìªº½d¨Ò  ¬Ý¬Ý«Kª¾

GBKEE

¦^´_  oobird   ¦b2003¥H«á¦³«Ø¥ß²M³æ¥\¯à  rowsource¥Î²M³æ¦ì§}§Y¥i
Hsieh µoªí©ó 2010-10-16 08:18

listbox¸ü¤J¤£³sÄò¼Æ¾ÚµLªkÅã¥ÜªíÀY¡A¤@ª½¬O¥Î¤á¤ß¸Ìªºµh¡C¤£ª¾·sª©§ïµ½³o­Ó°ÝÃD¨S¡H
oobird µoªí©ó 2010-10-15 22:41

Hsiehª©¥D ©Ò´£¨Ñªº ¦b2003ª© ¥i¥H°õ¦æ ¥i¬OÁÙ¬O¤£¯à¹F¨ì   oobirdª©¥Dªº [¤£³sÄò¼Æ¾ÚµLªkÅã¥ÜªíÀY ,¤£ª¾·sª©§ïµ½³o­Ó°ÝÃD¨S.]