自动复选框生成Excel VBA

Question

我试图自动化复选框生成。如果有人在C10单元格中点击或写入某些内容，或者像C11，C12 ...那样，则单元格右侧应显示一个复选框。

它应该是这个样子：

我应该怎么办呢？

UPDATE！：

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim chkbox As CheckBox 

    If Not (Intersect(Target, Range("C10:C1000")) Is Nothing) Then 
     If Not (IsEmpty(Target.Cells.Value)) Then 
      'If the cell is NOT empy, I should add a checkbox, to the right of the cell without text 
      Set chkbox = ActiveSheet.CheckBoxes.Add(Target.Left, Target.Top, Target.Width, Target.Height) 
      With chkbox 
       .Text = "" 
      End With 
     Else 
      For Each chkbox In ActiveSheet.CheckBoxes 
       If Not Intersect(Target, chkbox.TopLeftCell) Is Nothing Then 
        chkbox.Delete 
       End If 
      Next chkbox 
     End If 
    End If 
End Sub 

Answer 1

试试这个

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim chkbox As CheckBox 
    Dim cell As Range 

    If Not Intersect(Target, Range("C10:C1000")) Is Nothing Then 
     For Each cell In Intersect(Target, Range("C10:C1000")) 
      If Not IsEmpty(cell.Value) Then 
       'If the cell is NOT empy, I should add a checkbox, to the right of the cell without text 
       Set chkbox = ActiveSheet.CheckBoxes.Add(cell.Left, cell.Top, cell.Width, cell.Height) 
       With chkbox 
        .Text = "" 
       End With 
      Else 
       For Each chkbox In ActiveSheet.CheckBoxes 
        If Not Intersect(cell, chkbox.TopLeftCell) Is Nothing Then 
         chkbox.Delete 
        End If 
       Next chkbox 
      End If 
     Next cell 
    End If 
End Sub