excel表用VBA编写程序

一定要瞎乱用VBA么？伍岁

for r=2 to 100

if application.WorksheetFunction.Sum(range("M1:X1").offset(r,0))<>0 and application.WorksheetFunction.Sum(range("A1:L1").offset(r,0))>0 then

range("Y1").offset(r,0)=application.WorksheetFunction.Sum(range("A1:L1").offset(r,0))/application.WorksheetFunction.Sum(range("磨橘档M1:X1").offset(r,0))

endif

next r

=====================================================

好蛋疼啊！

直接用公式多简单：

=IF(AND(SUM(M3:X3)<>0, SUM(A3:L3)>0), SUM(A3:L3)/SUM(M3:X3), "")

ALT+F11 或者右键工作表标签 点查看代码 或者 点 工具-宏-visual basic 编辑则吵乱器 进碰毕入以后插入一个模块,如果你有别人写好的代码,直接复制进去把相关工作表名或地址改下就行 .然后在工作表中绘制一个图形或按钮,指定你复制的代码的宏名就行了,点击就可以孙档运行了

---