Excel代码问题，非常感谢！

LSYYLW

2024-11-25.zip (3.02 KB, 下载次数: 3)

2024-11-24 16:26 上传

点击文件名下载附件

ykcbf1100

你的问题是真的多啊。

LSYYLW

ykcbf1100 发表于 2024-11-24 16:35
你的问题是真的多啊。

惭愧呀！

quqiyuan

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

quqiyuan

代码如下。。。
   
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$N$1" Then
        arr = [t1:ac1]
        crr = [t68:ac68]
        brr = arr
        For i = 1 To UBound(brr, 2)
            brr(1, i) = crr(1, i) + 1
        Next
        brr(1, Application.Match([n1], arr, 0)) = 0
        [t69].Resize(, UBound(brr, 2)) = brr
        Beep
    End If
    Application.EnableEvents = True
End Sub
   

LSYYLW

quqiyuan 发表于 2024-11-24 16:58
代码如下。。。
   
Private Sub Worksheet_Change(ByVal Target As Range)

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

LSYYLW

2024-12-16.zip (8.76 KB, 下载次数: 3)

2024-12-15 14:09 上传

点击文件名下载附件

chxw68

详见附件。

quqiyuan

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

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 Then
                arr(i, 0) = crr(i, 1)
            End If
        Next
        Beep
        [k51].Resize(UBound(arr)) = arr
    End If
    Application.EnableEvents = True
End Sub