<pre id=\"best-answer-content\" class=\"reply-text mb10\">按ALT F11,进入VBE,双击你需要这个功能的工作表名称,输入下列代码,即可完成你的需求.
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 1 And .Count = 1 Then
\'设置在A列且只选择一个单元格
.Offset(0, 1) = Application.Evaluate(.Value) \'将结果显示在B列.
End If
End With
End Sub
如果要在B列输入,C列显示结果,将.Column = 1改成.Column = 2,
若要在B列输入,D列显示结果,将.Column = 1改成.Column = 2,.Offset(0, 1)改成.Offset(0, 2)即可
|