Question

在函数内部调用Cells（x，y）时，VB将不执行代码。

大家好，我是VBA的新手，正在寻求帮助。我正在编写一个函数来驱动输出。但是，我也想根据一组条件将值分配给不同的行。我在函数内使用Cells（i，2）.value将值分配给不同的行。但是，VBA不会在函数内部执行Cells（i，2）。它只是终止并给出“ #VALUE！”。作为输出。

任何解决此问题的帮助将不胜感激。

谢谢！

Function FindKP(Time, Curr_SP, IAC, Current, KInt, Output)
Dim K As Integer
For K = 1 To 200 Step 1
  For i = 7 To 40005
     If (Time(i) <> Time(i - 1)) Then
       cells(i, 2) = (Curr_SP / IAC - Current(i - 1) / IAC) * K * 0.0005
     Else
       cells(i, 2) = Output(i - 1)
     End If
  Next i
  P = 0
  For i = 7 To 40005
    If (Output(i) > Output(i - 1)) And Output(i) > (Curr_SP / IAC) Then
      Curr_Max = Output(i)
      P = 1
    End If
    If (P = 1) And (Output(i) < Output(i - 1)) Then
      Curr_Min = Output(i)
    End If
  Next
  If (Curr_Max < 1.1 * Curr_SP And Curr_Min > 0.9 * Curr_SP) Then
    FindKP = K
  End If
Next
End Function

使用VBA中的功能驱动多个输出

0 个答案: