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

Stone_00x

在A1单元格输入-1234.56,然后设置成会计格式,然后用VBA另存,结果数据格式变成了(1,234.56),

为什么数据格式会自动变了, 除了用NumberFormat重新设置数据格式, 有什么办法可以保留原有的数据格式吗?

鱼生

我运行后就是会计专用格式
动画.zip (1.66 MB, 下载次数: 1)

2025-3-29 18:41 上传

点击文件名下载附件

Stone_00x

鱼生 发表于 2025-3-29 18:42
我运行后就是会计专用格式

运行完后关掉, 重新打开bb格式就变了

lss001

Stone_00x 发表于 2025-3-29 19:12
运行完后关掉, 重新打开bb格式就变了

区域→其它设置→自定义格式→
货币→货币负数格式：-￥1.1

朝露孤烟

试试，另存为之前，先把单元格格式转换一下。可以保留原格式。比如：sheet1.range("A1").value=sheet1.range("A1").value,然后再saveas为.xls。测试后发现，应该还少一步，关闭前保存。所以，代码修改如下：    Sheet1.Range("A1").Value = Sheet1.Range("A1").Value
    ActiveWorkbook.SaveAs ThisWorkbook.Path + "\bb.xlsm"
    ThisWorkbook.Close savechanges = True

Stone_00x

朝露孤烟 发表于 2025-3-29 20:50
试试，另存为之前，先把单元格格式转换一下。可以保留原格式。比如：sheet1.range("A1").value=sheet1.rang ...

结果是一样的, 单元格格式还是变了
另外有很多个单元格, 不想每个单元格都设置格式, 只想要他保留原有的格式

Stone_00x

lss001 发表于 2025-3-29 19:17
区域→其它设置→自定义格式→
货币→货币负数格式：-￥1.1

我默认就是这种格式的

lss001

Stone_00x 发表于 2025-3-29 21:55
我默认就是这种格式的

注意看负号在前，不是在中间

Stone_00x

lss001 发表于 2025-3-29 22:00
注意看负号在前，不是在中间

还真是这样
那我要发给别人用, 还要让别人修改电脑的货币格式....
有没有什么办法另存后不自动改变数据格式啊

朝露孤烟

Stone_00x 发表于 2025-3-29 21:53
结果是一样的, 单元格格式还是变了
另外有很多个单元格, 不想每个单元格都设置格式, 只想要他保留原有的 ...

我测试后，果然是变了。看来要高手出手才行了。不然，只能先把数字转文本的办法。