2016-06-22 60 views
0

如何在不知道其exactsize的情況下顯示三維數組?如果變量名稱是DataSet。但我不確定高度和長度。在宏中,vba打印出三維數據

msgbox(DataSet) 'type mismatch 
msgbox(DataSet(0,0,0))'subscript out of range 

或給出一般示例。感謝您的幫助,謝謝。

+1

你怎麼想它顯示? 3維數組難以在二維屏幕上顯示,而沒有明確告訴它如何顯示 – Taegost

回答

1

您可以隨時巢For環路這樣的:

For d1 = 0 to Ubound(myArray,1) 
    For d2 = 0 to UBound(myArray,2) 
     For d3 = 0 to UBound(myArray, 3) 
      sValue = sValue & vbNewLine & myArray(d1, d2, d3) 
     Next 
    Next 
Next 
MsgBox sValue 
+1

我想將'0'替換爲'Lbound(myArray,1)','Lbound(myArray,2)','' Lbound(myArray,3)'。 – PaichengWu