Excel代码问题，非常感谢！

LSYYLW · 发表于 2024-10-20 16:14

2024-10-20-.zip (2.07 KB, 下载次数: 5)

quqiyuan · 发表于 2024-10-20 16:29

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

quqiyuan · 发表于 2024-10-20 16:30

代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$B$12" Then
      If [f14] + [f15] = 0 And [h13] + [h14] + [h15] = 0 Then
         [f14:f15] = 1: [h13:h15] = 1
      Else
         [f14:f15] = 0: [h13:h15] = 0
      End If
      [f14].Select
End If
Application.EnableEvents = True
End Sub

ykcbf1100 · 发表于 2024-10-20 16:30

附件供参考，工作表事件

ykcbf1100 · 发表于 2024-10-20 16:31

参与一下。。。

LSYYLW · 发表于 2024-10-20 16:37

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

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

LSYYLW · 发表于 2024-10-20 16:41

ykcbf1100 发表于 2024-10-20 16:31
参与一下。。。

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

LSYYLW · 发表于 2024-10-29 08:41

本帖最后由 LSYYLW 于 2024-10-29 09:58 编辑

2024-10-29--.zip (3.37 KB, 下载次数: 5)

LSYYLW · 发表于 2024-10-29 08:46

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

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

quqiyuan · 发表于 2024-10-29 11:33

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

		自动登录	找回密码
密码			免费注册

[求助] Excel代码问题，非常感谢！

评分

评分

评分

评分

评分