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

[µo°Ý] ¦p¦ó¨Ï¥Îªí³æ-¤U©Ô¦¡¿ï³æ°µ±ø¥ó¿z¿ïµ²ªG??

[µo°Ý] ¦p¦ó¨Ï¥Îªí³æ-¤U©Ô¦¡¿ï³æ°µ±ø¥ó¿z¿ïµ²ªG??

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2015/5/6 07:12): ½ÐªþÀɬݬÝ

½Ð°Ý¦U¦ì¤j¤j¡A
§Ú²{¦b·Q°µ¤@­Ó¤U©Ô¦¡¿ï³æ¥\¯à(¦³¤T­Ó±ø¥ó¶·¿ï¾Ü)(¦pªþ¥ó¹Ï¤ù)
§Ú»Ý­n±q"±ø¥ó1"¥ý¿ï¾ÜA©ÎB©ÎC
¦A±q"±ø¥ó2"¿ï¾Ü³Ñ¤U²Å¦Xªº±ø¥ó
³Ì«á"±ø¥ó3"¿ï¾Ü³Ñ¤U¥i¿ï¾Üªº±ø¥ó
¤§«á¤~°e¥Xµ²ªG

¦¬¶°¤F¤@­Ó¨ä¾l½Ð¦Û¦æÂX¥R·d©w
  1. Private Sub UserForm_Initialize()
  2.     Dim A As Range
  3.     ComboBox1.Clear
  4.     Set d = CreateObject("Scripting.Dictionary")
  5.     With Sheets("¤u§@ªí1")
  6.         .Activate
  7.         For Each A In .Range("A2", .[A2].End(xlDown))
  8.           d(A.Value) = IIf(d(A.Value) = "", A.Offset(, 2).Value, d(A.Value) & "," & A.Offset(, 2))
  9.         Next
  10.         ComboBox1.List = d.keys
  11.     End With
  12.     ComboBox1.Value = "¿ï¨ú"
  13. End Sub


  14. Private Sub CommandButton1_Click()
  15.     Sheets("¤u§@ªí1").AutoFilterMode = False
  16.     kx = ComboBox1.Value
  17.         With Sheets("¤u§@ªí1")
  18.             If kx <> "¿ï¨ú" And kx <> "" Then .UsedRange.AutoFilter Field:=1, Criteria1:=kx
  19.             Sheets("¤u§@ªí2").Cells.Clear
  20.             .UsedRange.Copy Sheets("¤u§@ªí2").Range("A1")
  21.         End With
  22.         Sheets("¤u§@ªí1").AutoFilterMode = False
  23. End Sub
½Æ»s¥N½X

TOP

µ²ªG½Æ»s¨ì¤u§@ªí2

TOP

¦^´_ 2# koo

ÁÂÁ§Aªº«ü¾É¡A§Ú¦A´ú¸Õ¬Ý¬Ý!!

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD