首先说明：我的代码是按照你的表现在的样子设计的，按钮在数据表里面，表的格式除了可以增加行数据，列变动，会引起代码执行错误！我是基于10版写的代码和截图，其他版本大同小异，不明白的留言给我！
下面祥燃上步骤图！
1.点--开发工具--点一下设计模式
2.按钮上点右键--查看代码
3.会打开按钮点击事件代码编辑区
4.把下面的代码粘贴到红框位置--然后返回工作表
5.在点一次‘设计模式’升困 退出设计模式，然后保存，点按钮就可以了
--下面是代码---
Dim dl As Integer
Dim i As Integer
dl = Me.[a5000].End(xlUp).Row
For i = 2 To dl
Me.Cells(i, 7) = Me.Cells(i, 3) * 0.1 + Me.Cells(i, 4) * 0.2 + Me.Cells(i, 5) * 0.3 + Me.Cells(i, 6) * 0.4
吵宴念 Next i
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024