给神书写了个excel脚本

二转500了开始每天刷神书的日常，扫图得一个个书名记比较麻烦，干脆写了个VB脚本用来简化记录。

双击单元格就可以在白底“×”和绿底“√”之间转换，右下角放了个重置按钮，双击可以把所有记录格转变成白底“×”。

下附具体VB代码，需要自取。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  ' 定义生效区域和总控单元格

  Dim checkRange As Range, resetCell As Range

  Set checkRange = Range("C4:C11,C13:C18,E4:E10,E12:E18,G4:G10,G12:G18")

  Set resetCell = Range("G20") ' 总控单元格

  ' 判断是否双击了总控单元格 F18

  If Not Intersect(Target, resetCell) Is Nothing Then

    Cancel = True

    ' 遍历所有目标区域单元格，设置为 "×" + 无背景

    Dim cell As Range

    For Each cell In checkRange

      cell.Value = "×"

      cell.Interior.Color = xlNone

    Next cell

    Exit Sub ' 直接退出，不执行后续代码

  End If

  ' 双击目标区域切换状态

  If Not Intersect(Target, checkRange) Is Nothing Then

    Cancel = True

    If Target.Value = "√" Then

      Target.Value = "×"

      Target.Interior.Color = xlNone

    Else

      Target.Value = "√"

      Target.Interior.Color = RGB(0, 255, 0)

    End If

  End If

End Sub