Excel代码问题，非常感谢！

LSYYLW

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

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)

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