如果复选框选中了偏移量（0,1）值日期

Question

你好我要做的是如果选中复选框然后偏移（0,1）.value =日期 有很多复选框，我想知道是否有一个简单的方法来做到这一点。另请注意，我使用的是Active X复选框。

谢谢

Answer 1

试试这个：

If Activesheet.OLEObjects("Checkbox1").Object.Value = True Then
'~~> insert code here
    Msgbox "Checked"
Else
'~~> insert code here    
    Msgbox "UnChecked"
End If

希望这有帮助。

Answer 2

试试这个：

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        CheckBox1.TopLeftCell.Offset(0, 1).Value = Date
    Else
        CheckBox1.TopLeftCell.Offset(0, 1).Value = vbNullString
    End If
End Sub

<强>截图：

如果有帮助，请告诉我们。