我有一个具有以下值的数组(AlphaVector):
-0.2
-0.7
0
0.4
0.3
0.1
我想从上面的数组中选择正值并将其放在另一个名为 Alpha 的数组中,以便我可以从 Alpha 中选择最小正值。我的目标是从上面的数组中获取值 0.1。这是我到目前为止的代码。Alpha 填充正常,因为 Msgbox 指示正确的值,但我得到的返回值是 0 而不是 0.1。
Function FindMin(AlphaVector)
Dim iCount As Long
Dim N As Integer, i As Integer
N = AlphaVector.Cells.Count
Dim Alpha() As Double
ReDim Alpha(N) As Double
For i = 1 To N
If AlphaVector(i) > 0 Then
Alpha(i) = AlphaVector(i)
Else
Alpha(i) = 100000000000#
End If
MsgBox ("Alpha(i)= " & Alpha(i))
MsgBox ("AlphaVector(i)= " & AlphaVector(i))
Next i
FindMin = WorksheetFunction.Min(Alpha)
End Function
你能告诉我如何解决它吗?另外,如果有更有效的编写方法,也许没有引入 Alpha,请告诉我。谢谢。
您对数组Alpha
使用了错误的索引。它是从零开始的,并且由于您使用填充它 i
,从 1 开始,您将Alpha(0)
保留为默认值,即 0。
WorksheetFunction.Min(Alpha)
返回最小值,您现在知道该值将始终为 0。
您需要重新设计函数来处理此问题。示例将很快出现。
编辑 - 代码示例 - 更新为作为 UDF 工作
我在看到您的注释之前完成了此示例,因此在我的代码中AlphaVector
是一个数组。无论如何,最好显式声明任何变量,如果可以的话,避免使用Variant
类型,如果不声明变量,则使用该类型。这就是我使用Option Explicit
的原因。你也应该。:-)
可能有很多方法可以做你想做的事情,但这是其中之一:
Option Explicit
Function FindMin(AlphaVector)
Dim iNew As Integer, i As Integer
Dim iCount As Integer
Dim Alpha() As Variant
iCount = AlphaVector.Cells.Count
'***** Use size of AlphaVector
ReDim Alpha(0 To iCount - 1)
iNew = 0
For i = 1 To iCount
'***** Only save values greater than 0
If AlphaVector(i) > 0 Then
Alpha(iNew) = AlphaVector(i)
'***** Keep track of how many values you save
iNew = iNew + 1
End If
Next i
'***** Remove any empty items in the Alpha array
ReDim Preserve Alpha(0 To iNew - 1)
'***** Reture result of the Min function
FindMin = WorksheetFunction.Min(Alpha)
End Function
供参考,您可以使用数组函数在Excel中的单个单元格中执行此操作。如果您的示例数字为 A1:A6,请使用
=MIN(IF(A1:A6<=0,"",A1:A6))
但请确保使用 Ctrl-Shift-Enter
输入它以使其成为数组公式。不需要 VBA。
这里的问题是你如何设置Alpha
变量数组的维度。在您的代码中,我假设您的模块没有声明Option Base 1
。因此,Alpha
具有Alpha(0 to 6)
维度,并且由于它是一个Double
数组,因此第一个零元素默认为 0。简单的更改是将代码更改为:
ReDim Alpha(1 to N) As Double
更改为以下内容,更简洁一些:
Function FindMinUpdated(AlphaVector As Range)
Dim cell As Range
Dim lowValCell As Double
lowValCell = Abs(AlphaVector(1))
For Each cell In AlphaVector
lowValCell = IIf(cell < lowValCell And cell > 0, cell, lowValCell)
Next cell
查找最小更新 = 低ValCell
结束功能