根据条件点击指定单元格在指定单元格里显示数字的代码，非常感谢！

LSYYLW · 发表于 2021-4-1 12:30

2021-4-1.zip (5.15 KB, 下载次数: 1)

LSYYLW · 发表于 2021-4-1 12:32

清风竹- 发表于 2021-2-13 16:49
请看附件。

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

清风竹- · 发表于 2021-4-1 13:43

LSYYLW 发表于 2021-4-1 12:30

请看附件。

LSYYLW · 发表于 2021-4-1 14:26

2021-4-1-.zip (7.12 KB, 下载次数: 4)

LSYYLW · 发表于 2021-4-1 14:32

本帖最后由 LSYYLW 于 2021-4-1 14:33 编辑

清风竹- 发表于 2021-4-1 13:43
请看附件。

万分的感谢老师，让您受累了，再麻烦您帮我看一下124楼附件里的问题，帮我增加一个点击A18单元格后，再根据条件显示“中”字的功能，拜托您了！

清风竹- · 发表于 2021-4-1 16:13

LSYYLW 发表于 2021-4-1 14:32
万分的感谢老师，让您受累了，再麻烦您帮我看一下124楼附件里的问题，帮我增加一个点击A18单元格后，再根 ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Rows.Count + Target.Columns.Count > 2 Then Exit Sub
  If Target.Address = "$A$18" Then
   If [g11].Offset([e5].Value, 0) <> "" Then [g11].Offset([e5].Value, 0) = "中"
   Target.Offset(, 1).Select
End If
End Sub

LSYYLW · 发表于 2021-4-1 16:52

清风竹- 发表于 2021-4-1 16:13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count + Target.Colu ...

万万分的感谢老师，代码太好用了，您完美的帮我解决了问题。

LSYYLW · 发表于 2021-4-15 11:49

2021-4-15.zip (7.18 KB, 下载次数: 1)

LSYYLW · 发表于 2021-4-15 11:58

清风竹- 发表于 2021-4-1 16:13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count + Target.Colu ...

老师您好：非常抱歉，又来给您添麻烦了，您有时间帮我看一下128楼附件里的问题，问题复杂，敬请老师您抽出宝贵的时间帮我解决一下，拜托您了！

清风竹- · 发表于 2021-4-16 14:21

LSYYLW 发表于 2021-4-15 11:49

请测试一下。

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

[已解决] 根据条件点击指定单元格在指定单元格里显示数字的代码，非常感谢！

评分

评分

评分