[µo°Ý] ¦p¦óÅýListbox¥i¤@¨ÖÅã¥Ü¤u§@ªíªºªíÀY©O¡H

dechiuan999

¦U¦ì¤j¤j¦n¡G

   ¤p§Ì·Q§Q¥ÎCombobox1_Change¤è¦¡
¿ï¨ú«ü©w©m¦W¨Ã¨ú¥X©m¦W¤@©w½d³ò¤º
ªº¸ê®Æ¡C²{¤w¹F¦¨¨ú¥X¸ê®Æªº°ÝÃD¡C
¦ý¦³¤@°ÝÃD¤´µLªk¬ð¯}¡A´N¬OªíÀY¦p
¦ó¤]¯à¦P®É¤@¨Ö©M¨ú¥X¸ê®ÆÅã¥Ü¦bListbox1¤º©O¡H

Private Sub ComboBox1_Change()
    Dim mSht As Worksheet
    Dim mAr
    Dim s$, j%, m%
    Dim mStr$, mStr1$
    Dim mRng
    Dim mRng1 As Range   
   
    Set mSht = Worksheets("L_Data01")
    With mSht        
        With ComboBox1
            .Width = .Width * 0.5
            .ColumnCount = 1
            mAr = .List
            .Value = .List(.ListIndex)
            mStr = .Value
        End With        
        
        Set mRng1 = .Columns("c").Find(what:=mStr, lookat:=xlWhole, searchorder:=xlByRows)
        If Not mRng1 Is Nothing Then
            m = mRng1.Row
        Else
            MsgBox "½Ð¥ý¿ï¨ú«ü©w©m¦W"
            Exit Sub
        End If        
        mRng = .Range("a" & m).Resize(6, 8)        
        With ListBox1
            .Width = .Width * 1
            .ColumnCount = 8
            .ColumnHeads = True   '¤u§@ªíªº²Ä¤@¦CªíÀYµLªkÅã¥Ü
            .List = mRng
        End With        
    End With      
End Sub

ÁÂÁ¦U¦ì¤j¤j¡C

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.]

Hsieh

¦]¬°²M³æ¬O2003ª©¥»¥H«áªº¥\¯à
±zªº2002À³¸ÓµL¦¹ª«¥ó

oobird

§Úªºexcel«Üµæªº¡K

¤U¸ü (29.21 KB)

2010-10-16 08:22

Hsieh

¦^´_ 5# oobird
¦b2003¥H«á¦³«Ø¥ß²M³æ¥\¯à
rowsource¥Î²M³æ¦ì§}§Y¥i

    ªí³æ¼ÐÃD.rar (9.09 KB)

¤U¸ü¦¸¼Æ: 13

2010-10-16 08:18

       Sample050.rar (17.63 KB)

¤U¸ü¦¸¼Æ: 12

2010-10-16 10:03

dechiuan999

ÁÂÁ¤G¦ìª©¥D¤j¤j¡C

·P®¦¤j¤j¡I

oobird

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

GBKEE

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

dechiuan999

ÁÂÁª©¥D¤j¤j¡C

   ¤p§Ì¤Þ¥Îª©¥D¤j¤jªº»yªk¡A
¤w´ú¸Õ¦¨¥\¡C

   ¦ý¨ä¤¤»yªk¬Ý¤F»¡©ú
¤]¬O¤£±o¨äªù¦Ó¤J¡C

¨ä»yªk¦p¤U¡G

mRng.Address(, , , 1, 1)

¤£ª¾¯à§_½Ðª©¤j¤j¤]¯à¹ï¦¹»y
ªk¸Ô¥[»¡©ú¡A¤é«á¤p§Ì¤]¦³¾÷
·|¯à¥[¥HÀ³¥Î©O¡H

¥t¤p§Ì¤]µy¥[­×¥¿»yªk¡A
¯à»P¦U¦ì¤À¨É¡C

»yªk¦p¤U¡G

  .Range("IO1").CurrentRegion = ""
        .Range("a" & m).Resize(6, 8).Copy .Range("IO2")
         Set mRng = .Range("IO2").CurrentRegion      
        
        .[A1:H1].Copy .[IO1]        
        With Application.Names.Add("tmp", RefersTo:=mRng)
            mStr1 = .RefersTo
            .Delete
        End With
        
        With ListBox1
            .Width = .Width * 1
            .ColumnCount = 8
            .ColumnHeads = True
            '.RowSource = mRng.Address(, , , 1, 1)
            .RowSource = mStr1
            .ColumnHeads = True
        End With

·P®¦ª©¥D¤j¤j¡C

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