如果单元格中有数据并转到下一个空白处，VBA 会跳过单元格吗？

Question

请原谅我，如果我太菜鸟而无法使用它，甚至没有任何意义。我正在为自己和我的一个朋友制作一个数据库。 （这将是两个根本没有合并的不同数据库。）我不是从头开始的，所以这可能是我的问题之一。我正在使用我的工作时间表（别担心，它只是一份副本）来“学习/测试”我想用 VBA 做什么。基本上我想要做的是获取单元格“A3：D3”和“E2”的信息（值？）并将这些值放入相应的列中。但我不希望它在下一个单元格内过度编码。这就是我在第 10 行和第 11 行输入的原因。它仍然不喜欢它。

另外，我想知道我是否可以在这方面获得帮助......以及这些信息是否可能是日期敏感的？即您输入今天的工作时间并记得您忘记记录昨天的工作时间，因此您在“DateToday”或 A3 框中输入日期，并将信息记录在专门针对该日期的一行中，或者您跳过两天的工作并且你把日期和VBA跳过两行？

这是两个不同的请求吗？有可能吗？任何帮助深表感谢！！提前谢谢！

    Private Sub CommandButton1_Click()
Dim DateToday As Date, TimeIn As Integer, LunchLength As Integer, TimeOut As Integer, HoursToday As Integer
    Worksheets("sheet1").Select
    DateToday = Range("A3")
    TimeIn = Range("B3")
    LunchLength = Range("C3")
    TimeOut = Range("D3")
    HoursToday = Range("E2")
    Worksheets("sheet1").Range("A141").Select
    If Worksheets("sheet1").Range("A141").Offset(1, 0) <> "" Then
    Worksheets("sheet1").Range("A141").End(x1Down).Select
    End If
    ActiveCell.Value = TimeIn
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = LunchLength
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = TimeOut
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = HoursToday
    Worksheets("sheet1").Range("B2:D2").ClearContents
    ThisWorkbook.Save
    Worksheets("sheet1").Range("B2").Select


End Sub

最后一部分“Worksheets("sheet1").Range("B2").Select”更适合我的第二个项目，但也适合这个。第二个项目将与这个非常相似，除了我和我的朋友将输入零件编号、定义、零件条件和其他内容。再次感谢任何帮助！

Answer 1

未经测试：

Private Sub CommandButton1_Click()
Dim DateToday As Date, TimeIn As Integer, LunchLength As Integer
Dim TimeOut As Integer, HoursToday As Integer, sht as WorkSheet

    Set sht = ThisWorkbook.Worksheets("sheet1")

    DateToday = sht.Range("A3")
    TimeIn = sht.Range("B3")
    LunchLength = sht.Range("C3")
    TimeOut = sht.Range("D3")
    HoursToday = sht.Range("E2")

    With sht.Cells(Rows.Count,1).End(xlUp).Offset(1,0).EntireRow
        .Cells(1).Value = TimeIn
        .Cells(2).Value = LunchLength
        .Cells(3).Value = TimeOut
        .Cells(4).Value = HoursToday
    End With

    sht.Range("B2:D2").ClearContents
    ThisWorkbook.Save
    sht.Range("B2").Select
End Sub

注意：通常在 VBA 中工作时有no need to Select anything。