[已解决]每次运行到这一句就报错，提示信息：“运行时错误1004，应用程序定义或对象定义错误”

jmgyb

Private Sub CommandButton1_Click()

  Dim i As Integer, Hanghao As Integer, weihao As Integer, Bai As Integer, Shi As Integer, Ge As Integer

    Worksheets("一").Activate

      Hanghao = TextBox1.Value

        Bai = Sheets("一").Range("c1").Value

        Shi = Sheets("一").Range("d1").Value

        Ge = Sheets("一").Range("e1").Value

        For i = 3 To 307

          weihao = Worksheets("一").Cells(Hanghao, i).Value    运行到这一句时总是提示“运行时错误1004应用程序定义或对象定义错误”

          If weihao = Bai Then

              Cells(Hanghao, i).Interior.ColorIndex = 38

            ElseIf weihao = Shi Then

              Cells(Hanghao, i).Interior.ColorIndex = 38

            ElseIf weihao = Ge Then

              Cells(Hanghao, i).Interior.ColorIndex = 38

            Else

          End If

        Next i

    UserForm1.Hide

End Sub

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2014-3-7 15:44

jmgyb 发表于 2014-3-7 15:21
我已经把附件发上去了，帮我看看好吗？

你的是 xls格式的excel  意味的最大的行数是256 列 你的这个运行宏 大于256  列  所以报错  如果你是10版本的excel的话 你存为 xlsm 格式的就可以了

跳转到最佳答案楼层

我心飞翔410

弄个附件看看

hwc2ycy

在这一行下断点，检查工作表表名是否有误，hanghao变量的值。

jmgyb

我心飞翔410 发表于 2014-3-7 09:58
弄个附件看看

我已经把附件发上去了，帮我看看好吗？

我心飞翔410

jmgyb 发表于 2014-3-7 15:21
我已经把附件发上去了，帮我看看好吗？

你的是 xls格式的excel  意味的最大的行数是256 列 你的这个运行宏 大于256  列  所以报错  如果你是10版本的excel的话 你存为 xlsm 格式的就可以了

問天

学习帮顶