Excel日期选择器和单选下拉框
NO1.在做excel计划表的时候,需要输入时间,手动输入实在麻烦,就做了一个VBA的宏来实现
1、新建excel表格,打开“控件工具箱”,点左下角的“其他控件”按钮,找到“日历控件11.0”;
2、拖动日历控件,调整合适大小,双击日历控件,进入代码编辑模式
3、输入如下代码,保存,退出到excel编辑模式
-----------------------------------------
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'此处的6和7为你要显示日历的列序号
If Target.Column = 6 Or Target.Column = 7 Then
Me.Calendar1.Left = Target.Left
Me.Calendar1.Top = Target.Top
If Target.Value <> "" Then
Me.Calendar1.Value = Target.Value
Else
Me.Calendar1.Value = Now()
End If
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
Me.Calendar1.Top = Target.Top
If Target.Value <> "" Then
Me.Calendar1.Value = Target.Value
Else
Me.Calendar1.Value = Now()
End If
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
End Sub
-----------------------------------------
4、执行菜单“工具-宏-安全性”,将其设置为中或中低,确定退出,关闭excel文件
5、重新打开excel文件,单击日期单元格,就可以看到日历了哦~
NO2.在excel表格中经常输入重复相同的输入,如输入员工的学历,比较费事,可以使用下拉框来实现,只需要输入一次
1、新建excel表格,第三列为学历,选中第三列
2、执行菜单“数据-有效性”,“设置”标签
3、“有效性条件-允许”,选择“序列”
4、在“来源”中输入“硕士,本科,大专,中专,其他”,确定
5、回到excel,点击第三列任一单元格,会出现下拉框,选择你需要的数值即可。
Excel技巧很多,没有仔细研究,需要用的时候再研究吧~
![]() |
![]() |
|
![]() |
![]() |
|
![]() |