请老师们帮忙拓展一下 原代码。有关遗漏统计图的。

1234vba

附件地址下载：
跨度遗漏走势.rar (23.61 KB, 下载次数: 5)

2018-8-9 17:43 上传

点击文件名下载附件

表格是很久之前下载论坛的。。
非常感谢mxg825老师。

原表格是 针对3列数据的 遗漏统计图
现要求改成 针对5列数据的 遗漏统计图

我尝试修改过，
不是提示Else没有IF，就是提示下标越界
关键代码部分

                   '******************这是百，十，个位的遗漏代码***************************
                        If X = 1 Then
                             Arr2(X, (Y - 1) * 10 + Z) = 1
                             
                        ElseIf Not IsNumeric(Arr2(X - 1, (Y - 1) * 10 + Z)) Then
                             Arr2(X, (Y - 1) * 10 + Z) = 1
                        Else
                             Arr2(X, (Y - 1) * 10 + Z) = Val(Arr2(X - 1, (Y - 1) * 10 + Z) + 1)
                        End If
                    '******************这是0-9综合分布遗漏代码***************************
                     If Y = 1 Then
                        If X = 1 Then
                             Arr2(X, 3 * 10 + Z) = 1
                        ElseIf Not IsNumeric(Arr2(X - 1, 3 * 10 + Z)) Then
                             Arr2(X, 3 * 10 + Z) = 1
                        Else
                             Arr2(X, 3 * 10 + Z) = Val(Arr2(X - 1, 3 * 10 + Z) + 1)
                        End If
                    End If

我改成这样子，

          If X = 1 Then
                             Arr2(X, (Y - 1) * 10 + Z) = 1
                             
                        ElseIf Not IsNumeric(Arr2(X - 1, (Y - 1) * 10 + Z)) Then
                             Arr2(X, (Y - 1) * 10 + Z) = 1
                        ElseIf Not IsNumeric(Arr2(X - 2, (Y - 2) * 10 + Z)) Then
                             Arr2(X, (Y - 2) * 10 + Z) = 1
                        ElseIf Not IsNumeric(Arr2(X - 3, (Y - 3) * 10 + Z)) Then
                             Arr2(X, (Y - 3) * 10 + Z) = 1
                        Else
                             Arr2(X, (Y - 4) * 10 + Z) = Val(Arr2(X - 4, (Y - 4) * 10 + Z) + 1)
                        End If

执行后 ，报错---下标越界


请各位老师帮忙修改代码

1234vba

请各位老师帮忙，，万分感谢

1234vba

各位老师早上好

1234vba

各位老师晚上好

不知道为什么

很久之前是多久啊？

1234vba

不知道为什么 发表于 2018-8-11 22:55
很久之前是多久啊？

08,09年哦。。。隔壁论坛搜索到的