2016-06-22 43 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