选中的单元格，双击字体改红色

summerlcb

选中单元格，通过双击判断：
情况1：字体不是红色的时候，字体改为红色

情况2：字体是红色的时候，字体改为默认的黑色

请问老师，以上命令怎么写，谢谢！

ynzsvt

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. Target.Font.Color = vbRed - Target.Font.Color
   
3. End Sub

复制代码

niko88819

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     If Target.Font.Color = RGB(255, 0, 0) Then
   
3.         Target.Font.Color = RGB(0, 0, 0)
   
4.     Else
   
5.         Target.Font.Color = RGB(255, 0, 0)
   
6.     End If
   
7. End Sub

复制代码

ykcbf1100

参与一下。

ykcbf1100

双击单元格事件

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     If Target.Font.ColorIndex = 3 Then
   
3.         Target.Font.ColorIndex = 0
   
4.     Else
   
5.         Target.Font.ColorIndex = 3
   
6.     End If
   
7. End Sub
   

复制代码