excel - 过滤掉百分比符号

Question

我使用的是 Excel 2010，并且有一些代码提示用户输入百分比，然后将单元格 A1 中的值增加该百分比。如果有人遵守规则并输入一个整数百分比，那么它就可以正常工作。因此，例如，如果有人希望该值增加 30%，他们会在输入框中键入 30。

如果有人在回复中添加百分号，就会破坏整个事情。我如何修改此代码，以便它捕获百分比符号并仅根据整数进行计算。谢谢。

Sub Box1()
    Dim myPercent As Integer
    myPercent = InputBox("How much of an increase?", "Input without the percent symbol")
    Range("A1").Value = Range("A1").Value * (1 + (myPercent * 0.01))
End Sub

Answer 1

您可以使用Replace函数去掉任何百分号:

myPercent = Replace(InputBox("How much of an increase?", "Input without the percent symbol"), "%", "")

或者您可以使用 Val 函数忽略第一个非数字字符之后的所有内容:

myPercent = Val(InputBox("How much of an increase?", "Input without the percent symbol"))