如何在match中引用2維陣列 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何在match中引用2維陣列

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

[發問] 如何在match中引用2維陣列

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2015-12-8 08:54 | 顯示全部帖子

回復 5# yen956
我將准提部林版大的自訂函數稍稍修改了一些，
你用 [F8] 去 Debug 一次，便會全盤明瞭了。
我將結果改寫到 K 欄，以便你進行比對寫入值。

' 自訂函數，彈性較好些： By 准提部林
' Ｊ４．公式：=get_wl(B$3:E$11,H4,I4)
Function GET_WL(xA As Variant, Va As Range, Vb As Range) As String
Dim Arr, AA, j&, Jm%, T$
Arr = xA
For j = 1 To UBound(Arr)
If Arr(j, 2) <> "" Then
Jm = 0: AA = Split(Arr(j, 2) & "~", "~")
If Va > Val(AA(0)) And Va <= Val(AA(1)) Then T = Arr(j, 1): Jm = 1
End If
If Jm = 1 Then
AA = Split(Arr(j, 4) & "~", "~")
If Vb > Val(AA(0)) And Vb <= Val(AA(1)) Then GET_WL = T & "_" & Arr(j, 3): Exit For
End If
Next j
End Function
Sub Ex()
Dim cts As Integer
For cts = 0 To 5
[K4].Offset(cts) = GET_WL(Range("B$3:E$11"), [H4].Offset(cts), [I4].Offset(cts))
Next cts
End Sub

複製代碼

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2015-12-8 10:21 | 顯示全部帖子

本帖最後由 c_c_lai 於 2015-12-8 10:24 編輯

回復 3# 准提部林
請教版大，
請問我在K11欄內輸入  =get_wl(B$3:E$11,H4,I4)
為何會出現 #REF! 字樣？
自訂函數在 Excel 要如何設定其定義讓它能被引用？
P.S. 真不好意思我對 Excel  如何使用內在函數，以及
   自訂函數 (Function) 如何在欄內應用方面所知有限。
謝謝您指教！

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2015-12-8 13:13 | 顯示全部帖子

本帖最後由 c_c_lai 於 2015-12-8 13:21 編輯

回復 9# 准提部林
謝謝您回覆，我使用您#3樓的程式
測的手都軟了，還是一樣 (無論是在任何欄位，包含J4)
依然是 #REF!。甚至寫了兩支測試程式，都 PASS：

Function AddCol(h, i) As String
AddCol = h + i
End Function
Function AddCol2(w, h, i) As String ' 故意帶入 w 參數
AddCol2 = h + i
End Function

複製代碼

唯獨 =get_wl(B$3:E$11,H4,J4) 不行：

問題應該出在程式碼內部無法參照到 B$3:E$11，
但用 VBA 檢測也找不出問題點。

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2015-12-8 13:53 | 顯示全部帖子

回復 11# 准提部林
能否幫我檢查看看，到底差異性在哪裡？
謝謝您！

多條件判斷編製名稱1206_v0.rar (15.5 KB)

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2015-12-8 14:33 | 顯示全部帖子

回復 13# 准提部林
終於問題解決了，剛剛重新從#1下載
便直接做結果 OK了，再回到原先有問題的先前
問題檔案，怎麼做怎麼錯，極有可能那支檔案
裡有潛在問題，不管它了！
謝謝您耐心地回覆，再次謝謝！

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2015-12-8 14:55 | 顯示全部帖子

本帖最後由 c_c_lai 於 2015-12-8 14:59 編輯

回復 15# 准提部林
觀察前後檔案存檔後之的 Icon 顯示：

您提及的狀況也極有可能，謝謝您！

靜思自在 : 世上有兩件事不能等：一、孝順二、行善。

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