過去，在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))
範例下載
購書優惠
Ⓜ️旗標蝦皮商城 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折
好用工具推薦
Ⓜ️Flot.ai 文案寫作AI工具 折扣碼 【 MEIKO 】20%優惠
Ⓜ️DesignEvo LOGO 折扣碼 【 MeikoDE20 】20%優惠
如果文章對你有幫助，請幫Meiko按❤️、分享、收藏，別忘了要按【追蹤】
版權所有，請勿複製 | 歡迎分享
