Question

以下VBA代码不起作用：（我认为附加值是合理的数字）

Dim addedvalue As Double
addedvalue = 1
ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 & "+" & CStr(addedvalue)

然而，这个工作正常：

ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 & "+" & 1

不幸的是，我必须将addvalue作为变量。

我也在尝试 ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 & "+" & addedvalue 但它也行不通。

我的错误信息是： enter image description here

更新问题是为什么这不起作用：

Sub added()
Dim rational As Double
rational = 1.1
ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 & "+" & rational
End Sub

Answer 1

对于每个人来说，使用逗号作为小数分隔符，VBEditor有一个小的“功能”。长话短说，请尝试以下方法：

Sub TestMe()

    Dim addedvalue As Double
    addedvalue = 1.2
    ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 & "+" & Replace(addedvalue, ",", ".")

End Sub

这是我的自定义功能，我用于这样的情况（并且它们非常多）：

Public Function fnStrChangeCommas(ByVal myValue As Variant) As String
    fnStrChangeCommas = Replace(CStr(myValue), ",", ".")
End Function

Answer 2

尝试过并且工作正常：

Sub Test()
    Dim addedValue As Integer
    addedValue = 1
    ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 & "+" & addedValue
End Sub

Answer 3

如果您没有使用US-EN版本的Excel，您有两个简单的选择：

在将数字附加到公式或
以您自己的区域设置格式编写公式

answer Vityata提供了如何使用选项1的示例。

选项2看起来像：

Sub added()
    Dim rational As Double
    rational = 1.1
    ActiveCell.FormulaLocal = ActiveCell.FormulaLocal & "+" & rational
End Sub

如何使用VBA将硬编码的浮点数值添加到公式中

3 个答案: