sheet1中
列出你的商品
商品
价格
普通箱
全半翼箱
半全翼箱
天地箱
sheet2中列出计算公式
普通箱
(长+宽+5)*(宽+高+3)*2*单价/10000
全翼箱
(长+宽+5)*(2*宽+高+3)*2*单价/10000
半翼箱
(长+宽+5)*(1/2*宽+高+3)*2*单价/10000
半全翼箱
(长+宽+5)*(1/2*宽+高+3)*2*单价/10000
天地箱
(2*高+长+3)*(2*高+宽+3)*单价*1.55/10000
在sheet1
中加入按键指定宏
遍历sheet1中A列中商品
用vlookup
在表2中查询对应计价方法
并填充入shee1
B列
如有新商品种类和计价方法的添加
只需在sheet2中加入
OK
时间关系
代码不写了
这个简单
你不如直接做一个用户控件
在上面贴上这几个标签，然后在公式栏下面使用文本框控件，然后把text属性设置成你要表达的公式的值就行了
一次计算出所有的类型的大小不是更好？
我明白你的意思,你是想让VBA不改动.你在工作表里面修改你的公式或者是增加公式,让VBA自动去查找各种箱子所对应的公式.然后填进你需要的地方,对吧.200分.帮你解决.绝对让你满意思
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024