将%符号转换为vba中的string

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

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

我得到的结果是数值数据除以100,%符号不加。 我试图用“%”代替ChrW(U + 37),但它不起作用。 我很新vba,所以我需要所有的帮助,我可以得到!

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

你提到数据是数字的,如果你在计算中使用它,你可能想保持这种方式,改变格式应该是你的select。

使用下面的代码,它被testing,为我工作正常:

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

关于你的代码,你可能需要这样的东西:

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

但是,它只是增加了H6的符号。