2

我正在编写一个应该计算简单基础的代码，为了做到这一点，我必须用我的函数返回 2 个值 - 最好在两个不同的列中。

Function FundacaoSimples(b, l, carga) As Variant

tensao = Sheets("Tabelas e Constantes").Range("tensao").Value

Dim area As Double
Dim Bs As Single
Dim Ls As Single
Dim Resultado(1 To 2) As String

If b = l Then
    area = (1.1 * carga) / tensao
    Bs = Sqr(area)
    Ls = Bs
ElseIf b <> l Then
    area = (1.1 * carga) / tensao
    Bs = Sqr((2 * area) / 3)
    Ls = (3 * Bs) / 2
End If

Resultado(1) = Round(Bs, 2)
Resultado(2) = Round(Ls, 2)

FundacaoSimples = (Resultado(1) & " / " & Resultado(2))

End Function

这个舍入我使用它只是为了得到一个用 2 位小数舍入的值，例如：2,73 到 2,75；0,89 至 0,90。我尝试使用ActiveCells.Offset(0,1)，但该声明无效。是否可以只向右跳一列？

4

2 回答 2

2

但是，您可以使用ActiveCell.Offset(0, 1).value = SomeValue- 那是在编写常规Sub. 您正在编写一个函数/用户定义的函数。

在 UDF 中，不可能更改不同的单元格。

但是，一种解决方法是使用 UDF，当它输入到单元格中时，您可以使用该Worksheet_Change事件来更改该事件参数旁边的单元格Target。

编辑： 一些示例代码：

在常规模块中：

Public Function MyUDF(param1 as integer, param2 as integer) as Integer
    MyUDF = param1 + param2
End Function

在您想要偏移的工作表中：

Private Sub Worksheet_Change(Byval Target as Range)
    If Left(Target.Formula, 6) = "=MyUDF" Then
        Target.Offset(0, 1).value = "somevalue at the offset cells"
    End If
End Sub
于 2017-07-04T14:12:29.687 回答
0

通常，函数不应写入值或访问电子表格中的值。他们应该访问他们的参数并返回结果。像这样尝试，您需要的过度简化版本：

Option Explicit

Public Sub TestMe()

    ActiveCell = FundacaoSimples(0)
    ActiveCell.Offset(0, 1) = FundacaoSimples(1)

End Sub

Function FundacaoSimples() As Variant

    ReDim varResult(1)

    varResult(0) = 55
    varResult(1) = 100

    FundacaoSimples = varResult

End Function

然后您可以使用自己的参数稍微编辑该函数并进一步使用它。

于 2017-07-04T14:16:15.210 回答