24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 950  |  回复: 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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂 +5 家佳佳佳佳佳 2026-03-29 5/250 2026-03-29 23:53 by yokiii1
[考研] 材料与化工272求调剂 +16 阿斯蒂芬2004 2026-03-28 16/800 2026-03-29 22:57 by tantai88888
[考研] 一志愿哈尔滨工业大学材料与化工方向336分 +10 辰沐5211314 2026-03-26 10/500 2026-03-29 21:01 by 唐沐儿
[考研] 337求调剂 +4 《树》 2026-03-29 4/200 2026-03-29 20:52 by 唐沐儿
[考研] 化学工程085602 305分求调剂 +22 RichLi_ 2026-03-25 22/1100 2026-03-29 19:51 by 无际的草原
[考研] 329求调剂,一志愿西北工业大学,材料工程(085601) +4 小小机灵虫 2026-03-29 10/500 2026-03-29 18:20 by 无际的草原
[考研] 375求调剂 +4 雨夏整夜 2026-03-29 4/200 2026-03-29 12:09 by 无际的草原
[考研] 321求调剂 +7 璞玉~~ 2026-03-25 8/400 2026-03-29 06:41 by 544594351
[考研] 085701求调剂初试286分 +4 secret0328 2026-03-28 4/200 2026-03-28 21:09 by 15366876211
[考研] 压国家一区线,求导师收留,有恩必谢! +7 迷人的哈哈 2026-03-28 7/350 2026-03-28 16:47 by 催化大白
[考研] 一志愿南京航空航天大学材料学硕求调剂 +3 @taotao 2026-03-28 3/150 2026-03-28 10:26 by JourneyLucky
[考研] 085405 考的11408求各位老师带走 +3 Qiu学ing 2026-03-28 3/150 2026-03-28 09:19 by 乐呵呵的追梦人
[考研] 311求调剂 +3 希望上岸阿小杨 2026-03-23 3/150 2026-03-28 07:57 by 热情沙漠
[考研] 070300化学求调剂 +4 起个名咋这么难 2026-03-27 4/200 2026-03-27 21:39 by 83503孙老师
[考研] 265求调剂11408 +3 刘小鹿lu 2026-03-27 3/150 2026-03-27 20:53 by nihaoar
[考研] 考研调剂 +10 呼呼?~+123456 2026-03-24 10/500 2026-03-27 11:46 by wangjy2002
[考研] 求调剂 +6 林之夕 2026-03-24 6/300 2026-03-27 08:38 by hypershenger
[考研] 085602化学工程求调剂。 +4 平乐乐乐 2026-03-26 4/200 2026-03-26 17:57 by fmesaito
[考研] 309求调剂 +4 gajsj 2026-03-25 5/250 2026-03-26 00:27 by Dyhoer
[考研] 302求调剂 +4 锦衣卫藤椒 2026-03-25 4/200 2026-03-25 16:29 by 功夫疯狂
信息提示
请填处理意见