Board logo

標題: [發問] 搜尋指定的【同欄對應值】的VBA語法。 [打印本頁]
作者: ziv976688    時間: 2019-9-5 16:39     標題: 搜尋指定的【同欄對應值】的VBA語法。

本帖最後由 ziv976688 於 2019-9-5 16:45 編輯

附件︰[attach]31224[/attach]

需求︰
AR3=
當AQ3=""時，則AR3顯示""；當AQ3<>""時，則將B9:I9=AQ3值的第2列同欄對應值顯示在AR3。
如果有2個(含)以上的對應數，則以","區隔，同時填入AR3

請問︰"如上述"的AR3儲存格之需求語法，應該如何編寫?
誠請各位大大不吝賜教!謝謝!
作者: ziv976688    時間: 2019-9-5 17:54

本帖最後由 ziv976688 於 2019-9-5 17:57 編輯

請問︰"如上述"的AR3儲存格之需求語法，應該如何編寫?
修正為~
請問︰"如上述文字敘述"的AR3儲存格之需求語法，應該如何編寫?
作者: luhpro    時間: 2019-9-6 04:55

請問︰"如上述"的AR3儲存格之需求語法，應該如何編寫?
修正為~
請問︰"如上述文字敘述"的AR3儲存格之需求 ...
ziv976688 發表於 2019-9-5 17:54


最陽春的寫法 :
  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
複製代碼
[attach]31229[/attach]
作者: ziv976688    時間: 2019-9-6 10:11

回復 3# luhpro
不好意思，跑不出來^^"
改成Private Sub CommandButton1_Click()也不行
抱歉!VBA還是初學^^"

如果主檔改成如附件
程式碼應該如何編寫?
誠請賜教!謝謝您!

附件 : [attach]31230[/attach]



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)