エクセルのチェックボックスとセルへの転記連動がうまく行かない

Question

エクセルでチェックボックスにチェックを入れた際、
日付を転記出来るように以下の物を作成しました。

Sub CheckBox_Date_Stamp()
With ActiveSheet.Shapes(Application.Caller)
If .DrawingObject.Value = 1 Then
.TopLeftCell.Offset(0, 1) = Date
Else
.TopLeftCell.Offset(0, 1) = ""
End If
End With
End Sub
コード

これでチェックを入れた際に、日付の転記が行われることは確認しております。

このチェックを一括で外すためのボタンとマクロを作りました。

Sub ボタン_Click()
Dim ws As Worksheet
     Set ws = ThisWorkbook.Worksheets("Sheet1")
     Dim i As Long, j As Long
     j = ActiveSheet.CheckBoxes.Count

     For i = 1 To j
        ws.CheckBoxes(i).Value = ws.CheckBoxes(1).Value = 0
     Next i

End Sub
コード

個別でチェックを外した場合は、日付が消えるのですが
一括で外した場合、日付が消えません。

どこが問題なのかご教示頂ければ助かります。

Answer 1

こんな風にしてしまうのはどうですか。

Sub CheckBox_Date_Stamp()
    DateOnOff ActiveSheet.Shapes(Application.Caller)
End Sub

Function DateOnOff(shp)
With shp
If .DrawingObject.Value = 1 Then
.TopLeftCell.Offset(0, 1) = Date
Else
.TopLeftCell.Offset(0, 1) = ""
End If
End With
End Function

Sub ボタン_Click()
Dim ws As Worksheet
     Set ws = ThisWorkbook.Worksheets("Sheet1")
     Dim i As Long, j As Long
     j = ws.CheckBoxes.Count
     For i = 1 To j
        ws.CheckBoxes(i).Value = 0
        DateOnOff ws.Shapes(ws.CheckBoxes(i).Name)
     Next i
End Sub

Comments

[pandatati]

本当に有難うございます。
おかげさまで思い通りの動きになってくれました。

ただ個人的なスキル不足が否めない構文が最初から出てくるので、
少しずつ勉強していきます。

Answer 2

確認はしていません、ごめんささい
もしかして？
'ws.CheckBoxes(i).Value = ws.CheckBoxes**(1)**.Value = 0

ws.CheckBoxes(i).Value =0

Comments

[pandatati]

ご指摘有難うございます。
私も投稿した後にそこが気になって、同じことをしたのですが駄目でしたね。