【VBA 中 Text 函数格式规则用法总结】

在 VBA 中，没有直接的 Text 函数，但可以通过 WorksheetFunction.Text 调用 Excel 的 TEXT 函数来实现格式化（作用与 Excel 的 =TEXT() 公式一致）。以下是其完整格式化规则和应用方法：

---

一、基础语法

Dim result As String
result = WorksheetFunction.Text(Value, FormatString)

• Value：要格式化的数值或日期
• FormatString：格式代码（与 Excel 单元格的“自定义格式”语法一致）

---

二、数值格式化规则

1. 占位符

符号	说明	示例（输入 → 输出）
0	强制显示数字（不足补零）	Text(123, "00000") → 00123
#	可选占位符（无数据隐藏）	Text(123, "###") → 123
.	小数点位置	Text(12.3, "0.00") → 12.30
,	千分位分隔符	Text(1234, "#,##0") → 1,234
%	百分比（自动乘以100）	Text(0.12, "0%") → 12%
?	对齐数字的小数点	Text(1.2, "???.???") → 1.2

2. 符号控制

符号	说明	示例（输入 → 输出）
$	货币符号	Text(123, "$#,##0") → $123
+/-	强制显示正负号	Text(-5, "+0;-#") → -5
()	负数显示在括号内	Text(-5, "#;(#)") → (5)

3. 科学计数法

符号	说明	示例（输入 → 输出）
E+	科学计数法（显示正负号）	Text(1234, "0.00E+00") → 1.23E+03
E-	仅负指数显示符号	Text(0.012, "0.00E-00") → 1.20E-02

---

三、日期和时间格式化规则

1. 日期部分

符号	说明	示例（输入 2023/10/05 → 输出）
yyyy	四位数年份	"yyyy" → 2023
yy	两位数年份	"yy" → 23
mmmm	月份全称（英文）	"mmmm" → October
mmm	月份缩写（英文）	"mmm" → Oct
mm	两位数月份（补零）	"mm" → 10
m	月份（不补零）	#2023/3/5# → "m" → 3
dddd	星期全称（英文）	"dddd" → Thursday
ddd	星期缩写（英文）	"ddd" → Thu
dd	两位数日期（补零）	"dd" → 05

2. 时间部分

符号	说明	示例（输入 15:08:30 → 输出）
hh	两位数小时（24小时制）	"hh" → 15
h AM/PM	12小时制 + AM/PM	"h AM/PM" → 3 PM
mm	两位数分钟（注意与月份区分，需上下文）	"mm" → 08
ss	两位数秒	"ss" → 30

---

四、文本处理规则

符号	说明	示例（输入 → 输出）
@	文本占位符（直接显示原内容）	Text("A", "@@@") → A
*	重复下一个字符填充列宽	Text(5, "**0**") → **5**
_	保留空格（用于对齐）	Text(5, "_0.0") → 5.0

---

五、条件格式化

用分号 ; 分隔不同条件，语法为：

"正数格式;负数格式;零值格式;文本格式"

示例：

Debug.Print WorksheetFunction.Text(123, "↑0;↓0;Zero;@")  ' → ↑123
Debug.Print WorksheetFunction.Text(-5, "↑0;↓0;Zero")     ' → ↓5
Debug.Print WorksheetFunction.Text(0, "↑0;↓0;Zero")      ' → Zero

---

六、特殊格式符

符号	说明	示例（输入 → 输出）
\	转义符（显示符号本身）	Text(5, "\\#0") → #5
"text"	直接显示引号内的文本	Text(5, "0 \"元\"") → 5 元

---

七、典型场景示例

1. 数值转中文大写

Debug.Print WorksheetFunction.Text(1234.5, "[DBNum2]") 
' → 壹仟贰佰叁拾肆.伍

2. 日期格式化为中文

Debug.Print WorksheetFunction.Text(Date, "yyyy年mm月dd日") 
' → 2023年10月05日

3. 金额千分位显示

Debug.Print WorksheetFunction.Text(1234567, "#,##0.00")
' → 1,234,567.00

---

八、常见错误及解决

错误场景	解决方法
#VALUE! 错误	确保 FormatString 是字符串类型
小数位数过多截断	增加 . 后的占位符（如 0.0000）
日期格式无效	检查符号（如用 mm 而非 MM 表示月份）
区域设置冲突（如日期）	使用本地化格式（如 dd/mm/yyyy）

---

通过以上规则，可以在 VBA 中精准控制数值、日期和文本的显示格式，尤其适用于生成报表或导出数据时需要强制格式化的场景。