Excel如果单元格a2> 8中的值自动移至单元格D2以输入文本

Question

我正在尝试使用一个电子表格来记录工作时间，以便如果一天的总小时数在A2单元格中大于8，则光标会自动移动到第二个选项卡上的D2单元格中，因此可以输入加班原因。

• 标签一称为2013
• 选项卡二称为2013加班。

我对excel不太满意，因此不胜感激。 谢谢！

Answer 1

您没有提供太多信息。 哪些细胞发生变化并有助于A2？ 是否存在需要选择其他单元格的相似列？ 请编辑您的问题，并添加有关数据结构的更多详细信息。

下面的宏假设单元格A2被手动更改。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim shOvertime As Worksheet
Set shOvertime = ThisWorkbook.Sheets("2013 Overtime")
If Not Intersect(Target, Range("A2")) Is Nothing Then
    If Range("A2") > 8 Then
        shOvertime.Activate
        shOvertime.Range("D2").Select
    End If
End If
End Sub

如果您的数据结构不同，请解释一下。

要使代码正常工作，请在工作表选项卡上单击鼠标右键，然后选择“查看代码”以打开Visual Basic编辑器（VBE）。 将代码粘贴到代码窗口中，然后关闭VBE。 然后在单元格A2中输入数字。