用vba另存后, 数据格式变了

lss001

Stone_00x 发表于 2025-3-29 22:22
还真是这样
那我要发给别人用, 还要让别人修改电脑的货币格式....
有没有什么办法另存后不自动改变 ...

发送给别人格式已经固定了，
不会再变来变去的。

朝露孤烟

再次测试后，只能用numberformat处理了。Sub test1()
    With Sheet1
        a = .Cells(1, 1).Value
        ActiveWorkbook.SaveAs ThisWorkbook.Path + "\bb.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
        .Cells(1, 1).Value = a
        .Cells(1, 1).NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-"
        ThisWorkbook.Save
    End With
End Sub
   

Stone_00x

lss001 发表于 2025-3-30 11:52
发送给别人格式已经固定了，
不会再变来变去的。

程序发给别人，在他电脑上运行后格式还是变了

lss001

Stone_00x 发表于 2025-3-31 08:27
程序发给别人，在他电脑上运行后格式还是变了

'''如果出现这个问题可以在模块
→顶部位置←加入如下过程↓

Private Declare PtrSafe Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Declare PtrSafe Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" ( _
    ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long
Private Declare PtrSafe Function PostMessage Lib "user32" _
   Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
   ByVal wParam As Long, lParam As Any) As Long

'打开文件自动设置区域货币格式
Sub Auto_Open()
    Dim LCID As Long
    LCID = GetSystemDefaultLCID()
    '第2参数：货币负数表示模式(28)
    '第3参数：货币负数下拉列表序号("1")
    '序号从"0"开始，"1"表示第2个选项
    Call SetLocaleInfo(LCID, 28, "1")
    '通知系统：区域设置已经修改
    Call PostMessage(65535, 26, 0&, ByVal 0&)
End Sub