对于每个循环和偏移量

Question

我正在使用 VBA 开发代码，但在执行在一个工作表中搜索范围以查找字符串的任务时遇到了问题；然后将字符串记录在同一行中，但为所有出现的情况保留一列（因此 .offset(0, -1)）；然后它在另一个工作表中搜索每个记录的字符串，并将与该列右侧记录的字符串对应的整数相加。

Option Explicit
Option Base 1

Public Sub StoredProcTimes()
    Worksheets("Proc Time").Select
    Dim Table() As Variant, nItem As Integer
    Range("A2", Range("A2").End(xlDown).End(xlToRight)).Name = "ProcTime"
    nItem = Range("ProcTime").Rows.Count
    ReDim Table(nItem, 2)
End Sub

Public Sub DayLoad()
    Range("G2", Range("G1").End(xlDown)).Name = "Dates"
    Call StoredProcTimes
    Dim reply As Date, cell As Range, sum As Integer
    reply = InputBox("Specify Date", "Day Load", "9/1/2017")
    For Each cell In Range("Dates")
        If cell.Value = reply Then
            cell.Offset(0, -1).Value

        End If
    Next
    MsgBox "The load for " & reply & " is " & sum & " minutes"
End Sub

Answer 1

首先，您的线路cell.Offset(0, -1).Value 没有做任何事情。您没有将其设置为等于一个值。您应该在此处收到错误消息。

不使用Offset() 是我个人的偏好，但使用它并不一定是什么大问题。在我的示例中，我向您展示了一种我认为有利的替代方法。

对于您要查找的特定单元格，不要遍历范围，这会占用处理器时间。使用Range.Find()。

Public Sub DayLoad()

    Dim ws As Worksheet, rngG As Range

    ' You may need to change the index, or use "SheetName"
    Set ws = ThisWorkbook.Worksheets(1)
    Set rngG = ws.UsedRange.Columns("G")

    'Call keyword is unnecessary 
    Call StoredProcTimes

    Dim sReply As String, myCell As Range
    sReply = InputBox("Specify Date", "Day Load", "9/1/2017")
    If Not IsDate(sReply) Then Exit Sub

    ' Search for your date
    Set myCell = rngG.Find(sReply)

    ' If date was found, then copy the date to the left 1 col
    If Not myCell Is Nothing Then
        With myCell
            ws.Cells(.Row, .Column - 1) = .Value
        End With
    End If

End Sub