新人求助大神，帮看下代码，运行显示400

木之声

实现功能：计算员工活跃度，0代表缺席，1代表出席，算出连续出席的天数，并标色

木之声

新建 XLS 工作表.rar (54.08 KB, 下载次数: 8)

2019-9-9 09:23 上传

点击文件名下载附件

lh123lh1234

木之声 发表于 2019-9-9 09:24

运行正常啊，哪有400

木之声

lh123lh1234 发表于 2019-9-9 09:55
运行正常啊，哪有400

哥们  你说我这代码没问题是吧   但是我这excel 运行后返回代码窗口显示400，但是前17行数据被处理了   你用的是那个版本的excel  我这2013版

木之声

木之声 发表于 2019-9-9 10:12
哥们  你说我这代码没问题是吧   但是我这excel 运行后返回代码窗口显示400，但是前17行数据被处理了    ...

这是图片，你看下

lh123lh1234

木之声 发表于 2019-9-9 10:14
这是图片，你看下

我用2013也试了，也不报400啊，具体你这个执行什么操作我到没看，密密麻麻的，或者你把你单元格对象都指明一下簿和表对象吧，或者就把活动工作表自己定一下试试？
ThisWorkbook.Worksheets("Sheet1").Activate

YZC51

文件另存为xlsm格式 总列数超过256了
Sub color()
Dim isNUM As Boolean
Dim c, r, i, j As Integer
rr = Range("A65536").End(xlUp).Row
Range("A2:A" & rr).Select
i = 1
j = 1
    For r = 1 To Selection.Rows.Count Step 1
      For c = 3 To 171 'Selection.Columns.Count Step 1
        If Selection.Cells(r, c).Text = Selection.Cells(r, c - 1).Text Then
        i = i + 1
        Else
        Cells(Selection.Cells(r, c).Row, 171 + j).Value = i
        i = 1
        j = j + 1
     End If
     Selection.Cells(r, c).Interior.ColorIndex = i
    Next c
   Cells(Selection.Cells(r, c).Row, 171 + j).Value = i
   i = 1
    j = 1
    Next r
End Sub

木之声

YZC51 发表于 2019-9-9 11:25
文件另存为xlsm格式 总列数超过256了
Sub color()
Dim isNUM As Boolean

谢谢！就是总列数超过256了