如何在 VBA 中使用具有可变字符串和整数值的 .Numberformat？

Question

有什么方法可以通过 VBA 代码在电子表格单元格中获得这样的数字格式？：EMBASAMENTO - ANDAMENTO GERAL：50%。尽管如此，“EMBASAMENTO”是字符串类型的变量，“-ANDAMENTO GERAL:”是永久文本，“50%”是以百分比格式计算并设置到单元格的值。

Private Sub Worksheet_Change()
   Nfil = 3
   Ntot = 5
   Model = "EMBASAMENTO"
   Piler = Nfil / Ntot
   Range("E7").Value = Piler
   Range("E7").NumberFormat = """ - ANDAMENTO GERAL: ""0%"
End Sub

Answer 1

我在问题中发布的代码有效。我需要的和我正在尝试做的是下面这样的事情，但它不起作用：

Private Sub Worksheet_Change()
  Nfil = 3
  Ntot = 5
  Model = "EMBASAMENTO"
  Piler = Nfil / Ntot
  Range("E7").Value = Piler
  Range("E7").NumberFormat = Model & """ - ANDAMENTO GERAL: ""0%"
End Sub

这段代码的最终结果应该是 EMBASAMENTO- ANDAMENTO GERAL: 60%

Answer 2

变量前也需要引号，如下所示：

Private Sub Worksheet_Change()
  Nfil = 3
  Ntot = 5
  Model = "EMBASAMENTO"
  Piler = Nfil / Ntot
  Range("E7").Value = Piler
  Range("E7").NumberFormat = """" & Model & "- ANDAMENTO GERAL: ""0%"
End Sub

不确定 Worksheet_Change 活动是否适合此活动，但这不是您问题的一部分。

如何在 VBA 中使用具有可变字符串和整数值的 .Numberformat？

How to use .Numberformat in VBA with variable string and integer value?

string

variables

excel

vba

number-formatting