返回列表 上一主題 發帖

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

ziv976688

帖子
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儲存格之需求語法，應該如何編寫?
誠請各位大大不吝賜教!謝謝!
收藏 分享

ziv976688

帖子
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儲存格之需求語法，應該如何編寫?

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
3#
發表於 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
複製代碼
(主檔)搜尋指定的同欄對應值的VBA語法 - ans.zip (14.67 KB)

TOP

ziv976688

帖子
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)

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題