具有用户定义数据的NumberFormat VBA

Question

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

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"

调试时，存储在＆＃39; LocMP＆＃39;中的值和＆＃39;前缀＆＃39; LocMP是一个数字和＆＃39;前缀＆＃39;是所需的格式字符串。从这里开始，我尝试了几种不同的选择。第一，

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

这两种选择虽然对我都有意义，但都没有产生预期的结果。例如，如果提供的文本为＆＃39; mpPrefixLst＆＃39;是＆＃34; SFE＆＃34;然后我的前缀＆＃39;值表示它等于＆＃34; SFE-＃0.00＆＃34;这完全符合预期。当为LocMP输入值555.44时，更改的单元格中的结果为＆＃34; 36FE-＃0.00＆＃34;当期望的结果将是＆＃34; SFE-555.44＆＃34;！我在这个网站（以及其他网站）上搜索了一个我能做出的近似解决方案，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

  

反斜杠。反斜杠\后出现的任何字符都将显示为文字，即使它可以保留为运算符（例如，%）。格式代码为#.00%的数字0.75将格式化为75.00%，但格式代码为#.00\%，格式为.75%，即。格式代码不会将%用作运算符，而是用作文字。