《关于如何在EXCEL中添加日历控件,最全最好的方法》由会员分享,可在线阅读,更多相关《关于如何在EXCEL中添加日历控件,最全最好的方法(3页珍藏版)》请在金锄头文库上搜索。
1、1、选择excel的常规里选择显示开发工具2222图表1选择自定义工具栏2Excel选项2常用公式协戢项信任中心资源応更改氏匸创中最常用的选项选择开发工具便用Excel时釆用前首选项7遁W显云浮动二宾栏(M!7启用宴时预费匸I!団在功能区显示开发二显选项卡H总昱使用ClearTypeCD新建工作薄时222、选择插入-表单对MicrosoftOffice逬行个性化设冒图表:2选择开发工具控空三其巒改G5EEGActiveX控(牛注=咲下带有-项为猪填项丄U臣刽送忖应5ablHEI工作日期实际工件告fflH实际主姜事宜实际截止时回幵始插入页面布局公式数揭专阅视圏MicrosoftOffice的语言
2、:语言设置中国电信项目组-项目周总结22222.姑康客模式1-幵红宾僅用相对引用W3昌亦visualBasic宏z海甜代码眩1性肓|去駅1性/昙人、醛備童誹码乎曹护展包哪导出选择其它三于衆巻表单卿板上lJ臣为两言|刽A圈=翅2图表3选择其它控件图表4选择日历控件3、双击界面控件,在通用加入如下代码(注意:Target.Column=4里的是指D列就是固定的4列,G列是7列,而不是sheet里D,G列真实对应的第几列):PrivateSubCalendar1_Click()ActiveCell=Format(Calendar1.Value,yyyy-mm-dd)设置日期格式,此工作可以直接通过设
3、置某列单元格格式一次性完成Calendar1.Visible=False单击日历控件后隐藏之EndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfTarget.Column=4ThenD列为日期输入列,只对应excel的字母列,例如D对应4,G对应7,不是实际的显示列对应的数字Calendar1.Left=Target.Left+Target.Width设置日历控件弹出后的位置Calendar1.Top=Target.Top+Target.Height同上Calendar1.Value=Date设置默认日期为系统日期Cal
4、endar1.Visible=True使日历控件可见ElseIfTarget.Column=5ThenE列为日期输入列Calendar1.Left=Target.Left+Target.WidthCalendar1.Top=Target.Top+Target.HeightCalendar1.Value=DateCalendar1.Visible=TrueElseIfTarget.Column=6ThenF列为日期输入列Calendar1.Left=Target.Left+Target.WidthCalendar1.Top=Target.Top+Target.HeightCalendar1.Value=DateCalendar1.Visible=TrueElseCalendar1.Visible=False单击其他列时隐藏日历控件EndIfEndSub保存。