点击文件名下载附件
附件
各位大侠好,我是vba初学者菜鸟,刚学worksheetfunction对这个用法不是很了解,想请大家帮忙看一下,我想用vba,让c列等于a列和b列的乘积,这个怎么写,我的代码写的是:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim x As String
Dim y As String
i = Target.Row
for x=1 to range(65536).end(xlup).row
If Range("a" & i) > 0 And Range("b" & i) > 0 Then
brng = Range("a" & i).Address(0, 0)
crng = Range("b" & i).Address(0, 0)
If Range("a" & i) > 0 And Range("b" & i) > 0 Then
Range("c" & i) = Application.WorksheetFunction.sum(x:y)
End If
next
End Sub
由于是初学者,问题可能比较白痴,请大家多多包涵哈{:011:}