Question

编写VBA代码，求完整过程

Answer 1

首先说明：我的代码是按照你的表现在的样子设计的，按钮在数据表里面，表的格式除了可以增加行数据，列变动，会引起代码执行错误！我是基于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

追问

其实我只要完整代码就好不需要操作过程......辛苦了

定义d1的地方没看懂，直接等于10不行吗？

哦看错，不止10个

追答

dl就是获取行长度的