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

[µo°Ý] ¦p¦ó¿é¤J½s¸¹±a¥X¬ÛÃö¸ê®ÆNµ§!?

[µo°Ý] ¦p¦ó¿é¤J½s¸¹±a¥X¬ÛÃö¸ê®ÆNµ§!?


§Ú¬O·Q¦bTextBox¿é¤J²£«~½s¸¹ ±a¥X¥þ©Ò²£«~¦WºÙ¤Î¼Æ¶q(Nµ§)
À£ÁYÀɤ¤¦³¤@­Ó´ú¸ÕÀɬO§Ú¦Û¤w¸ÕµÛ¥h°µ¦ý¤@ª½¦³°ÝÃD¶]¤£¥X§Ú­nªºµ²ªG!?
1. ½Ð±Ð¤j®a°ÝÃD¬O¥X¦b­þ¸Ì!?
2. ¦³¨S¦³§ó¦nªº¤èªk°µ¥X§Ú·Q­nªºµ²ªG
±K½X013160
¿é¤JA±a¥XNµ§¸ê®Æ.rar (312.97 KB)

B2 =INDEX('NEW¼t+®w¦s'!D:D,MATCH($A$2,'NEW¼t+®w¦s'!$C:$C,)+ROW(A1)-1)
¥k©Ô¤U©Ô
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 1# 013160
  1. Private Sub TextBox1_Change()
  2. Dim Ar()
  3. With Sheets("NEW¼t+®w¦s")
  4.   For Each a In .Range(.[C5], .[C5].End(xlDown))
  5.      If a = TextBox1 Then
  6.         ReDim Preserve Ar(s)
  7.         Ar(s) = Array(a.Offset(, 1).Value, a.Offset(, 2).Value)
  8.         s = s + 1
  9.      End If
  10.    Next
  11.    Range([B2], [C2].End(xlDown)).ClearContents
  12.    [B2].Resize(s, 2) = Application.Transpose(Application.Transpose(Ar))
  13. End With
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD