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

vba ¤U©Ô²M³æ¤º®eªº½d³ò ÀH®É·|Åܧó ¦p¦ó§ï¼g¦Û°Ê§ì¨ì¥þ³¡

¦^´_ 1# user999
  1. Sub ¨î­q²M³æªº¤º®e()
  2.     '¤U©Ô²M³æ¬OÄÝShapeª«¥ó
  3.     With Sheets("SHEET1")  '¦p¤U©Ô²M³æ¬OShapesªº²Ä¤@­ÓItem
  4.          Ad = .Range(.[A1], .[A1].End(xlDown)).Address
  5.         .Shapes(1).ControlFormat.ListFillRange = Ad      '¤u§@ªí½d³òªº©w¸q¦WºÙ ¤]¥i¥H
  6.     End With
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD