实现效果如下GIF:
参考代码如下:
文字代码如下:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub '如果单元格数量大于1退出程序
If Target.Value = "" Then Exit Sub '单元格空白,退出程序
s = Val(Target.Value) '将单元格值转换为数值,以防有字符型数字
Target = Replace(Target.Value, s, s + 1) '代替原来的单元格数值
End Sub
閱讀更多 套路Excel 的文章