求连续点击指定单元格，在另一个指定单元格里循环显示0到9这十个数字的代码，谢谢！

TTZXX2016 · 发表于 2023-9-5 10:22

本帖最后由 TTZXX2016 于 2023-9-6 20:16 编辑

QQ截图20230905101758.png

2023-9-5.zip (2.02 KB, 下载次数: 7)

huanghai22 · 发表于 2023-9-5 10:29

是要这样吗？

yynrzwh · 发表于 2023-9-5 10:39

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$L$36" Then
If [c1] < 9 Then
[c1] = [c1] + 1
Else
[c1] = 0
End If
End If
End Sub

TTZXX2016 · 发表于 2023-9-5 11:13

huanghai22 发表于 2023-9-5 10:29
是要这样吗？

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

TTZXX2016 · 发表于 2023-9-5 11:14

yynrzwh 发表于 2023-9-5 10:39
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address ...

非常感谢老师，我换了事件后代码非常好用。

taller · 发表于 2023-9-5 11:29

TTZXX2016 · 发表于 2023-9-5 22:04

taller 发表于 2023-9-5 11:29

非常非常感谢老师，您的代码简单好用。

TTZXX2016 · 发表于 2024-3-26 10:23

2024-3-26.zip (6.89 KB, 下载次数: 4)

TTZXX2016 · 发表于 2024-3-26 10:24

taller 发表于 2023-9-5 11:29

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

taller · 发表于 2024-3-26 10:38

本帖最后由 taller 于 2024-3-26 13:28 编辑

修订：除非 = 触发

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

[已解决] 求连续点击指定单元格，在另一个指定单元格里循环显示0到9这十个数字的代码，谢谢！

评分

评分

评分

评分