Hsieh

¦^´_ 1# alsr


    ­n¨ú±oªí³æ±±¨î¶µªº­È
¨Ò¦p¤U©Ô¿ï³æ1¡A³]©w¿é¤J½d³òA2:A4
With Shapes("Drop Down 1").OLEFormat.Object 'Ãö©ó¤U©Ô¿ï³æ1ªºOLEª«¥ó
  MyText= Range(.ListFillRange)(.Value) '¨ú±o¿ï¾Üªº¤å¦r
End With

Hsieh

¦^´_ 3# alsr

­º¥ý½T©w§Aªº¤U©Ô¿ï³æ¬Oªí³æ±±¨î¶µ©Î¬Oactive X±±¨î¶µ¡H
½Ð¤W¶ÇÀÉ®×¥H«K¾é¸Ñ

Hsieh

¦^´_ 5# alsr

§Ú·Q§A¬O§Æ±æÂI¿ï¤U©Ô²M³æ«á´N¯à°õ¦æÅÜ´«¸ê®Æ¨Ó·½
±Nµ{§Ç¼g¦b¤@¯ë¼Ò²Õ

1. Public Sub chart_change()
   
2. With ActiveChart
   
3.    With .Shapes("Drop Down 1").OLEFormat.Object 'Ãö©ó¤U©Ô¿ï³æ1ªºOLEª«¥ó
   
4.    mytext = Range(.ListFillRange)(.Value) '¨ú±o¿ï¾Üªº¤å¦r
   
5.    End With
   
6.   With .Shapes("Drop Down 2").OLEFormat.Object 'Ãö©ó¤U©Ô¿ï³æ1ªºOLEª«¥ó
   
7.   mytext2 = Range(.ListFillRange)(.Value) '¨ú±o¿ï¾Üªº¤å¦r
   
8.   End With
   
9. .SetSourceData Source:=Sheets(mytext).Range("A:A").Find(mytext2, lookat:=xlWhole).Resize(, 17)
   
10. End With
    
11. End Sub

½Æ»s¥N½X

±N¨â­Ó¤U©Ô²M³æ³£«ü©w¥¨¶°±Ò°Ê¸Óµ{§Ç

¤U¸ü (181.67 KB)

2014-4-30 23:20