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

[µo°Ý] ¦p¦óÅý¦¹µ{¦¡¶]§ÖÂI? (ÁÂÁÂG¤j~§¹¦¨)

[µo°Ý] ¦p¦óÅý¦¹µ{¦¡¶]§ÖÂI? (ÁÂÁÂG¤j~§¹¦¨)

¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-20 16:59 ½s¿è

Fast.rar (36.56 KB)

¥´¶}«á¥²¶·µ¥«Ý¬ù10¬íÄÁ~
¬O§_¦³¿ìªkÅý¥LÁYµu¤@ÂI~

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-7-20 16:36 ½s¿è

¦^´_ 1# av8d
E-HÄæ¨S¸ê®Æ ·|¶]¤@¾ãÄæ ¥[¤W±ø¥ó¤£¥h°õ¦æ
  1. Private Sub UserForm_Initialize()
  2.     Dim d As Object, A
  3.     Set d = CreateObject("Scripting.Dictionary")
  4.     With ActiveSheet
  5.        If .[a2].End(xlDown).Row <> .Rows.Count Then '¥[¤W³o¬q§PÂ_¦³µL¸ê®Æ¸ê
  6.             For Each A In .Range("a2", .[a2].End(xlDown))   
  7.                 d(A.Value) = ""
  8.             Next A
  9.             ComboBox1.List = Application.Transpose(d.keys)          '¦P¼Ëªº¸ê®Æ ¤£­n¶]3¦¸
  10.             ComboBox9.List = Application.Transpose(d.keys)          '¦P¼Ëªº¸ê®Æ ¤£­n¶]3¦¸
  11.            ComboBox10.List = Application.Transpose(d.keys)         '¦P¼Ëªº¸ê®Æ ¤£­n¶]3¦¸
  12.             d.RemoveAll
  13.        End If
  14.        If .[B2].End(xlDown).Row <> .Rows.Count Then
  15.             For Each A In .Range("b2", .[B2].End(xlDown))
  16.                 d(A.Value) = ""
  17.             Next A
  18.             ComboBox2.List = Application.Transpose(d.keys)
  19.             d.RemoveAll
  20.         End If
  21. '
  22. '
  23. '
½Æ»s¥N½X

TOP

¥i¥[¤W¦¹µ{¦¡½X
Application.ScreenUpdating = False
·|¼W¥[³B²z³t«×

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD