Question

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

·获取Sheet1（Form）中的（6,4）中的值，并在Sheet7的（日期）第1列中找到该值

·找到找到此匹配的行

·在Sheet7（第6行）

中查找值

·将其粘贴到Sheet1（19,5）

Sheet1标题为Form，Sheet7标题为Dates。

这是我写的代码。当我尝试运行它时，它在Sheets（“日期”）给我一个运行时错误'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)＆lt;＆gt; 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)

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

1 个答案: