Excel_06 | 核取方塊輕鬆放大，數量不限 | Meiko微課頻道

Meiko微課頻道

發佈於Excel 疑難雜症等個房間

2024/01/28閱讀時間約 7 分鐘

過去，在Excel中使用核取方塊時，我們常受限於其大小，一直無法輕易調整。最近的E365版本解決了這個問題，但舊版本的Excel卻沒有這個新功能。因此，在這裡，Meiko將跟同學們分享如何在新舊版本中輕鬆放大核取方塊，而且不受數量的限制。

實際操作請參考影片教學，影片中提供的語法請參考本篇文章

❤️本篇所有VBA語法皆為奇大哥提供，非常感謝奇大哥。

教學影片

單純只有核取方塊的VBA語法

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target = "" Then
        Target = ChrW(424) ' 未核取狀態的符號
        Target.Font.Name = "Wingdings"
        Target.Font.Size = 24
        Target.ColumnWidth = 5.13
        Target.RowHeight = 32.25
    ElseIf Target = ChrW(424) Then
        Target = ChrW(254) ' 已核取狀態的符號
    ElseIf Target = ChrW(254) Then
        Response = MsgBox("是否取消勾選？", vbYesNo)            
        If Response = vbYes Then                            
            Target = ChrW(424) ' 重置為未核取狀態
        End If                                             
    End If
    Cancel = True
End Sub

核取方塊帶有當下日期時間的VBA語法

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target = "" Then
        Target = ChrW(424)
            Target.Font.Name = "Wingdings"
            Target.Font.Size = 24
            Target.ColumnWidth = 5.13
            Target.RowHeight = 32.25
        If Target.Offset(0, 1) = "" Then
            Target.Offset(0, 1) = "=IF(RC[-1]=""" & ChrW(424) & """,""空格"",IF(RC[-1]=""" & ChrW(254) & """,""打勾"","" ""))"
                Target.Offset(0, 1).Font.Name = "標楷體"
                Target.Offset(0, 1).Font.Size = 24
                Target.Offset(0, 1).ColumnWidth = 15
        End If
    ElseIf Target = ChrW(424) Then
        Target = ChrW(254)
        Target.Offset(0, 2) = Now()
        Target.Offset(0, 2).NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
        Target.Offset(0, 2).Font.Name = "標楷體"
        Target.Offset(0, 2).Font.Size = 24
        Target.Offset(0, 2).ColumnWidth = 42.63
        Target.Offset(0, 2).HorizontalAlignment = xlCenter
    ElseIf Target = ChrW(254) Then
        Response = MsgBox("是否取消勾選？", vbYesNo)            
            If Response = vbYes Then                            
                Target = ChrW(424)
                Target.Offset(0, 2) = ""
            End If                                             
    End If
    Cancel = True
End Sub