excel - 离开单元格后如何在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 个部分中替换此代码。