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

[µo°Ý] ·j´M«ü©wªº¡i¦PÄæ¹ïÀ³­È¡jªºVBA»yªk¡C

½Ð°Ý¡J"¦p¤W­z"ªºAR3Àx¦s®æ¤§»Ý¨D»yªk¡AÀ³¸Ó¦p¦ó½s¼g?
­×¥¿¬°~
½Ð°Ý¡J"¦p¤W­z¤å¦r±Ô­z"ªºAR3Àx¦s®æ¤§»Ý¨D ...
ziv976688 µoªí©ó 2019-9-5 17:54


³Ì¶§¬Kªº¼gªk :
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   Dim sStr$
  3.   Dim vA
  4.   
  5.   sStr = ""
  6.   With Target
  7.     If .Address = "$AQ$3" Then
  8.       For Each vA In .Parent.[B9:I9]
  9.         If vA = [AQ3] Then
  10.           If sStr = "" Then
  11.             sStr = vA.Offset(-7).Text
  12.           Else
  13.             sStr = sStr & "," & vA.Offset(-7).Text
  14.           End If
  15.         End If
  16.       Next
  17.       [AR3] = sStr
  18.     End If
  19.   End With
  20. End Sub
½Æ»s¥N½X
(¥DÀÉ)·j´M«ü©wªº¦PÄæ¹ïÀ³­ÈªºVBA»yªk - ans.zip (14.67 KB)

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD