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

slj0507604 · 发表于 2019-8-26 22:11

附件.rar (17.51 KB, 下载次数: 15)

想模仿,没成功,亲水这边不会做了.

YZC51 · 发表于 2019-8-26 22:48

本帖最后由 YZC51 于 2019-8-26 22:51 编辑

请参考
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Union(Range("s3:w3"), [z3], [ab3])) Is Nothing Then Exit Sub
If Target.CountLarge > 1 Then Exit Sub
Application.EnableEvents = False
Union(Range("s3:w3"), [z3], [ab3]) = ""
' Range("s3:w3").ClearContents
Target.Value = "√"
Range("a1").Activate
Application.EnableEvents = True
End Sub

slj0507604 · 发表于 2019-8-26 22:59

YZC51 发表于 2019-8-26 22:48
请参考
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Union ...

谢谢回复!这个表的两个方案同时存在的.一个方案一个√

亲水方案能打√了,但君山的√没了.

wodewan · 发表于 2019-8-26 23:00

见附件，不知道是不是这样的，这边选了那边也不变。

YZC51 · 发表于 2019-8-26 23:05

slj0507604 发表于 2019-8-26 22:59
谢谢回复!这个表的两个方案同时存在的.一个方案一个√

亲水方案能打√了,但君山的√没了.

这样试试
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Union(Range("s3:w3"), [z3], [ab3])) Is Nothing Then Exit Sub
If Target.CountLarge > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Column > 25 Then
[z3:ab3] = ""
Else
Range("s3:w3").ClearContents
End If
Target.Value = "√"
Range("a1").Activate
Application.EnableEvents = True
End Sub

slj0507604 · 发表于 2019-8-26 23:28

YZC51 发表于 2019-8-26 23:05
这样试试
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Un ...

OK! 就是这样.真的万分感谢!

slj0507604 · 发表于 2019-8-26 23:29

wodewan 发表于 2019-8-26 23:00
见附件，不知道是不是这样的，这边选了那边也不变。

谢谢回复!不过附件打不开.

slj0507604 · 发表于 2019-8-27 20:08

YZC51 发表于 2019-8-26 23:05
这样试试
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Un ...

大哥,还能帮帮忙不!
1.还要加个配方
2.我添加了一个计工时的,但和你代码二义,不知道怎么弄.

要求在附件内!
谢谢

奥斯丁.rar (19.47 KB, 下载次数: 1)

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

覆盖原来代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If .CountLarge > 1 Then Exit Sub
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 If
End With
End Sub

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

YZC51 发表于 2019-8-27 21:16
覆盖原来代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If .CountLarge > 1 Th ...

还是编译错误发现二义性的名称:Worksheet_SelectionChange.

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

麻烦啦再给我看看吧!

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

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

最新热点 /1