假如3个单元格为C1:C3
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Add = Target.Address
i = Target.Value
If Add >= "$C$1" And Add <= "$C$3" Then
Range("C1:C3") = 0
Range(Add) = i
End If
Application.EnableEvents = True
End Sub
窗体控件和if 函数就可以了
需要使用vba或窗体控件完成.
hi我吧,发个文件过来.
偶也不知道 。
但用模拟运算表应该也能实现 吧