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

Question

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

感谢

Answer 1

试试这个：

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 

截图：

让我们知道这会有所帮助。

Answer 2

试试这个：

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

希望这有助于。