Question

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

如何使用VBA双击其中一个数字并用符号替换它们？例如，如果我单击位于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

将类似内容添加到工作表的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

Excel VBA DoubleClick：使用符号替换数字

1 个答案: