vba - 具有用户定义数据的 NumberFormat VBA

Question

我正在处理具有一定数量的模板计算的工作簿，这些模板计算在复制的工作簿范围内多次使用。创建了一个表单对象，用户将在其中输入满足特定格式的每个计算集的标识符。它通常遵循“aaa-##0.00”，其中“aaa”是 1 到 3 个字母的字符串。然后，该表单具有一个组合框，该组合框在激活时被清除并填充，其中包含 258 个客户提供的文本可能性(以减少可能的用户错误)，旁边有一个文本框用于输入数字。单击“执行”按钮时，它会从用户表单中识别所需的选定计算，将模板工作表复制到工作簿的末尾，并在“内容”页面上的列表底部填充标识符信息。以下是相关代码:

Dim prefix As String
Dim LocMP As Double

'The digits are entered in txtLocMP
LocMP = Val(txtLocMP.Value)

'mpPrefixLst is the combo box, with 'prefix' being the desired custom format
prefix = mpPrefixLst.Text & "-#0.00"

调试时，“LocMP”和“prefix”中存储的值看起来令人满意，LocMP 是一个数字，“prefix”是所需的格式字符串。从这里开始，我尝试了几种不同的选择。首先，

With Contents
'Contents is type WorkSheet, locCount is the number of entries in Contents
'including the offset for the header
   .Unprotect
          'Other unrelated functions
   .Range("C" & locCount).Value = Format(LocMP, prefix)
          'Other unrelated functions
   .Protect
End With

第二，

With Contents
          'Other unrelated functions
   With .Range("C" & locCount)
      .Value = LocMP
      .NumberFormat = prefix
   End With
          'Other unrelated functions
End With

尽管它们对我来说都有意义，但这些选项都没有产生预期的结果。例如，如果为“mpPrefixLst”提供的文本是“SFE”，那么我的“前缀”值显示它等于“SFE-#0.00”，这完全符合预期。当为 LocMP 输入 555.44 的值时，更改后的单元格中的结果是“36FE-#0.00”，而所需的结果是“SFE-555.44”!我已经在这个网站(和其他网站)上搜索了一个我可以适应的近似解决方案，而 MSDN 网站根本没有帮助。任何帮助将不胜感激!

Answer 1

在每个字符之间放置一个反斜杠:

Sub Test()
Cells(1, 1).NumberFormat = GetFixedPrefix("SAE-") & "#0.00"
End Sub

Function GetFixedPrefix(prefix as String) as String
Dim x, fixedPrefix
fixedPrefix = ""
For x = 1 to Len(prefix)
    fixedPrefix = fixedPrefix & "\" & Mid(prefix,x,1)
Next x
GetFixedPrefix = fixedPrefix
End Function

这使您的 NumberFormat = \S\F\E\-#0.00应该正确显示:



Read More Here

Backslash. Any character appearing after backslash \ will display as a literal, even though it may be reserved as an operator (say, %). The number 0.75 with the format code #.00% will format to 75.00%, but with the format code #.00\% it will format to .75%, ie. format code will not use % as operator but as a literal.