Office中国论坛/Access中国论坛

标题: excel 一个VBA过程出错子过程或函数未定义 [打印本页]

作者: wl198601 时间: 2009-3-25 11:35
标题: excel 一个VBA过程出错子过程或函数未定义
本帖最后由 wl198601 于 2009-3-25 11:41 编辑

Sub count1() '第一句这里就出错了，程序根本就无法运行下去。错误提示如下：编‘译错误，子过程或函数未定义
Dim i As Integer
Debug.Print "123"
Dim j As Integer
Dim TotalRows As Integer
Dim TotalColumns As Integer
TotalRows = Worksheets("员工工资表").Range("a1").CurrentRegion.Rows
TotalColumns = Worksheets("员工工资表").Range("a1").CurrentRegion.Columns
For i = 4 To TotalRows - 1
Cells(i, 6).Value = Cells(i, 5).Value + Cells(i, 4).Value
Cells(i, 10).Value = Cells(i, 9).Value + Cells(i, 8).Value + Cells(i, 7).Value
Cells(i, 11).vlaue = Cells(i, 2).Value + Cells(i, 6).Value - Cells(i, 10).Value
Next i

For j = 2 To TotalColumns
   Cells(TotalRows, j).Value = 0
   For i = 4 To TotalRows - 1
      Cells(TotalRows, j).Value = cell(i, j).Value + Cells(TotalRows, j).Value
      Next i
Next j

End Sub

请各位高手帮帮忙啊。以前有点java编程的基础，现在刚开始学VBA。

作者: pureshadow 时间: 2009-3-25 11:50
本帖最后由 pureshadow 于 2009-3-25 12:01 编辑

倒数第四行有个CELL改成CELLS

作者: wl198601 时间: 2009-3-25 12:25
2# pureshadow
真的谢谢你啊！
这个程序后面还有几个错误，但现在已经解决了。
从这个例子中我学到了很多，再次感谢版主及时而准确的解答！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)