运行时错误'1004'应用程序定义或对象定义错误,高手帮我看看

yidcel

运行时错误'1004'应用程序定义或对象定义错误,这是怎么回事哦,高手帮我看看

Sub Macro1()
Dim 建设工程 As Integer
Dim 规划选址 As Integer
Dim 详细规划 As Integer
Dim 建设用地 As Integer
Dim 规划修改 As Integer
Dim 建筑方案 As Integer
Dim counter_项目总数 As Integer
建设工程 = 规划选址 = 详细规划 = 建设用地 = 规划修改 = 建筑方案 = 0
counter_项目总数 = Sheet1.Cells(d, 2).Value       '发生错误的地方
For counter = 2 To counter_项目总数
    Select Case Sheet1.Cells(d, counter).Value
    Case "建设工程"
        建设工程 = 建设工程 + Sheet1.Cells(d, counter).Value
    Case "规划选址"
        规划选址 = 规划选址 + Sheet1.Cells(d, counter).Value
    Case "详细规划"
        详细规划 = 详细规划 + Sheet1.Cells(d, counter).Value
    Case "建设用地"
        建设用地 = 建设用地 + Sheet1.Cells(d, counter).Value
    Case "规划修改"
        规划修改 = 规划修改 + Sheet1.Cells(d, counter).Value
    Case "建筑方案"
        建筑方案 = 建筑方案 + Sheet1.Cells(d, counter).Value
    End Select
    Next counter
    Sheet1.Cells(J, 1) = "建设工程：" & 建设工程 & "；规划选址：" & 规划选址 & "；详细规划" & 详细规划 & "；建设用地" & 建设用地 & "；规划修改" & 规划修改 & "；建筑方案" & 建筑方案
End Sub

yidcel

没人会吗?555

maedatoshiie

你想找的那个位置是D2吗？如果是的话，写法有两种：
1、counter_项目总数 = Sheet1.Cells(2,4)
2、counter_项目总数 = Sheet1.Range("D",2)
value可以不用写。

maedatoshiie

应该是：counter_项目总数 = Sheet1.Range("D"&2)
这是查过书的，不会错了。