返回列表 上一主題 發帖

[發問] 搜尋指定的【同欄對應值】的VBA語法。

[發問] 搜尋指定的【同欄對應值】的VBA語法。

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

附件︰ (主檔)搜尋指定的同欄對應值的VBA語法.rar (14.33 KB)

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

請問︰"如上述"AR3儲存格之需求語法,應該如何編寫?
誠請各位大大不吝賜教!謝謝!

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

請問︰"如上述"AR3儲存格之需求語法,應該如何編寫?
修正為~
請問︰"如上述文字敘述"AR3儲存格之需求語法,應該如何編寫?

TOP

請問︰"如上述"的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
複製代碼
(主檔)搜尋指定的同欄對應值的VBA語法 - ans.zip (14.67 KB)

TOP

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

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

附件 : (主檔)搜尋指定的同欄對應值的VBA語法-1.rar (14.94 KB)

TOP

        靜思自在 : 【是否發揮了良能?】人間壽命因為短暫,才更顯得珍貴。難得來一趟人間,應問是否為人間發揮了自己的良能,而不要一味求長壽。
返回列表 上一主題