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

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

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

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2019-9-5 16:39 | 只看該作者

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

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

附件︰

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

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

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

樓主熱帖

收藏

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

4^#

發表於 2019-9-6 10:11 | 只看該作者

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

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

附件 :

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

高中生 Rank: 3 Rank: 3

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

3^#

發表於 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)

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

2^#

發表於 2019-9-5 17:54 | 只看該作者

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

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

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

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