Excel VBA DoubleClick：用符号replace数字

我有一个名为“整体”的Excel工作表。 在那里，A13，B13，C13和D14共有4个号码。 数字现在设置为0,1,3和4。

如何使用VBA双击其中一个数字并用符号replace它们？ 例如，如果我点击位于A13的数字0，我想要用代码“24EA”代替数字。 那个符号是一个0，周围有一个圆圈。 然后，我希望可以单击该数字，然后将其转为正常的0，而不是一个圆圈。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("A13:D13")) Is Nothing Then Exit Sub If Target.Value = "0" Then ActiveCell.FormulaR1C1 = ChrW(&H24EA) With Selection.Font .Name = "Calibri" .Size = 16 End With ElseIf ActiveCell.FormulaR1C1 = ChrW(&H24EA) Then Target = "0" With Selection.Font .Name = "Calibri" .Size = 9 End With End If 

这甚至是可能的 – 如果是的话，怎么可能呢？

Answer 1

在你的Worksheet的VBA模块中添加类似的东西

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) With ActiveCell Select Case .Value Case "0": .Value = ChrW("&H24EA") Case ChrW("&H24EA"): .Value = 0 ' untested ' ... End Select End With End Sub