作者：绿色风
分类：
时间：2022-08-17
浏览：98
楼主
biaotiger1 |
Q：如何将日历控件中的年月日分别存放在同行三个单元格中？
A：
步骤一、引用日历控件。[VBA] EXCEL2007中日历控件在哪可以找到？ http://www.exceltip.net/thread-265-1-1.html
步骤二、右键单击工作表标签，弹出快捷菜单→“查看代码”，在代码窗口中输入代码如下
- Private Sub Calendar1_Click()
- Range("A" & ActiveCell.Row) = Year(Calendar1.Value)
- Range("B" & ActiveCell.Row) = Month(Calendar1.Value)
- Range("C" & ActiveCell.Row) = Day(Calendar1.Value)
- Calendar1.Visible = False
- End Sub
- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
- Cancel = True
- If Target.Column = 1 Then Calendar1.Visible = True
- End Sub
相关帖子见下
日历控件http://www.exceltip.net/thread-2721-1-1.html
 点击日历控件选出日期显示在3个单元格中.rar
|
2楼
love_liwu |
我只要在G10、G11引用的话，应该如何如何操作？
换句话说我双击G10、G11就会弹出日期选项，选择之后就在G10、H10、I10填列。那代码如何修改？
Private Sub Calendar1_Click()
Range("G10" & ActiveCell.Row) = Year(Calendar1.Value)
Range("H10 & ActiveCell.Row) = Month(Calendar1.Value)
Range("I10" & ActiveCell.Row) = Day(Calendar1.Value)
Calendar1.Visible = False
End Sub
还望指教，谢谢。 |
3楼
angel928 |
进来学习代码。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一