[已解决]大家新年好。求助如何做到选择打勾才能写入。谢谢

qinhuan66

大家新年好。求助如何做到选择打勾才能写入。没打勾不能写入到表格谢谢！
求助日期写入问题.zip (12.99 KB, 下载次数: 2)

2015-2-28 11:15 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-2-28 11:33

捡个便宜，哈哈

1. Private Sub CommandButton1_Click()
   
2.     a = DTPicker1.Value: b = DTPicker2.Value
   
3.     If Me.CheckBox1 = True Then Sheets("打印模板").Range("C3:E3") = Array(Year(a), Month(a), Day(a))
   
4.     If Me.CheckBox2 = True Then Sheets("打印模板").Range("C5:E5") = Array(Year(b), Month(b), Day(b))
   
5. End Sub

复制代码

跳转到最佳答案楼层

grf1973

捡个便宜，哈哈

1. Private Sub CommandButton1_Click()
   
2.     a = DTPicker1.Value: b = DTPicker2.Value
   
3.     If Me.CheckBox1 = True Then Sheets("打印模板").Range("C3:E3") = Array(Year(a), Month(a), Day(a))
   
4.     If Me.CheckBox2 = True Then Sheets("打印模板").Range("C5:E5") = Array(Year(b), Month(b), Day(b))
   
5. End Sub

复制代码