如何在VBA中使用.NumberFormat结合字符串变量与数值生成自定义单元格格式

核心思路 #

原代码已经使用了Excel自定义数字格式特性，仅需将字符串变量动态拼接到格式规则中，即可实现需求，同时保留单元格的数值属性，方便后续引用计算。

完整修改后代码 #

Private Sub Worksheet_Change()
   ' 建议提前声明变量，避免隐式声明引发的错误
   Dim Nfil As Long, Ntot As Long, Model As String, Piler As Double
   
   Nfil = 3
   Ntot = 5
   Model = "EMBASAMENTO" ' 可替换为任意动态字符串变量
   Piler = Nfil / Ntot
   
   Range("E7").Value = Piler
   ' 动态拼接自定义格式字符串，将Model变量嵌入显示规则
   Range("E7").NumberFormat = """" & Model & """ - ANDAMENTO GERAL: 0%"
End Sub

可选方案（纯文本显示） #

如果你不需要保留单元格的数值属性，仅需显示纯文本内容，可以直接拼接后赋值，无需单独设置数字格式：

Private Sub Worksheet_Change()
   Dim Nfil As Long, Ntot As Long, Model As String, Piler As Double
   
   Nfil = 3
   Ntot = 5
   Model = "EMBASAMENTO"
   Piler = Nfil / Ntot
   
   Range("E7").Value = Model & " - ANDAMENTO GERAL: " & Format(Piler, "0%")
End Sub

内容的提问来源于stack exchange，提问作者Tiago