自定义函数完成不了,用工作表事件 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Application.EnableEvents = False Target = Target.Value - Cells(Target.Row, 1).Value Application.EnableEvents = True End If End Sub
具体怎么做啊?你写的这个程序是放到 宏里的visual basic编辑器里的吗?放里面以后怎么做
Dim i& i = 2 '从第二行开始 Do If (Len(Cells(i, 1).Text) = 0) Then Exit Do Cells(i, 2).Formula = Cells(i, 2).Value - Cells(i, 1).Value Loop
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
Target = Target.Value - Cells(Target.Row, 1).Value
Application.EnableEvents = True
End If
End Sub
i = 2 '从第二行开始
Do
If (Len(Cells(i, 1).Text) = 0) Then Exit Do
Cells(i, 2).Formula = Cells(i, 2).Value - Cells(i, 1).Value
Loop
VBE窗口中,双击左边的那个sheet1表,然后把代码复制进去
你会自定义函数,难道没学过事件?
自己去下载吧,打开时候点启用宏