Excel VBA DoubleClick：数字を記号に置き換えてください

Question

"全体的"というExcelワークシートがあります。ここには、A13、B13、C13、D14に計4つの数字が記載されています。数字は0,1,3、および4に設定されました。

VBAを使用して数字のうちの1つをダブルクリックして記号に置き換える方法を教えてください。たとえば、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

は、あなたが何をしようとしたことがあり

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