鼠标只能在一个表上面,显示其他表的提示有意义吗?这些表的列和行和数据都完全一样?
计划管理
If (Date.now-cdate(vars("ltime"))).Totalseconds >= 3 Then
MyTimers("计划1").Enabled = False
Dim v As String = "正常无异味"
Tables(vars("n")).ShowToolTip(v, vars("r"), vars("c"), 5000)
End If
mouseentercell
vars("ltime") = Date.now
vars("r") = e.Row
vars("c") = e.Col
vars("n") = e.table.name
If e.Col.Name = "第二列" Then
MyTimers("计划1").Interval = 500
MyTimers("计划1").Enabled = True
Else
MyTimers("计划1").Enabled = False
End If