如何使用陣列比對交集的程式碼? - Excel程式區

[發問] 如何使用陣列比對交集的程式碼?

1^# 跳轉到 »

發表於 2016-8-3 17:36 | 顯示全部帖子

回復 1# PKKO
就是跑迴圈啊...有啥理由不能跑迴圈
如果會執行很多次這種運算，就包成Function

'二維矩陣做AND
Function MatrixAND2D(matrix1, matrix2)
If LBound(matrix1) <> LBound(matrix2) Or _
UBound(matrix1) <> UBound(matrix2) Or _
LBound(matrix1, 2) <> LBound(matrix2, 2) Or _
UBound(matrix1, 2) <> UBound(matrix2, 2) Then
Err.Raise vbObjectError + 9999, "MatrixAND()", "兩矩陣上下標不同"
End If
Dim arResult, r, c
ReDim arResult(LBound(matrix1) To UBound(matrix1), LBound(matrix1, 2) To UBound(matrix1, 2)) As Boolean
For r = LBound(matrix1) To UBound(matrix1)
For c = LBound(matrix1, 2) To UBound(matrix1, 2)
arResult(r, c) = matrix1(r, c) And matrix2(r, c)
Next
Next
MatrixAND2D = arResult
End Function
Sub test()
Dim a(1 To 2, 1 To 2) As Boolean, b(1 To 2, 1 To 2) As Boolean
Dim c
a(1, 1) = True: a(1, 2) = True: b(1, 1) = True
c = MatrixAND2D(a, b)
[a1].Resize(2, 2) = c
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。