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

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

无论我在单元格中input的数字是多less，那么这个数字必须除以60，结果应该在按Tab键的同时打印在同一个单元格中。 如果我回到这个单元格，input的数字应该出现，而不是计算的结果。

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

任何人都可以请帮我这个！

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 

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