在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(ByV al 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.V alue

Me.Calendar1.V isible = False

End Sub

Private Sub Worksheet_SelectionChange(ByV al Target As Range)

If Target.Column = 1 Then

Me.Calendar1.V isible = True

Else

Me.Calendar1.V isible = False

End If

End Sub

完成后，运行VBA代码，返回Excel操作窗口，即可实现。

本文来自: 同城老乡论坛(https://www.360docs.net/doc/5715216153.html,) 详细出处参考：

https://www.360docs.net/doc/5715216153.html,/thread-25063-1-1.html

在EXCEL中能不能在两个工作表之间创建一个下拉列表，例如：我在SHEET1中创建了一个列表，我想在SHEET2中创建一个下拉列表

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

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

=INDIRECT("分类")。确定后退出。

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