救命啊~~~谁帮我保存下这个带VB的EXCEL 电脑死活保存不了，要交作业

Question

Function Commission(Fee)
    If Fee <= 1000 Then Commission = Fee * 0.1 Else Commission = Fee * 0.05
End Function
不知道为什么每次保存后再开出来会自动删除VB， 想死了 ，试了一晚上了。后天要交作业

Answer 1

带VB的EXCEL?
vba吧？lz确认一下到底是删除，还是你没有找到位置

Answer 2

不能保存和这个自定义函数并无关联，应该是别的方面的原因。另外，你这个函数可以简化一下：Function Commission(Fee)
  Commission = Fee * 0.1 / (1 - (Fee > 1000))
End Function

Answer 3

Commission = iif(Fee <= 1000, Fee* 0.1,Fee*0.05)查查看有没有自动宏删除了vba，或者是保存位置不对？

Answer 4

不明白楼主的意思。是说‘Excel 工作簿中无法把这段 VBA代码保存下来’吗 ？
不可能有这么怪的事情吧！！！

Answer 5

它每次重新开出后就会出错，提示什么损坏 已删除VBA

Answer 6

很可能代码中有不符合当前语言的字符，导致解码错误：
1)将代码模块导出成文件，并且删除该代码模块。
2)用记事本打开文件，另存为用 Ansi 编码保存，编码错误的字符会被替换为问号之类的。
3)代码模块导入。

Answer 7

如果楼主是用的2007版就可以理解发，2007版默认保存的xlsx文件并不支持保存VBA代码，如果要保存有代码的文件，请保存为xlsm（加载宏的文件）文件格式

Answer 8

改为试一试:
Function Commission(Fee)
  If Fee <= 1000 Then 
Commission = Fee * 0.1 
Else 
Commission = Fee * 0.05
End If
End Function

Answer 9

如果是03的可以保存为.xla
如果是07的呢就是.xlsm
还有哦应该是VBA