如何让EXCEL记录每次的打开时间?_百度知道
如何让EXCEL记录每次的打开时间?
实现: 当打开文本时,工作表内将显示出最近几次打开文档的时间!
望各位前辈不匿赐教!
我有更好的答案
1、电脑中所有文件都记录了最后修改时间，看这个可以点击文件属性看到2、要记录Excel每次打开的时间，可以用bva宏将每次打开的时间依次记录在表格中。Private Sub Workbook_Open()MsgBox Now()End Sub
采纳率：89%
来自团队：
假设我们以sheet3来记录每次的开机时间，在A列往后排着记录，那么：在 ThisWorkbook的open事件中，加入如下代码：Private Sub Workbook_Open()Set sht = Sheets(&sheet3&)sht.Cells(sht.[A65536].End(xlUp).Row + 1, 1) = Now()'如果要自动保存就用下面这句，如果手动保存就注释了这句ThisWorkbook.SaveEnd Sub
本回答被提问者采纳
用VBA来实现设置一个表名为：记录单，在D1单元格可以修改保存的记录条数每次打开就记录下时间到A列的位置上 超过保存的记录条数时自动删除前面的数据，始终保持设定的记录条数在 ThisWorkbook下粘贴如下代码即可实现Private Sub Workbook_Open()
Dim iR As Long
Dim JLs As Long
With Sheets(&记录单&)
JLs = .Range(&D1&).Value 'D1单元格指定保留的记录条数
iR = .Range(&A65536&).End(xlUp).Row
If iR & JLs Then
.Rows(&2:2&).Delete '记录超过指定条数时，删除第一条记录，后面的数据上移，
.Range(&A65536&).End(xlUp).Offset(1) = Now() 'A列最的一行下一行记录打开时间
ThisWorkbook.Save '保存工作簿End Sub此外可以设置该工作表为隐藏不可见的，记录完自动密码保护，等等功能可以实现，在此不一一枚举
在要填写时间的单元格单击，快捷键“CTRL+ ；”，对，就是分号那个键，出来是系统日期，“CTRL+SHIFT+ ；”是系统时间，你可以把这个操作录成一个宏，保存在“个人宏工作簿”，再定义一个快捷方式或快捷键，以后每次打开EXCEL都可以用了
这得写段代码了： Private Sub Workbook_Open()
Range(&a65536&).End(xlUp).Offset(1, 0) = Now End Sub在单元格中设置工作表名在单元格中设置工作表名问题是：在第一个工作表的A列中输入数据后，各工作表名依次是A1、A2……的内容。 这个问题要用一段代码来解决： Sub b()
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(1).Range(&a& & i)
Next End Sub
学习了。非常好
其他3条回答
为您推荐：
其他类似问题
您可能关注的内容
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。> 博客详情
Public lastRow As Integer Public upd_date_col As Integer Public upd_date_row As Integer
Private Sub Worksheet_Activate() &&& Dim i As Integer, j As Integer && & &&& upd_date_col = 0 &&& upd_date_row = 0 && & &&& For i = 1 To 100 &&&&&&& For j = 1 To 10 &&&&&&&&&&& If Cells(j, i) = "更新日期" Then &&&&&&&&&&&&&&& upd_date_col = i &&&&&&&&&&&&&&& upd_date_row = j &&&&&&&&&&&&&&& Exit Sub &&&&&&&&&&& End If &&&&&&& Next &&& Next End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
&&& 'Cells(4, 12) = "lastRow:" & lastRow &&& 'Cells(5, 12) = "upd_date_row:" & upd_date_row &&& 'Cells(6, 12) = "upd_date_col:" & upd_date_col && & &&& If Target.Column &= 1 And Target.Column &= upd_date_col Then &&&&&&& Exit Sub &&& End If && & &&& If Target.Row &= upd_date_row Then &&&&&&& Exit Sub &&& End If && & && & &&& If upd_date_row = 0 Or upd_date_col = 0 Then &&&&&&& Exit Sub &&& End If && & &&& If Target.Row & upd_date_row Then &&&&&&& If Target.Column & 1 And Target.Column & upd_date_col Then &&&&&&&&&&& Cells(Target.Row, upd_date_col) = Now &&&&&&& End If &&& End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
&&& Dim i As Integer && & &&& 'Cells(4, 14) = "lastRow:" & lastRow &&& 'Cells(5, 14) = "upd_date_row:" & upd_date_row &&& 'Cells(6, 14) = "upd_date_col:" & upd_date_col && & &&& If lastRow & 0 Then &&&&&&& Cells(lastRow, 1) = "" &&&&&&& Cells(lastRow, 1).Interior.ColorIndex = 0 &&& Else &&&&&&& For i = 1 To 1000 &&&&&&&&&&& If Cells(i, 1) = "-&" Then &&&&&&&&&&&&&&& Cells(i, 1) = "" &&&&&&&&&&&&&&& Cells(i, 1).Interior.ColorIndex = 0 &&&&&&&&&&& End If &&&&&&& Next &&& End If && & &&& Cells(Target.Row, 1) = "-&" &&& Cells(Target.Row, 1).Interior.ColorIndex = 6 && & &&& lastRow = Target.Row
支付宝支付
微信扫码支付
打赏金额: ￥
已支付成功
打赏金额: ￥适合寝室内统计记账的excel文档,VBA编程自动记录日期,算账时可以清楚了解自己应该收入多少和支出多少账单_百度文库
赠送免券下载特权
10W篇文档免费专享
部分付费文档8折起
每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
适合寝室内统计记账的excel文档,VBA编程自动记录日期,算账时可以清楚了解自己应该收入多少和支出多少账单
&&本excel表中含有VBA编程记录日期,并且自动计算出各自的消费情况总额统计出来美味同学应该收入多少钱等等。下载后请将后缀名更改为“.xlsm”的文件。
阅读已结束，下载本文需要
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，同时保存到云知识，更方便管理
加入VIP
还剩1832页未读，
定制HR最喜欢的简历
你可能喜欢您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
利用Excel的VBA代码实现自动化“收集原始数据、汇总计算和报表”.doc 9页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
下载提示
1.本站不保证该用户上传的文档完整性，不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，立即自动返金币，充值渠道很便利
利用Excel的VBA代码实现自动化“收集原始数据、汇总计算和报表”
你可能关注的文档：
··········
··········
利用Excel的VBA代码实现自动化“收集原始数据、汇总计算和报表”
联系人：杨先生 电话： 电子邮箱：
以房地产销售数据为例。
两个销售中心以Excel记录销售活动，原始数据和公式形成的
原始数据收集表
产品表产品主房、辅房、车库、车位）的基本信息； 房行 =ROW(主房[@])-ROW(主房[#标题])，动态的数据行号
买受人 =IFERROR(INDEX(销售[买受人],[@售行]),&&)，当前 项目 销售项目名称 分区 分区名称 分期 分期名称 楼 数字楼号
单 数字单元号 层 数字楼层 房 数字方位编号 面积 预售面积 预售价 预售价格 产权 产权面积 售次 =COUNTIFS(销售[主房索引],[@主房索引])，当前的次数、换房不删除数据，所以用售 售行 对应的销售数据行。 房号 =VALUE([@单]&TEXT([@层],&00&)&TEXT([@房],&00&))，如户表示为1-0101 主房索引 =INDEX(项目分区[代码],MATCH([@项目]&[@分区],项目分区[分区名称],0))&[@分期]&TEXT([@楼],&00&)&TEXT([@房号],&00000&)，用于表间互查数据 销售索引 =IFERROR([@主房索引]&ABS([@售序]),&&) ，用于表间互查数据 总房款
销售表销售活动的真实记录产品的组合从产品表查的基本信息；
售行 =ROW(主房[@])-ROW(销售[#标题])
分区 分区名称 分期 分期名称 房号 手工输入数字（自定义格式）
售序 当前的次数、换房不删除数据，所以用售 买受人 业务姓名
顾问 置业顾问姓名
总房款 合同中填写金额 总款 =ROUND(SUM([@主房款],[@储款],[@库款],[@位款]),0)，自动计算的总金额 差异 =[@总房款]-[@总款]
主房面积 =INDEX(主房[面积],[@房行])
认购日期 =IFERROR(INDEX(房款[实收日],MATCH([@销售索引]&&定金&,房款[款类索引],0)),&&)，实交定金日期
主房款 =ROUND([@实售价]*[@主房面积],0)
房约日 购房合同签署日期
房约价 合同单价
买受人身份证号
共有人身份证号
合同交房日
贷含 贷款对象包含储藏室（C）、车库（K）等
资料日 贷款资料合格日
贷约日 贷款合同签署日
商放 =SUMIFS(房款[金额],房款[销售索引],[@销售索引],房款[实收日],&&40544&,房款[款类],&商贷&)，商业贷款到账日
公放 =SUMIFS(房款[金额],房款[销售索引],[@销售索引],房款[实收日],&&40544&,房款[款类],&公贷&)，公积金贷款到账日
已收 =SUMIFS(房款[金额],房款[销售索引],[@销售索引],房款[实收日],&&40544&,房款[款类],&&&找差&)，不含找差
待收 =IF([@售序]&0,[@总房款]-[@已收],0)
房行 =MATCH([@主房索引],主房[主房索引],0)，对应产品表的行号
主房索引 =INDEX(项目分区[代码],MATCH(房款!$B$1&[@分区],项目分区[分区名称],0))&[@分期]&TEXT([@房号],&0000000&)
销售索引 =[@主房索引]&ABS([@售序])
换房 因业务换房造成本次销售无效时，记录换成了哪套房子
房款表按合约应交、实交价款信息
款行 买受人 =INDEX(销售[买受人],[@售行])
房行 =MATCH([@主房索引],主房[主房索引],0)
售行 =MATCH([@销售索引],销售[销售索引],0)
售次 =INDEX(主房[售次],[@房行])
主房索引 =$D$1&[@分期]&TEXT([@房号
正在加载中，请稍后...查看: 4133|回复: 10
如何实现打印固定区域，并能自动记录修改时间
阅读权限20
在线时间 小时
请各位版主给看看，这三种功能怎样实现，谢谢！
(2.96 KB, 下载次数: 32)
22:06 上传
点击文件名下载附件
如何实现打印固定区域，并能自动记录修改时间
阅读权限20
在线时间 小时
请各位高手给看看，相信这三个问题对初学者很实用。
阅读权限150
在线时间 小时
楼主的附件有点费解，请参考下帖4楼附件：再给个参考：
[此贴子已经被作者于 0:21:54编辑过]
阅读权限50
在线时间 小时
回复：（lbg555）如何实现打印固定区域，并能自动记录...
看看附件是否符合楼主要求
(10.66 KB, 下载次数: 43)
00:57 上传
点击文件名下载附件
如何实现打印固定区域，并能自动记录修改时间
阅读权限20
在线时间 小时
我修改了一下，或许能更清除表明意图。
(3.23 KB, 下载次数: 21)
20:58 上传
点击文件名下载附件
如何实现打印固定区域，并能自动记录修改时间
阅读权限20
在线时间 小时
还请LangQueS版主帮忙看看，我在C3用=IF(Sheet2!B2=Sheet1!A3,Sheet2!B8,Sheet1!C3) 但无法实现。另一目的就是自动记录下修改单元格的时间，如果无变化就保留上次时间。
阅读权限50
在线时间 小时
回复：（lbg555）如何实现打印固定区域，并能自动记录...
这样应该符合楼主的意思了吧?呵呵
(11.07 KB, 下载次数: 37)
21:33 上传
点击文件名下载附件
如何实现打印固定区域，并能自动记录修改时间
阅读权限20
在线时间 小时
谢谢！是这样的，怎样做到的呢？我怎么没看到公式和代码？请赐教
阅读权限50
在线时间 小时
代码在 sheets2 表中！
阅读权限20
在线时间 小时
谢谢，看到了。自动记录时间上，还有些出入。我希望在同一个表格的同一行中的单元格发生变化时，就自动记录时间。能做到吗？
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师