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

½Ð±Ð¦p¦ó­×§ïµ{¦¡

½Ð±Ð¦p¦ó­×§ïµ{¦¡

½Ð±Ð¤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

¤j¤j­Ì, ¦­±á
¦p¦ó­×§ïµ{¦¡, ¨S¦³¦^À³
²{§âÀɮפW¶Ç, Àɮצb¥Ó½Ðªí¤U©Ô¤¤¿ï¾Ü«á¶Ç¦^¸ê®Æ, µL¶·¶}±Ò¸ê®Æ®wÀÉ®×, ¤p§Ì²{§Æ±æ¯à¦b¨â­ÓÀɮצP®É¶}±Ò¤U¹B¦æ, ¶Ç¦^¸ê®Æ«á, ¨â­ÓÀɮר̵M¶}µÛ..ÁÂÁÂ!!
¥Ó½Ðªí.rar (22.29 KB) ¸ê®Æ®w.rar (17.36 KB)

TOP

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

TOP

¦^´_ 3# ­ã´£³¡ªL
·PÁ¨ó§U, ¯¬Ä@¨­Åé°·, §Ö¼Ö, ÁÂÁÂ!!

TOP

¦^´_ 2# ©P¤j°¶
¸Õ¸ÕÃø¡I
  1. Private Sub ComboBox1_DropButtonClick()
  2.     Dim DataBook As Workbook, fs As String
  3.    
  4.     Application.ScreenUpdating = False
  5.     On Error Resume Next
  6.     fs = ThisWorkbook.Path & "\¸ê®Æ®w.xlsm"
  7.     Set DataBook = Workbooks(fs)
  8.    
  9.     On Error GoTo 0
  10.     If DataBook Is Nothing Then
  11.         Set DataBook = Workbooks.Open(fs)
  12.     End If
  13.    
  14.     With DataBook.Sheets("¤u§@ªí1")
  15.         ar = .Range(.[A4], .[A3].End(xlDown).Offset(, 5))
  16.         With ComboBox1
  17.             .ColumnCount = 3
  18.             .List = ar
  19.             .ColumnWidths = "0,30,40"
  20.         End With
  21.     End With
  22.    
  23.     DataBook.Close 0
  24.     Application.ScreenUpdating = True
  25. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# ©P¤j°¶
  1. Private Sub ComboBox1_DropButtonClick()
  2.     Dim DataBook As Workbook, fs As String
  3.    
  4.     Application.ScreenUpdating = False
  5.     On Error Resume Next
  6.     fs = ThisWorkbook.Path & "\¸ê®Æ®w.xlsm"
  7.     Set DataBook = Workbooks(fs)
  8.    
  9.     On Error GoTo 0
  10.     If DataBook Is Nothing Then
  11.         Set DataBook = Workbooks.Open(fs)
  12.     End If
  13.    
  14.     With DataBook
  15.         With Sheets("¤u§@ªí1")
  16.             ar = .Range(.[A4], .[A3].End(xlDown).Offset(, 5))
  17.             With ComboBox1
  18.                 .ColumnCount = 3
  19.                 .List = ar
  20.                 .ColumnWidths = "0,30,40"
  21.             End With
  22.         End With
  23.    
  24.         .Close 0
  25.     End With
  26.     Application.ScreenUpdating = True
  27. End Sub
½Æ»s¥N½X
µy¥[¾ã²zª©¡C

TOP

¦^´_ 6# c_c_lai
°J¤ß·PÁ¤j¤j¦^À³¡A¯¬Ä@¨­Åé°·±d¡A§Ö¼Ö¡AÁÂÁ¡C

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD