§å¶q¥[¤J¤Î删°£Î`选®Ø

wqfzqgk

Sub §å¶q¥[¤JÎ`选®Ø()
Application.ScreenUpdating = False
Dim rng As Range
For Each rng In Selection
With rng
With Sheet1.CheckBoxes.Add(.Left, .Top, .Width, .Height) '.Select
.Value = xlOff
.LinkedCell = rng.Offset(0, 1).Address
End With
End With
Next
Application.ScreenUpdating = True
End Sub
Sub §å¶q删°£Î`选®Ø()
Dim obj As Shape
For Each obj In Sheet1.Shapes
If obj.Name Like "Check*" Then obj.Delete
Next
End Sub
Sub §å¶q­×§ï连±µ单¤¸®æ()
Application.ScreenUpdating = False
Dim obj As Shape
For Each obj In Sheet1.Shapes
If obj.Name Like "Check*" Then
obj.Select
With Selection
.Value = xlOff
.LinkedCell = Range(obj.TopLeftCell.Address).Offset(0, 1).Address
End With
End If
Next
Application.ScreenUpdating = True
End Sub