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

一把小刀闯天下

'参与一下，59楼附件，，，

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$D$17" Then Exit Sub
  If [a8].Value = "单" Or [a8].Value = "双" Then [g17].Value = [g17].Value + 1
  If [g17].Value > 3 And [a8].Value = "单" Or [g17].Value > 5 And [a8].Value = "双" Then [g17].Value = 0
  Target.Offset(, 1).Select
End Sub

清风竹-

LSYYLW 发表于 2020-8-26 15:10

请看附件。

LSYYLW

清风竹- 发表于 2020-8-29 17:46
请看附件。

非常感谢老师，我测试了一下，A8显示“单”或“双”，点击D17时在G17里显示数字时都没有限制，点击一次，就向上增加一个数字，连续点击一直向上增长，老师您受累，有时间再帮我看看，拜托了！

LSYYLW

2020-9-1.zip (5.8 KB, 下载次数: 9)

2020-9-1 12:11 上传

点击文件名下载附件

LSYYLW

清风竹- 发表于 2020-8-29 17:46
请看附件。

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

一把小刀闯天下

'参与一下，64附件，，，

Option Explicit

Dim n

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$A$8" Then Exit Sub
  If Target.Value = "单" Then
    [d17] = 1: n = 0
  ElseIf Target.Value = "双" Then
    [d17] = 5: n = 4
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$D$17" Then Exit Sub
  If [a8].Value = "单" Or [a8].Value = "双" Then
    n = n + 1
    If [d17].Value = 1 Then
      If n >= 6 Then n = 6
      Cells(9 + n, "b") = n
    ElseIf [d17].Value = 5 Then
      If n >= 10 Then n = 10
      Cells(5 + n, "b") = n
    End If
  End If
  Target.Offset(, 1).Select
End Sub

清风竹-

LSYYLW 发表于 2020-9-1 12:12
老师您好：又来麻烦您了，您有时间的时候帮我看一下64楼附件里的问题，拜托您了！

请看附件。

LSYYLW

一把小刀闯天下 发表于 2020-9-2 20:01
'参与一下，64附件，，，

Option Explicit

万分的感谢老师。

LSYYLW

清风竹- 发表于 2020-9-3 15:44
请看附件。

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

LSYYLW

2020-9-22.zip (2.64 KB, 下载次数: 3)

2020-9-22 12:11 上传

点击文件名下载附件