点击单元格里数字0-9显示到指定位置的代码，非常感谢！

LSYYLW

2020-6-6.zip (2.06 KB, 下载次数: 4)

2020-6-6 22:48 上传

点击文件名下载附件

lwwy1981

TTZXX2016

lwwy1981 发表于 2020-6-6 23:26

非常感谢老师，代码非常好用，再麻烦老师您一下，如果E6里显示的不是“计”字，是别的什么字时，再点击E8到E17里的数字时，就不用在E19里显示新的数字了，点击E19时也不能把E19里原来的数字显示到O3里，这样该怎样在您的代码上添加语句才能实现，拜托了！

一把小刀闯天下

'估计是这意思，，，

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If [e6].Value <> "计" Then Exit Sub
  If Target.Rows.Count + Target.Columns.Count > 2 Then Exit Sub
  If Not Intersect([e8:e17], Target) Is Nothing Then
    [e19] = CStr([e19].Value) & Target.Value
    Target.Offset(, 1).Select
  ElseIf Target.Address = "$E$19" Then
    [o3] = [e19].Value
    [e19].ClearContents
  End If
End Sub

LSYYLW

一把小刀闯天下 发表于 2020-6-7 08:17
'估计是这意思，，，

Option Explicit

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