| 查看: 1063 | 回复: 3 | ||
w448153518金虫 (小有名气)
|
[求助]
excel设置自动行数
|
| 有个程序会自动定时向excel表格发送一行数据，但是我只需要1000行，到了1001行自动删除第一行，以此类堆，主要是为了保存最近的1000个数据！ |
回复此楼» 猜你喜欢
科研孤儿太难了
已经有9人回复
-
时间戳又变了
已经有15人回复
-
时间戳变了，能看出什么问题？
已经有23人回复
-
只有每年这种时候来逛逛小木虫
已经有22人回复
-
今天系统多次维护，明天很可能放榜！
已经有10人回复
-
放榜前的不淡定
已经有12人回复
-
言之凿凿，明天官网会通知放榜？
已经有16人回复
-
重要消息，中午系统在维护
已经有12人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有20人回复
-
今天基金会出结果吗？20260819
已经有15人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- VC读写TXT中的数据
已经有22人回复
- 请教如何设置excel图横坐标不等间距？
已经有4人回复
- excel或者ultraedit或者oringin哪个软件能将一列数据转换成三列的形式
已经有4人回复
- matlab画XRD数据图
已经有21人回复
- Microsoft Word 使用技巧及问题解答汇总
已经有678人回复
- 怎么样设置matlab在excel中的输出位置
已经有10人回复
- 超过excel绘图数据最大行数限制怎么办？
已经有3人回复
- excel垂直轴轴原点设置问题
已经有3人回复
- 怎么分别画出自旋向上和自旋向下的DOS图
已经有19人回复
- 如何在word中设置行数字符数，求高人！
已经有15人回复
- excel 2007设置标签与坐标轴之间的距离
已经有10人回复
【答案】应助回帖
感谢参与，应助指数 +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
w448153518
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1072.5
- 散金: 237
- 红花: 1
- 帖子: 58
- 在线: 21.6小时
- 虫号: 2496957
- 注册: 2013-06-05
- 性别: GG
- 专业: 控制理论与方法
3楼2013-09-04 15:25:20
4楼2013-09-04 18:00:26
40