½Ð±Ð¤j¤jÌ,
¤U¦¸µ{¦¡¬OÓ¤U©Ô¶Ç¦^¸ê®Æµ{¦¡, µ{¦¡§â¥t¤@Àɮ׸ê®Æ¶Ç¦^, ·íµ{¦¡¹B¦æ¤¤, ·|¦Û¦æ¶}±Ò¥t¤@ÀÉ®×, ¶Ç¦^¸ê®Æ«á, ¸Ó³Q¶}±ÒÀÉ®×·|¦Û¦æÃö»D, ²{®É§Ú§Æ±æ¯à°µ¨ìµ{¦¡¥²¶·©ó¨âÓÀɮצP®É¶}±Ò¤U¤~¯à¹B¦æ. ½Ð¤j¤jÌ«ü¾É, ÁÂ!!
Private Sub ComboBox1_Change()
With ComboBox1
i = .ListIndex
If i = -1 Then Exit Sub
ar = Array(Month(Date), Date, .List(i, 1), .List(i, 2), .List(i, 3), .List(i, 4), "", .List(i, 5))
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 8) = ar
End With
End Sub
Private Sub ComboBox1_DropButtonClick()
Application.ScreenUpdating = False
fs = ThisWorkbook.Path & "\sal¦W¥U.xlsm"
With Workbooks.Open(fs)
With .Sheets("¤Hû¦WºÙ")
ar = .Range(.[A4], .[A3].End(xlDown).Offset(, 5))
With ComboBox1
.ColumnCount = 3
.List = ar
.ColumnWidths = "0,30,40"
End With
End With
.Close 0
End With
Application.ScreenUpdating = True
End Sub |