如题所述
下例实现当选中时插入行,选空时删除行
Private Sub CheckBox1_Click()
With Me.CheckBox1
If .Value Then
Me.Range(.LinkedCell).EntireRow.Insert
Else
Me.Range(.LinkedCell).Offset(-1, 0).EntireRow.Delete
End If
End With
End Sub追问
Private Sub CheckBox1_Click()
With Me.CheckBox1
If .Value Then
Me.Range(.LinkedCell).EntireRow.Insert
Else
Me.Range(.LinkedCell).Offset(-1, 0).EntireRow.Delete
End If
End With
End Sub追问
这个我看到了,不一样
温馨提示:答案为网友推荐,仅供参考