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

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

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

¨ä¤¤  ¤U©Ô²M³æ¤º®eªº½d³ò
¬OÀH®É·|Åܧó ¦p¤@¤Ua1:a9 ¤U a1-a20
­n¦p¦ó§ï¼g¦Û°Ê§ì¨ì¥þ³¡


Sub ¨î­q²M³æªº¤º®e()
    '¤U©Ô²M³æ¬OÄÝShapeª«¥ó
    With Sheets("SHEET1").Shapes(1)  '¦p¤U©Ô²M³æ¬OShapesªº²Ä¤@­ÓItem
        '.ControlFormat.ListFillRange = "SHEET1!A1:A9"  '¤U©Ô²M³æ¤º®eªº½d³ò
        .ControlFormat.ListFillRange = "TEST"      '¤u§@ªí½d³òªº©w¸q¦WºÙ ¤]¥i¥H
    End With
End Sub
max

¦^´_ 2# GBKEE


    ¨ü¯q¨}¦h·PÁ±zªºÀ°§U
max

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD