Fatal编程技术网
  • excel/
  • Excel 临时存储向量

Excel 临时存储向量

excel vba

Excel 临时存储向量,excel,vba,Excel,Vba,“A”是工作表中的矩阵。如何计算矩阵中的列数并在N列处创建临时存储向量 Public Function Array_ASolve(A As Variant, y As Range, p As Range, w As Double) As Variant Dim dA() As Double, dy() As Double, dx() As Double, dxx() As Double, dz() As Double, dp() As Double, dv() As Double Dim

“A”是工作表中的矩阵。如何计算矩阵中的列数并在N列处创建临时存储向量

Public Function Array_ASolve(A As Variant, y As Range, p As Range, w As Double) As Variant
  Dim dA() As Double, dy() As Double, dx() As Double, dxx() As Double, dz() As Double, dp() As Double, dv() As Double
  Dim i As Long, j As Long, N As Long
这和我以前的作业很相似

If TypeName(A) = "Range" Then
    N = A.Columns.Count ' Error checking for LU as range goes here (NxN, numerical).
Else
    N = UBound(A) ' Error checking for LU as variant array goes here (NxN, numerical).
End If
您可以创建一个临时存储来执行此操作

ReDim dy(1 To N)
您可以使用
Ubound（A，2）
获得列数，使用
Ubound（A）