公共函数，根据单元格值自动创建字符串输出.VBA

Question

我正在尝试创建一个基于百分比单元格引用的字符串输出的vba函数，该引用将读取"增加"如果为正数或"减少"如果是负数，则"无变化";如果零。

任何帮助将是伟大的!

Answer 1

我通常不会像有人已经说过的那样，你应该展示你所尝试的任何努力，但既然它是这样一个简单的函数，那么它就不会浪费时间。

请确保您阅读并理解它的作用，以便您可以学习并能够在将来做这种事情。SO不是一个免费的代码编写网站。

使用这个。打开Visual Basic，点击Import ->模块。不要把它放在表单模块中。然后你可以在你的表格中用它作为=PercentChange(A1)的例子。您可以将函数的名称更改为任何您想要的名称，但请确保将所有PercentChange更改为新名称，否则将无法工作。

代码:

Public Function PercentChange(rng As Range)
If rng.Value = 0 Then
PercentChange = "No Change"
ElseIf rng.Value < 0 Then
PercentChange = "Decreased by " & Format(Abs(rng.Value), "0%") 'For Decimals do "0.00%" etc
ElseIf rng.Value > 0 Then
PercentChange = "Increased by " & Format(rng.Value, "0%")
End If
End Function

Answer 2

您可以使用自定义单元格格式，不需要VBA:

格式单元格:Custom: Type:

"Increase by" 0.00%;"Decrease by "0.00%; "No change"