公共 function 根據單元格值創建自動字符串 output。 VBA

Question

我正在嘗試創建一個 vba function 字符串 output 基於百分比單元格引用，如果為正或“如果沒有變化，則減少零”。

任何幫助都會很棒！

Answer 1

我通常不會像有人已經說過的那樣，你應該展示你嘗試過的任何努力，但因為它是如此簡單的 function 所以它不會浪費時間。

請確保您閱讀並理解它的作用，以便您將來可以學習並能夠做這種事情。 SO 不是免費的代碼編寫網站。

要使用這個。 打開 Visual Basic 和 go 導入 -> 模塊。 不要把它放在工作表模塊中。 然后，您可以在工作表中將其用作=PercentChange(A1)例如。 您可以將 function 的名稱更改為您想要的任何名稱，但請確保將所有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：

單元格格式：自定義：類型：

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