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

¤U©Ô¥i¦³¦¹©_®Ä¥\¯àªº

¦^´_ 1# hong912

¨âÀɮ׸m©ó¦P¤@¸ê®Æ§¨¤º
¤U©Ô¿ï³æ©Ò¦bªº¤u§@ªí¼Ò²Õµ{¦¡½X
  1. Private Sub ComboBox1_Change()
  2. With ComboBox1
  3. i = .ListIndex
  4. If i = -1 Then Exit Sub
  5. ar = Array(Month(Date), Date, .List(i, 1), .List(i, 2), .List(i, 3), .List(i, 4), "", .List(i, 5))
  6. Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 8) = ar
  7. End With
  8. End Sub

  9. Private Sub ComboBox1_DropButtonClick()
  10. Application.ScreenUpdating = False
  11. fs = ThisWorkbook.Path & "\¸ê®Æ®w.xlsx"
  12. With Workbooks.Open(fs)
  13.    With .Sheets("¤u§@ªí1")
  14.       ar = .Range(.[A4], .[A3].End(xlDown).Offset(, 5))
  15.       With ComboBox1
  16.       .ColumnCount = 3
  17.       .List = ar
  18.       .ColumnWidths = "0,30,40"
  19.       End With
  20.     End With
  21. .Close 0
  22. End With
  23. Application.ScreenUpdating = True
  24. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD