EXCEL值计算

显示全部楼层 · 2009-6-23 18:02:36

Private Sub Worksheet_Change(ByVal Target As Range)If Range("A1").Value = 0 Or Range("A1").Value = "" Then
MsgBox "A1不能为零或空值"Else
Select Case Target.Column
Case 1
Range("C1").Value = Range("A1").Value * Range("B1")
Case 2
Range("C1").Value = Range("A1").Value * Range("B1")
Case 3
Range("B1").Value = Range("C1").Value / Range("A1").Value
End SelectEnd IfEnd Sub楼上的应该是可以的，只是A1是不能为0或空值的否则就会出错，建议加入条件判断A1的值取向，以免出错

千问 · 2009-6-23 18:02:36

Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 Or Target.Column = 2 Then Cells(Target.Row, 3) = Cells(Target.Row, 1) * Cells(Target.Row, 2)If Target.Column = 3 Then Cells(Target.Row, 2) = Cells(Target.Row, 3) / Cells(Target.Row, 1)End Sub

千问 · 2009-6-23 18:02:36

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Or Target.Address = "$B$1" Then
[c1] = [a1] * [b1]
ElseIf Target.Address = "$C$1" Then
[b1] = [c1] / [a1]
End IfEnd Sub