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

過去，在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

函數：當儲存格輸入文字，自動出現不變動的日期時間

=IF(F2<>TRUE,"",IF(H2="",NOW(),H2))

範例下載

#E113-核取方塊，數量大小不受限制

購書優惠

Ⓜ️旗標蝦皮商城 https://shopee.tw/flag23311033

．2024/01/01-2024/03/31 優惠碼：【FLAGM0005】 原9折再打84折

．2024/04/01-2024/06/30 優惠碼：【FLAGM0006】 原9折再打84折

．2024/07/01-2024/09/30 優惠碼：【FLAGM0007】 原9折再打84折

．2024/10/01-2024/12/31 優惠碼：【FLAGM0008】 原9折再打84折

好用工具推薦

Ⓜ️Gamma AI簡報

Ⓜ️ LightPDF 官方網站

Ⓜ️新手影片剪輯線上平台 FlexClip

Ⓜ️Meiko教學文章

Ⓜ️Flot.ai 文案寫作AI工具 折扣碼 【 MEIKO 】20%優惠

Ⓜ️DesignEvo LOGO 折扣碼 【 MeikoDE20 】20%優惠

如果文章對你有幫助，請幫Meiko按❤️、分享、收藏，別忘了要按【追蹤】
版權所有，請勿複製 | 歡迎分享

Meiko微課頻道