کد VBA چک باکس اکسل

Sub addchekboxes() On Error Resume Next Dim c As Range, myrange As Range Set myrange = Selection For Each c In myrange.Cells ActiveSheet.CheckBoxes.Add(c.Left, c.Top, c.Width, c.Height).Select With Selection .linkecell = c.Address .Characters.Text…