0

测试表 杰斯表

我有 2 张纸：test和Jayce。

在测试表上，我有一个包含总和方程的表格。一旦我点击提交按钮，信息应该在比较所选日期后将数据复制/粘贴到Jayce表中，以便可以将值放入正确的单元格中。

我不明白为什么我不断收到#ref!错误。 

Private Sub CommandButton21_Click()
'Sheet1(test)
'Sheet5(Jayce)

Application.ScreenUpdating = False

Dim dateRange As Range
Dim dateSelected As Date: dateSelected = Sheets(2).Range("Q5").Value
Dim ws As Worksheet: Set ws = ActiveWorkbook.Sheets("test")
Dim ws2 As Worksheet: Set ws2 = ActiveWorkbook.Sheets("Jayce")
Dim counterCopy As Range: Set counterCopy = Sheets(2).Range("M2")

For Each dateRange In Sheets(6).Range("B5:B370")
    If dateRange >= dateSelected And dateRange <= dateSelected Then
        counterCopy.Copy Destination:=Sheets(6).Range("D" & dateRange.Row)

        Sheet5.Range("D" & dateRange.Row).Style = "Normal"
        'ws.Range("G2:L19").ClearContents 'clear contents of table
    End If
Next
    MsgBox "done"

Application.ScreenUpdating = True
End Sub
4

1 回答 1

0

您的问题可能与此 If 语句有关，它将数据类型Range与数据类型进行比较Date

If dateRange >= dateSelected And dateRange <= dateSelected Then

此外，我会检查您在使用索引 2 和 6 以及名称“test”和“Jayce”时如何引用工作表，尝试保持 1 引用类型。

于 2019-10-01T02:33:29.153 回答