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

[µo°Ý] VBA¤U©Ô¦¡¿ï³æ(¤w¸Ñ¨M)

¨Ò¦p¡G
Private Sub UserForm_Initialize()
Dim i%
i = Range("A65536").End(xlUp).Row
Me.ComboBox1.List = Sheet1.Range("A1:A" & i).Value
End Sub

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD