VB.NET中如何将Excel列格式设置为货币类型而非自定义格式

嗨Kevin，我明白你的困扰——你已经设置了带英镑符号的数字格式，但Excel却显示为「自定义」而非「货币」类型，这确实有点烦人。让我来给你讲清楚原因和解决办法：

问题根源 #

你之前设置的"£#,##0.00"只是一个自定义的数字格式字符串，只定义了正数的显示样式，Excel无法识别它为内置的货币格式，所以会归类到「自定义」里。而Excel的内置货币格式是包含正数、负数、零值等完整规则的，这样它才会被识别为正式的「Currency」类型。

解决方案：使用Excel内置的英镑货币格式字符串 #

你只需要把格式字符串替换为Excel默认的英镑货币格式（包含负数的红色括号样式），这样Excel就会识别为货币类型了。同时注意，写入值的时候直接写数字即可，不需要手动加£符号，格式会自动帮你添加。

下面是具体的VB.NET代码示例：

' 假设你已经初始化了Excel应用、工作簿和工作表对象
Dim excelApp As New Excel.Application()
Dim workbook As Excel.Workbook = excelApp.Workbooks.Add()
Dim ws As Excel.Worksheet = CType(workbook.Worksheets("Sheet1"), Excel.Worksheet)

' 选择你要设置的目标列（比如A列）
Dim targetColumn As Excel.Range = ws.Range("A:A")

' 设置为Excel内置的英镑货币格式（包含负数的红色括号样式）
targetColumn.NumberFormat = "£#,##0.00_);[Red](£#,##0.00)"

' 写入数值（直接写数字，不要带£符号）
Dim targetCell As Excel.Range = ws.Range("A1")
targetCell.Value = 200.00

' 保存并关闭（根据你的需求调整）
workbook.SaveAs("C:\YourPath\YourFile.xlsx")
workbook.Close()
excelApp.Quit()

额外说明 #

如果你不需要负数的红色括号样式，也可以使用简化版的内置货币格式字符串"£#,##0.00"，但要确保它和Excel内置的货币格式完全匹配。不过更推荐使用包含负数规则的完整格式，这样更符合Excel默认的货币格式行为。

设置完成后，当你打开Excel文件，在「开始」选项卡的「数字」下拉框里，就会看到显示的是「Currency」而非「Custom」了！

备注：内容来源于stack exchange，提问作者Kevin Balmforth