弹窗向单元格中录入数据VBA

nnsea

Sub 向单元格中录入数据()
i = Now
j = MsgBox("要将当前日期：" & i & "写入单元格吗？", vbOKCancel)
If j = 1 Then
    Cells(1, 1) = i
End If
End Sub