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

LSYYLW

2020-6-1.zip (3.3 KB, 下载次数: 41)

2020-6-1 19:01 上传

点击文件名下载附件

一把小刀闯天下

'估计是这样的，，，

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$C$36" Then Exit Sub
  If [l23].Value = "单" Then
    If Len([l25].Value) = 0 Then
      [l25] = 1
    Else
      If [l25].Value = 11 Then
        [l25] = 1
      Else
        [l25].Value = [l25].Value + 1
      End If
    End If
  ElseIf [l23].Value = "双" Then
    If Len([m25].Value) = 0 Then
      [m25] = 1
    Else
      If [m25].Value = 11 Then
        [m25] = 1
      Else
        [m25].Value = [m25].Value + 1
      End If
    End If
  End If
  Target.Offset(, 1).Select
End Sub

清风竹-

请看附件。


本附件已更新，重新下载。

LSYYLW

一把小刀闯天下 发表于 2020-6-1 20:20
'估计是这样的，，，

Option Explicit

非常感谢老师，鲜花明天为您献上。

LSYYLW

清风竹- 发表于 2020-6-1 21:00
请看附件。

非常感谢老师，代码非常好用，鲜花明天为您献上。

LSYYLW

清风竹- 发表于 2020-6-1 21:00
请看附件。

万分的感谢老师，让您费心了。

LSYYLW

2020-6-2.zip (3.83 KB, 下载次数: 39)

2020-6-2 12:04 上传

点击文件名下载附件

LSYYLW

清风竹- 发表于 2020-6-1 21:00
请看附件。

老师您好：又来麻烦您了，还是本版的问题，我又修改了在L23里显示“单“时之后的显示条件，拜托老师您有时间的时候帮我看看，附件在7楼，非常感谢！

一把小刀闯天下

'可能是这意思的，，，

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$C$36" Then Exit Sub
  Static p, m, n
  If [l23].Value = "单" Then
    If Len([l18].Value) + Len([l25].Value) = 0 Then
      p = 13: n = 0
      [l18] = [a13].Value: [l25] = 1
    Else
      If p < 13 Or p > 18 Then p = 13
      n = n + 1
      [l25] = n: [l18] = Range("a" & p)
      If [l25].Value = 11 Then
        n = 0: p = p + 1
        If p = 19 Then p = 13
      End If
    End If
  ElseIf [l23].Value = "双" Then
    If Len([l25].Value) = 0 Then
      [l25] = 1: [m25] = [l25]
    Else
      If [m25].Value >= 11 Then
        If [l25].Value = 11 Then
          [l25] = 1
        Else
          [l25] = [l25].Value + 1
        End If
        [m25] = [l25].Value
      Else
        [m25].Value = [m25].Value + 1
      End If
    End If
  End If
  Target.Offset(, 1).Select
End Sub

清风竹-

LSYYLW 发表于 2020-6-2 12:05

请看附件。