在EXCEL表格中自动生成不变的日期

在EXCEL表格中自动生成不变的日期?
Alt+F11，在“工程”窗口里选择工作表，代码窗口输入下面的代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [a1] <> "" And [b1] = "" Then
[b1] = Date
End If
End Sub
1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。

Private Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = False
[a2].Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
2、某一列全部设置为插入日历控件。

例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
End Sub
完成后，运行VBA代码，返回Excel操作窗口，即可实现。

本文来自: 同城老乡论坛() 详细出处参考：
/thread-25063-1-1.html
在EXCEL中能不能在两个工作表之间创建一个下拉列表，例如：我在SHEET1中创建了一个列表，我想在SHEET2中创建一个下拉列表
表一取名为“分类”，在表“分类”的A列输入各种类别。

选中A列整列，在“名称框”（左上角表外显示A1的那个格子里输入“分类”，这样整个A列就叫“分类”了。

选中表二的某格（暂为C1吧），点“数据/有效性”，点“设置”在“允许”中选“序列”，在“来源”中输入：
=INDIRECT("分类")。

确定后退出。

选中“C1”格向下填充，这样你点中C列中的单元格，出会出现下拉框，中间有“分类”表中的内容可选。