楼主: 等风来撒
1296 2

[问答] 求助怎么用vba记录数据 [推广有奖]

  • 0关注
  • 0粉丝

博士生

40%

还不是VIP/贵宾

-

威望
0
论坛币
500 个
通用积分
35.5521
学术水平
0 点
热心指数
5 点
信用等级
0 点
经验
2497 点
帖子
220
精华
0
在线时间
232 小时
注册时间
2014-1-5
最后登录
2023-10-30

相似文件 换一批

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
在wind里面某个单元格为自动更新的实时数据,但每5秒都会变一次,请问如何通过VBA自动记录下来?

例如数据在A2里面更新,那么每更新一次都会在B2 B3 B4记录如此类推....
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

关键词:VBA wind 自动记录 单元格 IND 记录

回帖推荐

caihaiyu 发表于2楼  查看完整内容

操作步骤见下面图片。 其中“b1000000"是为了定位到B列最后一个非空单元格,然后下移一个填写新数。 所以当B列超过1000000行后,程序会定位到B1直接覆盖B1单元格内容。
这个...........
沙发
caihaiyu 在职认证  发表于 2017-1-20 15:36:08 |只看作者 |坛友微信交流群
操作步骤见下面图片。
其中“b1000000"是为了定位到B列最后一个非空单元格,然后下移一个填写新数。
所以当B列超过1000000行后,程序会定位到B1直接覆盖B1单元格内容。

QQ图片20170120154045.png
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Column = 1 And Target.Row = 2 Then
  3.     Range("b1000000").End(xlUp).Offset(1, 0) = Target.Value
  4. End If
  5. End Sub
复制代码

QQ图片20170120153328.jpg (37.37 KB)

QQ图片20170120153328.jpg

已有 1 人评分论坛币 学术水平 热心指数 收起 理由
車樹森 + 5 + 4 + 3 精彩帖子

总评分: 论坛币 + 5  学术水平 + 4  热心指数 + 3   查看全部评分

使用道具

藤椅
等风来撒 发表于 2017-1-25 14:53:34 |只看作者 |坛友微信交流群
caihaiyu 发表于 2017-1-20 15:36
操作步骤见下面图片。
其中“b1000000"是为了定位到B列最后一个非空单元格,然后下移一个填写新数。
所以 ...
谢谢~~~~~~~~

使用道具

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-4-27 14:21