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

¤p§Ì¨C¦¸¶}±Ò¤U¦CÀÉ®×®É, Á`¬O·|¼u¥X¹Ï¤ù¤¤®Ø¬[,

¤p§Ì¨C¦¸¶}±Ò¤U¦CÀÉ®×®É, Á`¬O·|¼u¥X¹Ï¤ù¤¤®Ø¬[,

½Ð±Ð¦U«e½ú, ¦n
¤p§Ì¨C¦¸¶}±Ò¤U¦CÀÉ®×®É, Á`¬O·|¼u¥X¹Ï¤ù¤¤®Ø¬[,
¸ê®Æ¤w³Q­×§ï, §A¬O§_Àx¦sÀÉ®×, ¦Ó§Ú¥²¶·«öÀx¦s©Î¨ú®ø, ®Ø¬[¤~¨ú®ø, ¤u§@ªí¤~¥i¨Ï¥Î,  ­ì¦]¨ì©³¬O¤°»ò, ¯u¥O§Ú¦Ê«ä¤£¸Ñ, §Æ±æ«e½ú­Ì¯à¸Ñ§ÚºÃ°Ý,ÁÂÁÂ, ,
hong912

«e½ú­Ì, ¦w¦n
¤W­zµo°Ý¤§°ÝÃD¨Ã¨S¦³¦^À³, ¬Û«H¬O¥»¤H¸ê®Æ¤£¨¬©Ò­P, ²{¾ã²z¦nÀɮפW¶Ç, ±æ¯à±o¨ì¦^À³,
½Ð¥ý¦æ¶}±Ò¤J³f³æÀÉ, ¦¹®É¤¶­±«K¼u¥X¤W­z¤p§Ì´£°Ý¤§®Ø¬[, ­ì¦]¬°¦ó..
ÁÂÁÂÁÂ!
aa.rar (99.55 KB)
hong912

TOP

¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-6-16 21:18 ½s¿è

¦^´_ 2# hong912
  1. Private Sub Workbook_Open()
  2.     Dim Ar(), S%
  3.     With GetObject(ThisWorkbook.Path & "\sal­Ü®w¸ê®Æ.xlsm")  '¸ô®|
  4.     With .Sheets(1)
  5.         Ar = .Range(.[B3], .[B4].End(xlDown).Offset(, 2)).Value
  6.     End With
  7.         .Close True '³o¸ÌTrue¬OÀx¦sFalse¬O¤£Àx¦s¡Aµ¹§A°Ñ¦Ò
  8.     End With
  9.     With Sheet1.ComboBox1
  10.     .ColumnWidths = "70,160"
  11.     .TextColumn = 2
  12.     .ColumnCount = 3
  13.     .List = Ar
  14.     End With
  15. End Sub
½Æ»s¥N½X
¸ê®Æ.rar (94.88 KB)

TOP

¦^´_ 3# lpk187
·PÁ«e½ú,
¨ü±Ð¤F, ²×¸Ñ§ÚºÃ°Ý,
ÁÂÁÂ!!
hong912

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD