关于VBA设置单元格格式

iuin_01

比如以下在中文班中是好用的，单元格都设置成常规格式
Sheet8.Cells(I, 9).NumberFormatLocal = "G/通用格式"
但同样的语句在英文版中设置后，单元格中显示"G/通用格式"
但在英文版中语句改为：
Sheet8.Cells(I, 9).NumberFormatLocal = "General"就没有问题

Manrce

区域——管理——非Unicode程序的语言——更改系统区域设置——中文

qqaa266

if Application.LanguageSettings.LanguageID(msoLanguageIDUI)=2052 then Sheet8.Cells(I, 9).NumberFormatLocal = "G/通用格式"

if Application.LanguageSettings.LanguageID(msoLanguageIDUI)=1033 then Sheet8.Cells(I, 9).NumberFormatLocal = "General"

iuin_01

Manrce 发表于 2020-2-22 11:42
区域——管理——非Unicode程序的语言——更改系统区域设置——中文

因为Excel文件要在很多电脑上用，有些电脑不能更改为中文

microyip

1. Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
   
2. Private Sub 判断语言()
   
3.     Select Case GetSystemDefaultLCID
   
4.         Case &H404
   
5.             MsgBox "当前系统为：中文繁体", , "语言"
   
6.         Case &H804
   
7.             MsgBox "当前系统为：中文简体", , "语言"
   
8.         Case &H409
   
9.             MsgBox "当前系统为：英文", , "语言"
   
10.     End Select
    
11. End Sub

复制代码

iuin_01

microyip 发表于 2020-2-22 13:46

我就是想达到这个效果

gbgbxgb

iuin_01 发表于 2020-2-22 13:56
我就是想达到这个效果

搞这么复杂做啥：
用NumberFormat属性，不要用NumberFormatLocal属性。即NumberFormat="General"就行，各系统应该通用。