在vba中将％符号转换为字符串

Question

我的问题很简单： 我想要做的就是将“％”符号添加到包含数字数据的单元格中。 这是我写的代码：

Private Sub CommandButton21_Click()

 With Range("B11")
    .Select
    .Value = [B11] & ChrW(U + 37)
End With


End Sub

我得到的结果是数值数据除以100并且没有添加％符号。我试图用“％”替换ChrW（U + 37），但它不起作用。 我对vba很新，所以我需要得到所有帮助！

Answer 1

使用Cells(1, 5).NumberFormat = "0.00%"，Range("B11").NumberFormat = "0.00%"或[B11].NumberFormat = "0.00%"更改单元格的格式，而不是尝试将字符添加到数字中。您可能需要将0.00更改为适合您需要的任何其他格式类型。

您提到数据是数字的，如果您在计算中使用它，您可能希望保持这种方式，更改格式应该是您的选择。

Answer 2

使用下面的代码，它经过测试，对我来说很好用：

Sub Button1_Click()
    Sheet1.Cells(11, 2).Value = 200
    Sheet1.Cells(11, 2).NumberFormat = "0.00%"
End Sub

Answer 3

关于你的代码，你可能需要这样的东西：

[h6]= cstr([h6].text & ChrW(U + 37))

但是，它只是添加了H6的符号。