24小时热门版块排行榜

返回列表

w448153518

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 1072.5
散金: 237
红花: 1
帖子: 58
在线: 21.6小时
虫号: 2496957
注册: 2013-06-05
性别: GG
专业: 控制理论与方法

[求助] excel设置自动行数

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

回复此楼

» 猜你喜欢

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

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楼 2013-09-04 10:36:32

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

jjdg

版主 (知名作家)

程序强帖: 9
应助: 223 (大学生)
贵宾: 3.926
金币: 51003.4
红花: 238
帖子: 7227
在线: 474.2小时
虫号: 27000
注册: 2003-10-21
专业: 药物代谢与药物动力学
管辖: 程序语言

【答案】应助回帖

感谢参与，应助指数 +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

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 1072.5
散金: 237
红花: 1
帖子: 58
在线: 21.6小时
虫号: 2496957
注册: 2013-06-05
性别: GG
专业: 控制理论与方法

引用回帖:

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的回帖