VBA 添加日历控件的操作
浏览数：23 /
时间：2015年06月08日
近几天需要做一个VBA的宏，以方便在excel中选择格式化后日期，要求添加日历控件，并按照格式化进行输出，由于是第一次接触VBA，因此查询了一些资料，下面对自己所做的过程进行一下总结：
1、首先新建一个excel文档。
2、对excel文档添加添加日历控件，具体过程如下图：
插入其他控件中的日历控件，如下图：
添加完后如下图所示：
双击控件即可编写代码，代码如下
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 3 Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub
把上面excel中的设计模式点掉保存以后点击即可满足效果。
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
