0

私のコードは、あいまいな名前が検出されたことを示すエラーメッセージで正しく機能していません：WOSこれが私のコードです。このコードを機能させるにはどうすればよいですか？

Sub WOS()

Function WOS(BOP, StartPosn As Range)
Set myRange = Range(StartPosn, StartPosn.End(xlToRight))
Dim lupvals()
ReDim lupvals(1 To myRange.Cells.Count)
i = 1
For Each cll In myRange.Cells
lupvals(i) = Application.Sum(Range(StartPosn, cll))
i = i + 1
Next cll
xx = Application.Match(BOP, lupvals)
If IsError(xx) And lupvals(1) >= BOP Then
WOS = BOP / lupvals(1)
Else
If xx = UBound(lupvals) And (BOP - lupvals(xx)) > 0 Then
WOS = "n/a"
Else
WOS = xx + (BOP - lupvals(xx)) / myRange(xx + 1)
End If
End If
End Function
4

1 に答える 1

3

サブWOSと機能を定義しました。それらの1つだけを残します。最初の行をロービングしてみてくださいSubWOS（）

于 2013-03-25T19:31:13.053 に答える