第1个回答 2010-07-15
'比如下面这段代码,当在第一列输入一个数字时,自动减半
'工作表标签→查看代码→粘贴过去
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Target.Value) Then Target.Value = Target.Value / 2
Application.EnableEvents = True
End Sub本回答被网友采纳
第2个回答 2010-07-15
A1为输入单元格B1为输出单元格则:
在B1输入=A1/2
当在A1中输入78既得到39
第3个回答 2010-07-15
A1为输入单元格B1为输出单元格则:
在B1输入=A1/2
当在A1中输入78既得到39
第4个回答 2010-07-15
=78/2
如果不输人=要达到计算的效果,则要编写VBA