Excel代码问题，非常感谢！

LSYYLW

quqiyuan 发表于 2024-10-10 15:29
代码如下。。。
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents =  ...

老师您好：今天又来麻烦您了，您有时间帮我看一下10楼附件里的问题，拜托您了！

quqiyuan

LSYYLW 发表于 2024-10-10 16:46
老师您好：今天又来麻烦您了，您有时间帮我看一下10楼附件里的问题，拜托您了！

参考一下。。。

quqiyuan

代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$K$17" Then
        If [p18].Value > 0 Then [p18].Value = [p18].Value - 1 Else [p18].Value = 7
    End If
    If Target.Address = "$K$19" Then
        If [p18].Value < 7 Then [p18].Value = [p18].Value + 1 Else [p18].Value = 0
    End If
    [p18].Select
    Application.EnableEvents = True
End Sub

LSYYLW

quqiyuan 发表于 2024-10-10 17:06
代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Enable ...

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

LSYYLW

2024-10-12.zip (10.22 KB, 下载次数: 2)

2024-10-11 12:00 上传

点击文件名下载附件

LSYYLW

quqiyuan 发表于 2024-10-10 17:06
代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Enable ...

老师您好：今天又来麻烦您了，您有时间帮我看一下15楼附件里的文字，帮我解决一下，拜托您了！

quqiyuan

LSYYLW 发表于 2024-10-11 12:01
老师您好：今天又来麻烦您了，您有时间帮我看一下15楼附件里的文字，帮我解决一下，拜托您了！

开始运行出错，调整了下就好了，仅供参考。。。

quqiyuan

代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$H$14" Then
        rr = Val(Range("H13"))
        If rr >= 7 Then
            rr = -1
        End If
        Range("H13") = rr + 1
        Range("h13").Select
    End If
    If Target.Address = "$H$22" Then
        ss = Range("n3:n82")
        s = [d1]
        If s = "" Then
            [d1] = ss(i, 1)
        Else
            w = Application.Match(s, ss, 0)
            If w = UBound(ss) Then w = 0
            [d1] = ss(w + 1, 1)
        End If
        [e2].Select
    End If
    If Not Intersect(Target, [h23:h32]) Is Nothing Then
        [d1] = Target.Value
    End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$H$13" Then
        arr = [n3:n82]
        ReDim brr(1 To 10, 1 To 1)
        For i = 1 To 10
            brr(i, 1) = arr(Target.Value * 10 + i, 1)
        Next
        [h23].Resize(10) = brr
    End If
    Application.EnableEvents = True
End Sub

LSYYLW

quqiyuan 发表于 2024-10-11 12:26
开始运行出错，调整了下就好了，仅供参考。。。

非常感谢老师，这回好用了，让您费心了。

LSYYLW

2024-10-13---.zip (10.55 KB, 下载次数: 2)

2024-10-13 10:12 上传

点击文件名下载附件