ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¦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

Sample050.rar (15.76 KB)

¦^´_ 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

TOP

ÁÂÁª©¥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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-10-15 21:14 ½s¿è

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

TOP

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

TOP

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

·P®¦¤j¤j¡I

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-10-16 10:03 ½s¿è

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

    ªí³æ¼ÐÃD.rar (9.09 KB)
       Sample050.rar (17.63 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

§Úªºexcel«Üµæªº¡K
2010-10-16_082045.jpg
2010-10-16 08:22

TOP

¦]¬°²M³æ¬O2003ª©¥»¥H«áªº¥\¯à
±zªº2002À³¸ÓµL¦¹ª«¥ó
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-10-16 10:06 ½s¿è
¦^´_  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.]

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD