nnsea 发表于 2023-10-26 11:11:22

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


Sub 向单元格中录入数据()
i = Now
j = MsgBox("要将当前日期：" & i & "写入单元格吗？", vbOKCancel)
If j = 1 Then
    Cells(1, 1) = i
End If
End Sub
页: [1]
查看完整版本: 弹窗向单元格中录入数据VBA