­ã´£³¡ªL

Private Sub ComboBox1_DropButtonClick()
Dim DataBook As Workbook
On Error Resume Next
Set DataBook = Workbooks("¸ê®Æ®w.xlsm")
On Error GoTo 0
If DataBook Is Nothing Then MsgBox "¸ê®Æ®wÀÉ®×¥¼¶}±Ò! ": Exit Sub

With DataBook.Sheets("¤u§@ªí1")
¡@¡@¡@ar = .Range(.[A4], .[A3].End(xlDown).Offset(, 5))
¡@¡@¡@With ComboBox1
¡@¡@¡@¡@¡@¡@.ColumnCount = 3
¡@¡@¡@¡@¡@¡@.List = ar
¡@¡@¡@¡@¡@¡@.ColumnWidths = "0,30,40"
¡@¡@¡@End With
End With
End Sub