某些指定单元格的Excel计算

Question

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

无论我在单元格中输入的数字是什么，该数字必须被划分为60，结果应该在按TAB时打印在同一单元格上。如果我回到这个单元格，输入的数字应该重新出现，而不是计算的结果。

我从Kresimir L here得到了很好的答案。但我无法将他的逻辑应用于我自己的要求。我的Excel表如下所示：

​

​

用户必须根据给定的日期输入他的努力。(请暂时忽略颜色编码)。例如，如果用户已输入 45 ，这意味着与特定日期的时间间隔为45分钟，则此单元格应转换为0.75，即小时格式。请注意，除了第12行、第14行、第16行、第18行、第20行等之外，这不是所有行都需要的计算。

还有一件事，这张工作表是2017年的。我也需要连续几年应用同样的技术。因此，如何使这个公式适用于多个工作表？

我对用Excel编程不太了解。由于公司的安全政策，我无法打开大部分的网站。

有人能帮帮我吗？

Answer 1

我可以在多个天才的帮助下实现这一解决方案。收集不同人的不同答案，形成以下答案。张贴供他人参考，谁是真正的需要。

Option Explicit

Dim DivRg1, DivRg2, DivRg As Range

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Set DivRg1 = Sheet14.Range(Cells(10, 1), Cells(10, 20))
    Set DivRg2 = Sheet14.Range(Cells(12, 1), Cells(12, 20))
    Set DivRg = Application.Union(DivRg1, DivRg2)
    'For Each element In DivRg
        'MsgBox element
    'Next
    If (Target > 2) Then
        Application.EnableEvents = False
        Target = Target / 60
        Target = WorksheetFunction.Floor(Target, 0.01) 'Rounding the result to two decimals
        'Target.Offset(0, 5).Value = 1
        Application.EnableEvents = True
    End If
    Set DivRg = Nothing
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Set DivRg1 = Sheet14.Range(Cells(10, 1), Cells(10, 20))
    Set DivRg2 = Sheet14.Range(Cells(12, 1), Cells(12, 20))
    Set DivRg = Application.Union(DivRg1, DivRg2)

    Dim iSect As Range
    Set iSect = Application.Intersect(Target, DivRg) 'Here, iSect gives me the value in the cell
    If Not (iSect Is Nothing) And (iSect < 2#) Then
        Application.EnableEvents = False
        iSect = iSect * 60
        If (iSect = 0) Then iSect = Empty
        Application.EnableEvents = True
    End If
    Set DivRg = Nothing
End Sub