当前位置:编程学习 > VB >>

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

Function Commission(Fee)
    If Fee <= 1000 Then Commission = Fee * 0.1 Else Commission = Fee * 0.05
End Function




不知道为什么每次保存后再开出来会自动删除VB, 想死了 ,试了一晚上了。后天要交作业
--------------------编程问答-------------------- 带VB的EXCEL?
vba吧?

lz确认一下到底是删除,还是你没有找到位置
--------------------编程问答-------------------- 不能保存和这个自定义函数并无关联,应该是别的方面的原因。另外,你这个函数可以简化一下:

Function Commission(Fee)
  Commission = Fee * 0.1 / (1 - (Fee > 1000))
End Function
--------------------编程问答-------------------- Commission = iif(Fee <= 1000, Fee* 0.1,Fee*0.05)

查查看有没有自动宏删除了vba,或者是保存位置不对? --------------------编程问答-------------------- 不明白楼主的意思。

是说‘Excel 工作簿中无法把这段 VBA代码保存下来’吗 ?
不可能有这么怪的事情吧!!!
--------------------编程问答-------------------- 它每次重新开出后就会出错,提示什么损坏 已删除VBA --------------------编程问答-------------------- 很可能代码中有不符合当前语言的字符,导致解码错误:
1)将代码模块导出成文件,并且删除该代码模块。
2)用记事本打开文件,另存为用 Ansi 编码保存,编码错误的字符会被替换为问号之类的。
3)代码模块导入。 --------------------编程问答-------------------- 是不是 宏的安全性太高了,把宏禁止了或者删除了? --------------------编程问答-------------------- upupupupupupupupupupupupupupupupupup --------------------编程问答-------------------- 如果楼主是用的2007版就可以理解发,2007版默认保存的xlsx文件并不支持保存VBA代码,如果要保存有代码的文件,请保存为xlsm(加载宏的文件)文件格式 --------------------编程问答-------------------- 改为试一试:
Function Commission(Fee)
  If Fee <= 1000 Then 
Commission = Fee * 0.1 
Else 
Commission = Fee * 0.05
End If
End Function
--------------------编程问答-------------------- 如果是03的可以保存为.xla
如果是07的呢就是.xlsm
还有哦应该是VBA
补充:VB ,  VBA
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,