如何实现Excel单元格点击循环切换字体颜色与删除线样式

Got it, let's get this click-triggered formatting cycle set up for your cell A2. Excel doesn't have built-in tools for this kind of interactive state change, so we'll use a simple VBA macro to make it work. Here's a step-by-step breakdown:

Step 1: Create the VBA Macros #

1. Open your Excel file and press Alt + F11 to launch the VBA Editor.
2. Right-click your workbook in the left-side Project Explorer → select Insert → Module.
3. Paste the following code into the module window:

Sub TogglePainCell()
    ' Replace "Sheet1" with your actual worksheet name (e.g., "LogSheet")
    Dim targetCell As Range
    Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A2")
    
    ' Cycle through the three predefined states
    With targetCell.Font
        ' Initial state → switch to black text
        If .ColorIndex = 16 And .Strikethrough = False Then
            .ColorIndex = 1
            .Strikethrough = False
        ' Black text state → switch to strikethrough + color index 56
        ElseIf .ColorIndex = 1 And .Strikethrough = False Then
            .ColorIndex = 56
            .Strikethrough = True
        ' Strikethrough state → revert to initial formatting
        Else
            .ColorIndex = 16
            .Strikethrough = False
        End If
    End With
End Sub

' Optional: Run this once to set up cell A2's starting state
Sub InitializePainCell()
    Dim targetCell As Range
    Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A2")
    
    targetCell.Value = "Pain"
    With targetCell.Font
        .ColorIndex = 16
        .Strikethrough = False
    End With
End Sub

Step 2: Link the Macro to Cell A2 #

1. Switch back to your Excel worksheet.
2. Right-click cell A2 → select Assign Macro....
3. In the popup window, pick TogglePainCell from the list, then click OK.

Step 3: Set Up the Initial State #

You can either:

• Run the InitializePainCell macro once: Go to the Developer tab → Macros → select InitializePainCell → click Run.
• Or set it manually: Type "Pain" in A2, set the font color to gray (Color Index 16), and ensure no strikethrough is applied.

Important Notes #

• Worksheet Name: Don't forget to replace "Sheet1" in the code with your actual worksheet's name (check the tab at the bottom of your Excel window).
• File Format: Save your workbook as a .xlsm (Macro-Enabled Workbook) to keep the macros active when you re-open the file.
• Macro Security: If Excel blocks macros, enable them via the security warning bar at the top of the workbook.

内容的提问来源于stack exchange，提问作者Vinciture