急急急! 打√问题继续......

YZC51 · 发表于 2019-8-27 21:45

slj0507604 发表于 2019-8-27 21:41
还是编译错误发现二义性的名称:Worksheet_SelectionChange.

另还加了个配方的也要打√,怎么做呀!
...

配方和这个在一个表吗？

slj0507604 · 发表于 2019-8-27 21:47

YZC51 发表于 2019-8-27 21:45
配方和这个在一个表吗？

恩是的,都是一个表的,有4个地方要打√

YZC51 · 发表于 2019-8-27 22:03

slj0507604 发表于 2019-8-27 21:47
恩是的,都是一个表的,有4个地方要打√

上传模拟附件吧！

slj0507604 · 发表于 2019-8-27 22:06

YZC51 发表于 2019-8-27 22:03
上传模拟附件吧！

二义性问题.rar (18.22 KB, 下载次数: 2)

开始不是传了一个吗

slj0507604 · 发表于 2019-8-27 22:34

slj0507604 发表于 2019-8-27 22:06
开始不是传了一个吗

帮帮忙吧!不然月底做不完表了!

YZC51 · 发表于 2019-8-27 22:35

是两个功能在一个工作表内的附件

slj0507604 · 发表于 2019-8-27 22:40

YZC51 发表于 2019-8-27 22:35
是两个功能在一个工作表内的附件

恩!全在一个工作表内!4个不同的地方打√

三个配方,和一个计工时

slj0507604 · 发表于 2019-8-27 22:46

slj0507604 发表于 2019-8-27 22:06
开始不是传了一个吗

这4个红圈的地方要打√, 独立的

YZC51 · 发表于 2019-8-27 22:54

本帖最后由 YZC51 于 2019-8-28 11:05 编辑

请参考
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Union([s3:w3], [z3], [ab3], [C3:F16], [AO3:AQ3])) Is Nothing Then Exit Sub
If Target.CountLarge > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Column = 41 Or Target.Column = 43 Then
   [AO3:AQ3] = ""
   Target.Value = "√"
   Range("AR4:AR8").Value = Target.Offset(1).Resize(5, 1).Value
ElseIf Target.Column > 25 And Target.Column < 41 Then
   [z3:ab3] = ""
   Target.Value = "√"
ElseIf Target.Column > 17 Then
   Range("s3:w3").ClearContents
   Target.Value = "√"
End If
With Target
   If .Row > 1 And .Column > 2 And .Column < 7 And Cells(.Row, 2) <> "" Then
      If .Value = "√" Then .Value = "" Else .Value = "√"
   End If
End With
Application.EnableEvents = True
End Sub

YZC51 · 发表于 2019-8-27 22:57

需要附件，等花花后传

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

[求助] 急急急! 打√问题继续......

评分

评分