本帖最后由 jmgyb 于 2014-3-7 15:20 编辑
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:45 编辑
jmgyb 发表于 2014-3-7 15:21
我已经把附件发上去了,帮我看看好吗?
你的是 xls格式的excel 意味的最大的行数是256 列 你的这个运行宏 大于256 列 所以报错 如果你是10版本的excel的话 你存为 xlsm 格式的就可以了
|