[已解决]引用工作表函数问题

zilanbing2008

sheetchange事件引用工作表sum函数，提示“要求对象”，sum变成小写，程序运行失败，哪位老师解答一下原因。注：单个引用application.worksheetfunction.sum，代码是全的，跳出Sum函数了但是运行报错后变为sum。

最佳答案

月排行榜 / 总排行榜

lzclzch

2012-8-23 14:28

双击任何单元格都没有出错啊


Private Sub Worksheet_Change(ByVal Target As Range)
[b1] = Application.WorksheetFunction.Sum(Range("a1:a5"))
End Sub

跳转到最佳答案楼层

lzclzch

Private Sub CommandButton1_Click()
[b1] = Application.WorksheetFunction.Sum(Range("a1:a5"))
End Sub

feic

谢谢分享很好用噢

zilanbing2008

lzclzch 发表于 2012-8-23 10:43
Private Sub CommandButton1_Click()
= Application.WorksheetFunction.Sum(Range("a1:a5"))
End Sub

这个是控件事件，不是worksheet_change事件，如果是worksheet_change事件，好像还是不好用的。。。。。

lzclzch

双击任何单元格都没有出错啊


Private Sub Worksheet_Change(ByVal Target As Range)
[b1] = Application.WorksheetFunction.Sum(Range("a1:a5"))
End Sub

zilanbing2008

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x, total
  For x = 8 To 12
    total = Application.WorksheetFunction.Sum(Range("a" & x & ":d" & x))
       If total <> 0 Then
       Range("e" & x).Value = total
       Else
       Range("e" & x).Value = ""
       End If
    Next x
End Sub



老师，请帮忙看看我这个为什么总是sum那一行报错呢？用控件就没有问题，执行正常。

zilanbing2008

lzclzch 发表于 2012-8-23 14:28
双击任何单元格都没有出错啊

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x, total
  For x = 8 To 12
    total = Application.WorksheetFunction.Sum(Range("a" & x & ":d" & x))
       If total <> 0 Then
       Range("e" & x).Value = total
       Else
       Range("e" & x).Value = ""
       End If
    Next x
End Sub



老师，请帮忙看看我这个为什么总是sum那一行报错呢？用控件就没有问题，执行正常。