Excel2003代码问题，非常感谢！

LSYYLW

拜托老师了！

2019-3-13.zip (1.84 KB, 下载次数: 3)

2019-3-13 17:59 上传

点击文件名下载附件

一把小刀闯天下

Option Explicit

Dim flag As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$K$17" Then Exit Sub
  With Sheets("sheet1")
    If flag = 0 Then flag = 1: .[h3] = "多少" Else flag = 0: .[h3] = "距离"
  End With
End Sub

LSYYLW

一把小刀闯天下 发表于 2019-3-13 19:22
Option Explicit

Dim flag As Long

非常感谢老师，再麻烦您一下，帮我看看问题这样能不能实现，就是点击K17单元格在Sheet1的H3里显示“多少”后，不用再点击别的任何单元格，间隔1秒以上再点击K17单元格就能在Sheet1的H3里显示“距离”，拜托了！

一把小刀闯天下

'试一下，1s间隔可能太少，，，

Option Explicit

Dim flag As Long, tm

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$K$17" Then Exit Sub
  With Sheets("sheet1")
    If Timer - tm >= 1 Or flag = 0 Then
      flag = 1: .[h3] = "多少"
      tm = Timer
    Else
      flag = 0: .[h3] = "距离"
    End If
  End With
End Sub

a18b88

点击不同工作表完成转换 点击不同工作表Sheet1h3变换.rar (7.71 KB, 下载次数: 3)

2019-3-13 20:20 上传

点击文件名下载附件

LSYYLW

一把小刀闯天下 发表于 2019-3-13 20:09
'试一下，1s间隔可能太少，，，

Option Explicit

非常感谢老师，我的意思是不用点击别的单元格进行转换，就是直接点击K17那一个单元格，再次点击须间隔1秒以上，才能进行文字转换，这样不知道能不能实现，拜托了！

一把小刀闯天下

LSYYLW 发表于 2019-3-13 20:33
非常感谢老师，我的意思是不用点击别的单元格进行转换，就是直接点击K17那一个单元格，再次点击须间隔1秒 ...

'SelectionChange不能连续点击，变通了一下，看看是不是这意思，，，

Option Explicit

Dim flag As Long, tm

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$K$17" Then Exit Sub
  Application.EnableEvents = False
  Target.Offset(1).Select
  If Timer - tm < 1 Then Application.EnableEvents = True: Exit Sub
  With Sheets("sheet1")
    If flag = 0 Then
      flag = 1: .[h3] = "多少"
      tm = Timer
    Else
      flag = 0: .[h3] = "距离"
    End If
  End With
  Application.EnableEvents = True
End Sub

LSYYLW

一把小刀闯天下 发表于 2019-3-13 20:50
'SelectionChange不能连续点击，变通了一下，看看是不是这意思，，，

Option Explicit

万分的感谢老师，就是这个意思，让您费心了，麻烦老师您再帮我一个忙，就是把结果文字显示在本版面的N20里，还有就是自动转换到K18单元格的，能不能转换到L17里，这样该怎样修改您的公式，拜托了！

一把小刀闯天下

Option Explicit

Dim flag As Long, tm

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$K$17" Then Exit Sub
  Application.EnableEvents = False
  Target.Offset(, 1).Select
  If Timer - tm < 1 Then Application.EnableEvents = True: Exit Sub
  If flag = 0 Then
    flag = 1: [n20] = "多少"
    tm = Timer
  Else
    flag = 0: [n20] = "距离"
  End If
  Application.EnableEvents = True
End Sub

LSYYLW

一把小刀闯天下 发表于 2019-3-13 21:17
Option Explicit

Dim flag As Long, tm

万分的感谢老师，连续的麻烦您实在是不好意思，我想在K17以下增加多个相同条件的问题，结果显示在N20以下，该怎样随意的加入您的代码，拜托了！