应用程序定义或对象定义的错误 Excel

Question

我在 Excel 2010 中有这个子程序，它应该执行以下操作：

·         取 Sheet1(Form) 中 (6, 4) 中的值，在 Sheet7 的 (Dates) 列 1 中找到该值

·         查找找到匹配项的行

·         在 Sheet7(row, 6) 处查找值

·         粘贴到 Sheet1(19, 5)

Sheet1 的标题是 Form，Sheet7 的标题是 Dates。

这是我写的代码。当我尝试运行它时，它在 Sheets("Dates") 处给我一个运行时错误“1004：应用程序定义或对象定义错误”......任何帮助将不胜感激。

 Option Explicit

Private Sub btnNext_Click()
        Dim ProjNo As String
        Dim ProjRow As Long
        Dim Found As Range   

    ProjNo = Worksheets("Form").Cells(6, 4).Value        

         Set Found = Sheets("Dates").Columns(1).Find(what:=ProjNo, LookIn:=xlValues, lookat:=xlWhole)

          If Found Is Nothing Then   
              MsgBox "Project not found."    
              EnterProj.Show    
         Else   
             ProjRow = Found.Row    
        End If        

          Sheets("Dates").Range(ProjRow, 6).Copy Destination:=Sheets("Form").Range(19, 5)    

End Sub

Answer 1

你没有正确使用Range Object，

例如

.Range(2,6)Cells(2,6)，范围参数必须是A1-style reference或other styles

替换

Sheets("Dates").Range(ProjRow, 6).Copy Destination:=Sheets("Form").Range(19, 5)

与

Sheets("Form").Cells(19, 5)=  Sheets("Dates").Cells(ProjRow, 6)