将 VBA 数组打印到 Excel 单元格

Question

我正在尝试将 VBA 创建的数组打印到 Excel 电子表格的单元格中。渗透和径流值不断出现“下标超出范围”错误我是否正确创建软管阵列？我已经将计算和打印子功能合二为一了。

 NumMonth = 12
 Dim col As Long
 Dim rw As Long
 rw = 4
 col = 13

 Range(Cells(rw, col), Cells(rw + NumMonth - 1, col)).Value = _
    Application.Transpose(WC)

Range(Cells(rw, col + 1), Cells(rw + NumMonth - 1, col + 1)).Value = _
    Application.Transpose(Runoff)

   Range(Cells(rw, col + 2), Cells(rw + NumMonth - 1, col + 2)).Value = _
     Application.Transpose(Percolation)
   End Sub

Answer 1

它的application.transpose而不是worksheetfunction

  Range(Cells(rw, col), Cells(rw + NumMonth - 1, col)).Value = _
      application.Transpose(WC)

这是一个测试子

Sub test()
Dim myarray As Variant

'this is a 1 row 5 column Array
myarray = Array(1, 2, 3, 4, 5)

'This will fail because the source and destination are different shapes
Range("A1:A5").Value = myarray


'If you want to enter that array into a 1 column 5 row range like A1:A5

Range("A1:A5").Value = Application.Transpose(myarray)
End Sub

如果你调用你在另一个 sub 中创建的数组，你会得到一个错误。当您单步执行代码时，可以在本地窗口中看到其原因。当您运行创建数组的子程序时，它将显示在本地，当子程序结束时它将消失，这意味着它不再存储在内存中。要从另一个 sub 引用变量或数组，您必须传递它。

传递数组或变量可以通过不同的方式完成这里有几个链接 Here And Here

Answer 2

你的Precip 和RefET 总是相等的，这是不是这样？

Precip(i) = Cells(4 + i, 2).Value
RefET(i)  = Cells(4 + i, 2).Value

---

此外，当您设置 Runoff 和 Percolation 数组时，如果您的 if 语句不满足（如下），它们不会被设置为任何内容，我可以通过提供的数据来满足它：

If (fc - WC(j - 1) + RefET(i) * dz < Precip(i) * dz) then

我会添加一些东西来确保它们总是有价值：

If (fc - WC(j - 1) + RefET(i) * dz < Precip(i) * dz) Then
    Runoff(i) = (Precip(i) - (fc - WC(j - 1) + RefET(i)) * dz) * 0.5
    Percolation(i) = (Precip(i) - (fc - WC(i - 1) + RefET(i)) * dz) * 0.5
    WC(j) = fc
Else
    Runoff(i) = 0
    Percolation(i) = 0
    WC(j) = WC(j - 1) + Precip(i) - RefET(i) / dz
End If

---

执行此操作后，我发现您没有 ReDim'd Runoff 和 Percolation 变量。 您需要将以下内容添加到您的 WaterBalanceRead 子中。

ReDim Runoff(1 To NumMonth + 1)
ReDim Percolation(1 To NumMonth + 1)