excel - 自定义格式单元格以使用 VBA 代码添加句子

Question

我需要编写一个宏来自定义格式化单元格，如果有人在单元格中键入一个数字（例如 10），输出应该是“EBITDA 利润的 10%”。我该怎么做呢？

Answer 1

试试这个 VBA 代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRNG As Range: Set MyRNG = Range("B2:B20") 'change your required range here
If Not Application.Intersect(MyRNG, Target) Is Nothing Then
ActiveCell.NumberFormat = "0.00 ""of EBITDA margin"""
End If
End Sub

Answer 2

为单元格创建一个自定义 NumberFormat（格式单元格 > 数字 > 自定义），例如

0.00% "of EBITDA margin"

该0.00%部分可以是您想要的任何数字格式。它后面的空格可以在引号内或引号之前。引号可以包含您想要的任何字符串，一个单词或一个长句子（但总共可能不超过 255 个字符）。

下面的代码将使用上面显示的相同 NumberFormat 格式化单元格 A1。格式也可以类似地修改。

Private Sub SetCellFormat()

    Cells(1, 1).NumberFormat = "0.00% ""of EBITDA margin"""
End Sub