Excel代码问题，非常感谢！

LSYYLW

2024-9-29.zip (16.51 KB, 下载次数: 4)

2024-9-28 16:50 上传

点击文件名下载附件

chxw68

很好奇，VBA程序对中奖有帮助吗？

DevilW

人还是要有梦想，万一实现了呢！

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$P$1" Then
        arr = [E13:O681]
        ReDim brr(1 To 6, 1 To UBound(arr, 2))
        For j = 1 To UBound(arr, 2)
            n = 0: m = 7
            For i = UBound(arr) To 2 Step -1
                n = n + 1
                If arr(i, j) = 0 And arr(i - 1, j) <> 0 Then
                    m = m - 1
                    If m < 1 Then Exit For Else brr(m, j) = n
                    n = 0
                ElseIf arr(i, j) <> 0 And arr(i - 1, j) = 0 Then
                    m = m - 1
                    If m < 1 Then Exit For Else brr(m, j) = n
                    n = 0
                End If
            Next
        Next
        [q7:aa12] = brr
    End If
End Sub

LSYYLW

quqiyuan 发表于 2024-9-28 17:55
代码如下。。。

Private Sub Worksheet_Change(ByVal Target As Range)

万分的感谢老师，代码非常好用。

chujin

科学地分析，对中奖是在帮助的，起码不乱买！我都是玩双色球