¦p¤W¹Ï©Ò¥Ü¡A§Ú¤w±N¨âÄæ¸ê®Æ©ñ¤J(¤U©Ô¦¡¿ï³æ)¤º
¦ý¿ï¾Ü©Òn¸ê®Æ«á«o¦p¤U¹Ï¡A¥u¦³²Ä¤@Äæ¸ê®Æ¡A¥i§_¨âÄæ¦P®ÉÅã¥Ü
With ¿é¤Jªí³æ.¤u¦a¿ï³æ
.Clear
.ColumnCount = 2
.ColumnWidths = "1.5cm;3cm"
For IA = 11 To Sheets("TEMP").Range("R9").Value
.AddItem
.List(IA - 11, 0) = Sheets("TEMP").Range("R" & IA).Value
.List(IA - 11, 1) = Sheets("TEMP").Range("S" & IA).Value
Next IA
End With |