Excel代码问题，非常感谢！

LSYYLW

2024-8-18.zip (2.43 KB, 下载次数: 4)

2024-8-18 19:47 上传

点击文件名下载附件

jaxxcyh

不知这种操作会用在什么场合，作法么？

quqiyuan

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

liulang0808

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) = "D11" Then
        arr = Array(5, 8, 10, 22, 64)
        If [h11] = 0 Then
            For j = 0 To UBound(arr)
                Cells(11 + j * 2, "h") = arr(j)
            Next j
        Else
            For j = 0 To UBound(arr)
                Cells(11 + j * 2, "h") = 0
            Next j
        End If
    End If
End Sub

quqiyuan

代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal T As Range)
    If T.Address = "$D$11" Then
        Application.EnableEvents = False
        If [h11] = 0 Then
            [h11] = 5: [h13] = 8: [h15] = 10: [h17] = 22: [h19] = 64
        Else
            [h11,h13,h15,h17,h19] = 0
        End If
        Application.EnableEvents = True
    End If
End Sub

liulang0808

附件内容供参考。。。。。。。。。。。。。。

LSYYLW

quqiyuan 发表于 2024-8-18 20:12
代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal T As Range)
    If T.Address = "$D$11"  ...

非常感谢老师，代码非常好用。

LSYYLW

liulang0808 发表于 2024-8-18 20:12
附件内容供参考。。。。。。。。。。。。。。

非常感谢老师，代码非常好用。