自动变数字的效果

arrEH · 发表于 2018-12-14 16:50

本帖最后由 arrEH 于 2018-12-15 14:05 编辑

单击自动变数字的效果

02761752696 · 发表于 2018-12-14 18:50

工作表事件可以完成

arrEH · 发表于 2018-12-14 22:22

...... 再顶一下

小花鹿 · 发表于 2018-12-14 22:35

只有双击和右击事件，没有单击事件

arrEH · 发表于 2018-12-14 22:36

小花鹿发表于 2018-12-14 22:35
只有双击和右击事件，没有单击事件 ...

也就是点一下这个单元格，然后下1单元格就自动变的效果。

arrEH · 发表于 2018-12-15 12:25

...... 再顶一下

arrEH · 发表于 2018-12-15 15:16

...... 再顶一下

ivccav · 发表于 2018-12-15 22:32

本帖最后由 ivccav 于 2018-12-15 22:43 编辑

趣味题xxxxx.zip (12.41 KB, 下载次数: 4)

hdbk · 发表于 2018-12-15 22:37

Private Sub Worksheet_selectionchange(ByVal Target As Range)
i = Target.Column
For k = 6 To 30 Step 9
If Target.Row = 11 And Target.Column = k Then Cells(12, i).Value = 3
If Target.Row = 11 And Target.Column = k + 1 Then Cells(12, i).Value = 2
If Target.Row = 11 And Target.Column = k + 2 Then Cells(12, i).Value = 1
If Target.Row = 11 And Target.Column = k + 3 Then Cells(12, i).Value = 0
Next
End Sub

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

[求助] 自动变数字的效果

评分

评分

最新热点 /1