[已解决]跪求大神給这段代码打个注释

zyning

Sub lqxs()
Dim Arr, i&, j&, s$
Sheet1.Activate
Arr = [h4:an65536]
For i = 1 To UBound(Arr) - 2
    For j = 1 To UBound(Arr, 2) - 2
        If Arr(i, j) > 0 And Arr(i + 1, j + 1) > 0 And Arr(i + 2, j + 2) > 0 Then
            s = s & Cells(i + 3, j + 7).Address(0, 0) & "|" & Cells(i + 4, j + 8).Address(0, 0) & "|" & Cells(i + 5, j + 9).Address(0, 0) & vbCrLf
        End If
    Next
Next
MsgBox s

End Sub

这是一位老师提供的代码，求帮忙给个注释帮助理解，非常感谢!
还有如果s=s那行，如何改写成if条件成立赋值1else赋值0到一列单元格

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-7-5 12:59

加注释方便理解。

1. Sub lqxs()
   
2. Dim Arr, brr, i&, j&, s$
   
3. Arr = Range("h4:an" & [an65536].End(3).Row)  '将数据区域装入数组Arr
   
4. ReDim brr(1 To UBound(Arr), 1 To 1)  '将数组brr调整至跟Arr数据行数一样，但仅有1列，不用一维数组的理由是不用转置
   
5. For i = 1 To UBound(Arr) - 2         '从数组Arr第一行循环遍历至倒数第三行，不到最后一行的理由是确认倒数第三行时会同时判断下面两行
   
6.     For j = 1 To UBound(Arr, 2) - 2    '从数组Arr第一列循环遍历至倒数第三列，不到最后一列的理由是确认倒数第三列时会同时判断后面两列
   
7.         If Arr(i, j) > 0 And Arr(i + 1, j + 1) > 0 And Arr(i + 2, j + 2) > 0 Then brr(i + 2, 1) = 1: Exit For
   
8.         '如果斜线排列的三个元素都大于0的话，就在brr数组相应行标记1，出现标记1之后，后面就没有判断的必要了，退出循环
   
9.     Next
   
10.     If brr(i + 2, 1) = "" Then brr(i + 2, 1) = 0   '如果一行循环结束后没有找到符合上述条件的组合，则在brr数组相应行填写0
    
11. Next
    
12. [ao4].Resize(UBound(brr)) = brr    '将brr数组输出至AO4为首的单元格区域（1列）
    
13. End Sub

复制代码

跳转到最佳答案楼层

chart888

怎么个赋值
在哪边赋值呢

zyning

chart888 发表于 2017-7-3 20:55
怎么个赋值
在哪边赋值呢

非常感谢，帮看一下附件，带花求解

大灰狼1976

先解决第一个问题，假设输出在AO列，后面不同规则的处理，原理跟这个是一样的，最好你自己修改代码试试。

1. Sub lqxs()
   
2. Dim Arr, brr, i&, j&, s$
   
3. Arr = Range("h4:an" & [an65536].End(3).Row)
   
4. ReDim brr(1 To UBound(Arr), 1 To 1)
   
5. For i = 1 To UBound(Arr) - 2
   
6.     For j = 1 To UBound(Arr, 2) - 2
   
7.         If Arr(i, j) > 0 And Arr(i + 1, j + 1) > 0 And Arr(i + 2, j + 2) > 0 Then brr(i + 2, 1) = 1: Exit For
   
8.     Next
   
9.     If brr(i + 2, 1) = "" Then brr(i + 2, 1) = 0
   
10. Next
    
11. [ao4].Resize(UBound(brr)) = brr
    
12. End Sub

复制代码

大灰狼1976

加注释方便理解。

1. Sub lqxs()
   
2. Dim Arr, brr, i&, j&, s$
   
3. Arr = Range("h4:an" & [an65536].End(3).Row)  '将数据区域装入数组Arr
   
4. ReDim brr(1 To UBound(Arr), 1 To 1)  '将数组brr调整至跟Arr数据行数一样，但仅有1列，不用一维数组的理由是不用转置
   
5. For i = 1 To UBound(Arr) - 2         '从数组Arr第一行循环遍历至倒数第三行，不到最后一行的理由是确认倒数第三行时会同时判断下面两行
   
6.     For j = 1 To UBound(Arr, 2) - 2    '从数组Arr第一列循环遍历至倒数第三列，不到最后一列的理由是确认倒数第三列时会同时判断后面两列
   
7.         If Arr(i, j) > 0 And Arr(i + 1, j + 1) > 0 And Arr(i + 2, j + 2) > 0 Then brr(i + 2, 1) = 1: Exit For
   
8.         '如果斜线排列的三个元素都大于0的话，就在brr数组相应行标记1，出现标记1之后，后面就没有判断的必要了，退出循环
   
9.     Next
   
10.     If brr(i + 2, 1) = "" Then brr(i + 2, 1) = 0   '如果一行循环结束后没有找到符合上述条件的组合，则在brr数组相应行填写0
    
11. Next
    
12. [ao4].Resize(UBound(brr)) = brr    '将brr数组输出至AO4为首的单元格区域（1列）
    
13. End Sub

复制代码

zyning

大灰狼1976 发表于 2017-7-5 12:59
加注释方便理解。

非常感谢，茅塞顿开，好厉害

zyning

大灰狼1976 发表于 2017-7-5 12:59
加注释方便理解。

只是花不知道为什么只能选一朵，想都送你这里，哈哈，要不你再随意回复下，我再加送

zyning

大灰狼1976 发表于 2017-7-5 12:51
先解决第一个问题，假设输出在AO列，后面不同规则的处理，原理跟这个是一样的，最好你自己修改代码试试。

您好，还要再请教一下，您指点的情况如果变成下面事例的第二种排列，代码该如何调整

	1
		2
			3
			1
		2
	3

非常感谢！！！

zyning

zyning 发表于 2017-7-5 22:35
您好，还要再请教一下，您指点的情况如果变成下面事例的第二种排列，代码该如何调整
非常感谢！！！

已解决，谢谢