admin 管理员组

文章数量: 887021


2024年1月5日发(作者：addroute)

竭诚为您提供优质文档/双击可除

excel表格日期自动更新

篇一：在excel表格中自动生成不变的日期

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

alt+F11，在“工程”窗口里选择工作表，代码窗口输入下面的代码：

privatesubworksheet_selectionchange(byValtargetasRange)

if[a1]""and[b1]=""then

[b1]=date

endif

endsub

1、在某一单元格中插入日历控件

（1）选中要插入日历控件的单元格，设置单元格格式为日期型；

（2）点击工具栏，“插入—对象—日历控件”，

1 5

（3）用快捷方式alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击a1时弹出日历控件，单击日历控件后，将选中的日期值填入a1并隐藏控件。

privatesubcalendar1_click()

activecell=calendar1

e=False

[a2].select

endsub

privatesubworksheet_selectionchange(byValtargetasRange)

s="$a$1"e=true

endsub

2、某一列全部设置为插入日历控件。

例如；在c列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除c列之外，点击其他单元格，不会弹出日历选择控件；

同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择worksheet和selectionchange，输入代码：

privatesubcalendar1_click()

2 5

activecell=

e=False

endsub

privatesubworksheet_selectionchange(byValtargetasRange)

=1then

e=true

else

e=False

endif

endsub

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

本文同城老乡论坛()详细出处参考：

/

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

表一取名为“分类”，在表“分类”的a列输入各种类别。选中a列整列，在“名称框”（左上角表外显示a1的那

3 5


本文标签： 控件 代码 选择

版权声明：本文标题：excel表格日期自动更新 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/jishu/1704448133h460202.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。