搜尋指定的【同欄對應值】的VBA語法。 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 搜尋指定的【同欄對應值】的VBA語法。

返回列表下一主題上一主題發帖

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

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

1^# 跳轉到 »

發表於 2019-9-6 04:55 | 顯示全部帖子

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

最陽春的寫法 :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sStr$
Dim vA
sStr = ""
With Target
If .Address = "$AQ$3" Then
For Each vA In .Parent.[B9:I9]
If vA = [AQ3] Then
If sStr = "" Then
sStr = vA.Offset(-7).Text
Else
sStr = sStr & "," & vA.Offset(-7).Text
End If
End If
Next
[AR3] = sStr
End If
End With
End Sub

複製代碼

(主檔)搜尋指定的同欄對應值的VBA語法 - ans.zip (14.67 KB)

靜思自在 : 閒人無樂趣，忙人無是非。

返回列表下一主題上一主題