24小时热门版块排行榜    

查看: 944  |  回复: 3
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

w448153518

金虫 (小有名气)

[求助] excel设置自动行数

有个程序会自动定时向excel表格发送一行数据,但是我只需要1000行,到了1001行自动删除第一行,以此类堆,主要是为了保存最近的1000个数据!
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   关注TA 给TA发消息 送TA红花 TA的回帖

jjdg

版主 (知名作家)

优秀版主

【答案】应助回帖

引用回帖:
3楼: Originally posted by w448153518 at 2013-09-04 15:25:20
谢谢您的回复,工作表事件和对应工作表代码区在哪里的?...

这些都是excel的宏代码啊!
努力学习!以正当途径!获得需要的知识!
4楼2013-09-04 18:00:26
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答

jjdg

版主 (知名作家)

优秀版主

【答案】应助回帖

感谢参与,应助指数 +1
转:
方法1:
把这一句代码放在工作表事件 selectionchange 中
me.rows("1001:" & me.rows.count).clear
方法2:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False'免触发造成死循环
If Target.Row > 1000 And Target.Column > 0 Then
MsgBox "范围内数值发生了变化要清理哦"'这句删除
Me.Rows("1001:" & Me.Rows.Count).ClearContents'清理范围
End If
Application.EnableEvents = True'免触发造成死循环
End Sub
'放在你的对应工作表代码区。
努力学习!以正当途径!获得需要的知识!
2楼2013-09-04 13:05:55
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

w448153518

金虫 (小有名气)

引用回帖:
2楼: Originally posted by jjdg at 2013-09-04 13:05:55
转:
方法1:
把这一句代码放在工作表事件 selectionchange 中
me.rows("1001:" & me.rows.count).clear
方法2:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEve ...

谢谢您的回复,工作表事件和对应工作表代码区在哪里的?
3楼2013-09-04 15:25:20
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 26博士申请 +3 1042136743 2026-03-17 3/150 2026-03-17 23:30 by 轻松不少随
[基金申请] 被我言中:新模板不强调格式了,假专家开始管格式了 +4 beefly 2026-03-14 4/200 2026-03-17 22:04 by 黄鸟于飞Chao
[考研] 材料专硕326求调剂 +6 墨煜姒莘 2026-03-15 7/350 2026-03-17 17:10 by ruiyingmiao
[考研] 085600材料与化工求调剂 +5 绪幸与子 2026-03-17 5/250 2026-03-17 16:40 by laoshidan
[考研] 求调剂,总分315,考的生物医药,一志愿湖南师范大学。调剂到任何专业都可以 +4 小丁想进步 2026-03-11 5/250 2026-03-17 16:05 by 外星文明
[考研] 梁成伟老师课题组欢迎你的加入 +8 一鸭鸭哟 2026-03-14 10/500 2026-03-17 15:07 by 一鸭鸭哟
[考研] 08工科 320总分 求调剂 +4 梨花珞晚风 2026-03-17 4/200 2026-03-17 13:38 by houyaoxu
[考研] 材料专硕274一志愿陕西师范大学求调剂 +5 薛云鹏 2026-03-13 5/250 2026-03-17 10:15 by Sammy2
[考研] 278求调剂 +3 Yy7400 2026-03-13 3/150 2026-03-17 08:24 by laoshidan
[考研] 11408 一志愿西电,277分求调剂 +3 zhouzhen654 2026-03-16 3/150 2026-03-17 07:03 by laoshidan
[考研] 286求调剂 +3 lemonzzn 2026-03-16 5/250 2026-03-16 20:43 by lemonzzn
[考研] 化学调剂0703 +8 啊我我的 2026-03-11 8/400 2026-03-16 17:23 by 我的船我的海
[考研] 0703化学调剂 +6 妮妮ninicgb 2026-03-15 9/450 2026-03-16 16:40 by houyaoxu
[考研] 学硕285求调剂 +13 Wisjxn 2026-03-12 46/2300 2026-03-14 10:33 by JourneyLucky
[考研] 0703,333分求调剂 一志愿郑州大学-物理化学 +3 李魔女斗篷 2026-03-11 3/150 2026-03-13 22:24 by JourneyLucky
[考研] 26调剂/材料/英一数二/总分289/已过A区线 +6 步川酷紫123 2026-03-13 6/300 2026-03-13 21:59 by 星空星月
[硕博家园] 085600 260分求调剂 +3 天空还下雨么 2026-03-13 5/250 2026-03-13 18:46 by 天空还下雨么
[考研] 085600材料与化工 309分请求调剂 +7 dtdxzxx 2026-03-12 8/400 2026-03-13 14:43 by jxchenghu
[考研] 0856化学工程280分求调剂 +4 shenzxsn 2026-03-11 4/200 2026-03-13 11:55 by ymwdoctor
[考研] 270求调剂 085600材料与化工专硕 +3 YXCT 2026-03-11 3/150 2026-03-13 10:13 by houyaoxu
信息提示
请填处理意见