vba - vba数字格式写具体文字

Question

我在使用 VBA for Excel 方面很新，但是经过一些没有结果的搜索后，我想我需要你的帮助。

我正在尝试格式化一个特定的单元格，这样，如果满足一个条件，它会显示另一个单元格的值，但前面有一个特定的文本，比如“Constantin”。因此，显示的结果将是，例如 Constantin 80.25 。

我正在尝试的代码如下所示：

    If Cells(4, 1) < 0 Then

    With Range("A1")
    .NumberFormat = "'Constantin' 0.00"
    .Value = - Cells(4, 1)

    End With

    End If

我知道语法不正确，这是我的问题，我想我找不到正确的语法。我希望我不会用这个可能很简单的问题来打扰你，但我就是找不到我需要的东西。非常感谢

score 1 · Accepted Answer

看起来你不需要这个词作为实际格式的一部分，在这种情况下，这样的事情就足够了：

If Cells(4, 1).Value < 0 Then
    Range("A1").Value = "Constantin " & (Cells(4, 1).Value * -1)
End If

如果您真的想使用With块，那么：

With Cells(4, 1)
    If .Value < 0 Then
        Range("A1").Value = "Constantin " & (.Value * -1)
    End If
End With

1 回答 1