给神书写了个excel脚本

2025/05/14960 浏览综合

二转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 Sub

猜你想搜

放置江湖二转神书攻略

7.2