Excel代码问题，非常感谢！

LSYYLW

2025-5-7.zip (14.29 KB, 下载次数: 2)

2025-5-7 08:50 上传

点击文件名下载附件

quqiyuan

quqiyuan

代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    arr = [l13:l92]
    s = [g14].Value
    x = Application.Match(s, arr, 0)
    If Target.Address = "$G$21" Then
        If x = 1 Then x = UBound(arr) + 1
        [g14] = Application.Index(arr, x - 1)
        [g14].Select
    ElseIf Target.Address = "$G$23" Then
        If x = UBound(arr) Then x = 0
        [g14] = Application.Index(arr, x + 1)
        [g14].Select
    End If
    Application.EnableEvents = True
End Sub

LSYYLW

quqiyuan 发表于 2025-5-7 09:37

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