Question

当我使用PercentRank功能时，消息框会在＆＃34; 0.00＆＃34;中显示数字。数字格式。有什么方法可以改变吗？最好是以＆＃34; 00％＆＃34;

x = WorksheetFunction.PercentRank(relevant_Array, answer, 2)
            If x > 0.7 Then MsgBox "WARNING: Price is more than 20% above the average price:  " & x
            If x < 0.3 Then MsgBox "WARNING: Price is more than 20% below the average price:  " & x
            If x > 0.3 And x < 0.7 Then MsgBox "Carry on: your price seems to be accurate: " & x

Answer 1

你有没有试过VBA＆＃39; Format function？

 If x > 0.7 Then MsgBox "WARNING: Price is more than 20% above the average price:  " & Format(x, "00%")

Answer 2

你也可以试试这个......

 If x > 0.7 Then MsgBox "WARNING: Price is more than 20% above the average price:  " & Round(x*100,0) & ''%''

更改PercentRank函数输出的数字格式

2 个答案: