Excel代码问题，非常感谢！

LSYYLW

quqiyuan 发表于 2024-12-16 20:05
代码如下。。。
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents =  ...

万万分的感谢老师，代码非常非常好用，再麻烦老师您一下，10楼附件里有一个修改代码的问题，还得仰仗老师您帮我解决一下，拜托您了！

quqiyuan

LSYYLW 发表于 2024-12-16 20:26
万万分的感谢老师，代码非常非常好用，再麻烦老师您一下，10楼附件里有一个修改代码的问题，还得仰仗老师 ...

quqiyuan

代码如下。。。。
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$K$1" Then
        crr = [f51:f150]
        ReDim arr(1 To UBound(crr), 0)
        arr(1, 0) = 0
        For i = 2 To UBound(crr)
            arr(i, 0) = 0
            If (crr(i, 1) Mod 10 = crr(i - 1, 1) Mod 10) And (crr(i - 1, 1) <> 0) Then
                arr(i, 0) = crr(i, 1)
            End If
        Next
        Beep
        [k51].Resize(UBound(arr)) = arr
    End If
    Application.EnableEvents = True
End Sub

LSYYLW

quqiyuan 发表于 2024-12-16 21:36

再次万万分的感谢老师，代码非常非常好用，您完美的为我解决了问题。

LSYYLW

2024-12-17---.zip (14.04 KB, 下载次数: 3)

2024-12-17 19:41 上传

点击文件名下载附件

quqiyuan

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

quqiyuan

代码如下，，，，
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim arr() As Integer
    Application.EnableEvents = False
    If Target.Address = "$K$1" Then
        crr = [f51:f150]
        ReDim arr(1 To UBound(crr), 0)
        For i = 3 To UBound(crr)
            If (crr(i, 1) Mod 10 = crr(i - 1, 1) Mod 10) And _
                    (crr(i, 1) Mod 10 = crr(i - 2, 1) Mod 10) And _
                    (crr(i - 1, 1) <> 0) And (crr(i - 2, 1) <> 0) Then
                arr(i, 0) = crr(i, 1)
            End If
        Next
        Beep
        [k51].Resize(UBound(arr)) = arr
    End If
    Application.EnableEvents = True
End Sub

LSYYLW

quqiyuan 发表于 2024-12-17 20:07
参与一下，仅供参考。。。

万万分的感谢老师，代码非常非常好用，鲜花稍后为您献上。