1ï¼å¨ç¬¬ä¸ä¸ªåå
æ ¼æå
¥å¤éæ¡åæå¨å¤å¶ã
2ï¼å¦æåå
æ ¼åºåä¸è§åå¯ä»¥ç¨ä¸é¢ä»£ç ï¼
Private Sub AddCheckBoxesInRange()
On Error Resume Next
Dim cell As Range
Dim CurrentRange As Range
Set CurrentRange = Selection
CurrentRange.NumberFormatLocal = ";;;"
Application.ScreenUpdating = False
For Each cell In CurrentRange
ActiveSheet.CheckBoxes.Add(cell.Left, cell.Top, cell.Height, cell.Height).Select
With Selection
.Value = xlOff
.LinkedCell = cell.Address
.Display3DShading = False
.Characters.Text = ""
End With
Next
CurrentRange.Select
Application.ScreenUpdating = True
Set cell = Nothing
End Sub
温馨提示:答案为网友推荐,仅供参考