发布网友 发布时间:2022-04-23 22:52
共2个回答
热心网友 时间:2023-09-10 03:51
第一步:第一步需要确认Excel菜单中有没有开发工具这一选项,若没有需要手动添加一下,点击文件,打开文件菜单下找到选项菜单点击打开,如下图所示勾选开发工具选项即可
第二步:开发工具添加成功后将设计模式打开,如下图设计模式会一直呈现为橙色,说明此时是在设计模式状态下,单击插入,选择下图中红框中的其他选项,用来添加非常规的控件
第三步:在弹出的其他控件中选择下图所示的Microsoft Date and Timer Picker Control
第四步:点击确定后光标会变成一个十字形光标,在要添加日历的地方单击鼠标拖动光标,绘制出要的日历控件
第五步:绘制成功后可以先保存下,但此时控件还没有功能,需要关闭设计模式方可使用,如下图在开发工具中关闭设计模式,如下图所示,此时设计模式按钮不再为橙色,控件也就可以使用了
热心网友 时间:2023-09-10 03:52
有的:①.打开需要插入日期控件的工作薄,依次点击【视图】【工具栏】【控件工具箱】,调出控件工具栏。 ②.点击控件工具栏中的〖其他控件〗,选择(MicrosoftDateandTimePickerControl,version6.0)控件。 ③.在工作表内需要填写日期的单元格中画出日期控件图标,调整大小与单元格一致。 2.编辑代码 ①点击控件工具栏中的〖查看代码〗,进入代码编辑页面,编辑如下代码: OptionExplicit PrivateSubDTPicker1_Change() ActiveCell.Value=DTPicker1.Value DTPicker1.Visible=False EndSub PrivateSubWorksheet_SelectionChange(ByValTargetAsRange) WithMe.DTPicker1 IfTarget.Column=1AndTarget.Count=1Then .Visible=True .Width=Target.Width+15 .Left=Target.Left .Top=Target.Top .Height=Target.Height Else .Visible=False EndIf EndWith EndSub