ªð¦^¦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 : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD