离开单元格后如何在Excel单元格中进行计算

Question

我在 Excel-2010 和 Excel-2013 上工作。我想做如下的事情：

无论我在单元格中输入什么数字，该数字都必须除以 60，并且在按 TAB 时，结果应该打印在同一个单元格上。如果我回到这个单元格，应该会出现输入的数字，而不是计算的结果。

我对 Excel 编程知之甚少。由于公司的安全政策，我无法打开大部分网站。

谁能帮我解决这个问题！

Answer 1

请使用此代码。您应该将此代码粘贴到您的Worksheet module，而不是Regular module。那么请将Range("A1:A100")调整到数字应该被划分的范围。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DivRg As Range
Set DivRg = Range("A1:A100")
Set DivRg = Application.Intersect(Target, DivRg)

If DivRg Is Nothing Or Target.Cells.Count > 1 Then Exit Sub

Application.EnableEvents = False
Target = Target / 60
Target.Offset(0, 5).Value = 1
Application.EnableEvents = True

Set DivRg = Nothing

End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DivRg As Range

Set DivRg = Range("A1:A100")
Set DivRg = Application.Intersect(Target, DivRg)

If DivRg Is Nothing Or Target.Cells.Count > 1 Then Exit Sub

Application.EnableEvents = False
If Target.Offset(0, 5).Value = 1 Then
Target = Target * 60
Target.Offset(0, 5).Value = 0
End If
Application.EnableEvents = True

Set DivRg = Nothing
End Sub

要完成您的任务，您将需要一个帮助列（我选择了列F），但您可以选择任何列并更改这部分代码以解决该列Target.Offset(0, 5).Value。例如，如果您希望帮助列成为列 E ，则使用此代码 Target.Offset(0, 4).Value 。确保在 subs 的所有 3 个部分中替换此代码。