excel如何每隔40秒，记录实时变动的数据？整列数据

EXCEL怎么记录实时变化的数据~

可以用数据记录单来记录，数据记录单并不在功能区中。但你可以把数据记录单添加到自定义工具栏中。在工具栏上右击，选择自定义工具栏，点开左上的的一个列表框，里边是常用命令什么的，你选择不在功能区的命令，在下边列表中找到记录单，添加到自定义工具栏中。确定，你就可以使用数据记录单的功能了。

Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, [B80:AV80]) Is Nothing Then [B80:AV80].Copy If [D82] = "" Then [B82].Select Else n = Range("D" & Cells.Rows.Count).End(xlUp).Row + 1 Cells(n, "B").Select End If Sheet1.PasteEnd IfEnd Sub
80行每改一个值，就自动在下面新加一行等于80行的值。
随手就写出来这么个代码。

你好，你的要求可以实现，视频见此地址：excel中定时自动记录工作表中的数据

下面是相应的代码：

'此代码放到thisworkbook

Private Sub Workbook_Open()

    Call rndNum

    Call nowRun

End Sub

'下面的代码放到新插入的模块中，rndNum是为了演示方面而显示的随机数，你在使用时需要去掉

Sub writeRecode()

    Dim i As Integer

    Dim lastRow As Integer

    

    lastRow = Sheets("Sheet2").Range("A65535").End(xlUp).Row + 1

    For i = 1 To 10

        Sheets("Sheet2").Cells(lastRow, i) = Sheets("Sheet1").Cells(i, "F")

    Next

    Call rndNum

    Call nowRun

End Sub

Sub nowRun()

    Application.OnTime Now + TimeValue("00:00:05"), "writeRecode"

End Sub

Sub rndNum()

    Dim i As Integer

    

    For i = 1 To 10

        Sheets("Sheet1").Cells(i, "F") = Int(Rnd() * 10)

    Next

End Sub

sub abc()
application.ontime now+timevalue("00:00:01"),"abc"
sheet1.[a1]=sheet1.[a1]+1
end sub
这里可以实现a1,每秒自动加1
你可以根据这个公式改
这个公式需要放在模块里。
每次打开表需要手动启动一次
如果你不想
加一个代码，目的是
工作簿打开时 call abc()

这个……我觉得你应该考虑用‘宏’来编辑吧，这个程序需要一组代码实现。

网购平台花钱找人做算了，几十行代码的事。

---

准格尔旗15068819810： EXCEL中如何设置时间的递增? - ？
糜凌卡文： A1是2008-3-12 22:08:10 A2输入公式: =A1+Time(,,10) 如果格式不对,单元格格式里面设置一下自定义格式: yyyy-m-d hh:mm:ss

准格尔旗15068819810： excel中,如何在表格中央插入实时记录的设置,并且在保存时不会出现“隐私问题警告” - ？
糜凌卡文： 实时记录的设置是指什么?出现“隐私问题警告” 有可能是因为你从网页上保存下来的文件拿去编辑而提示的吧 试一下,将内容复制到记事本再复制到EXCEL看一下

准格尔旗15068819810： excel表格2013 - 7 - 22 8:40:12,怎样继续生成下一秒时间时间？
糜凌卡文： 如果2013-7-22 8:40:12在A1单元格,则在A2输入以下公式,然后向下填充即可. =A1+0.0000115740695036948

准格尔旗15068819810： 在EXCEL中如何输入时间 - ？
糜凌卡文： 你要输入时间的标准格式的话:就输入0:4:38 你也可以输入0.4.38的样式,然后要统计处理数据的时候用函数=TEXT(SUBSTITUTE(C24,＂.＂,＂:＂),＂HH:MM:SS＂) 转换过来

准格尔旗15068819810： 怎样能记录excel表格的操作时间 - ？
糜凌卡文： EXECL 录入数据时,后面自动显示时间 Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 ThenTarget.Offset(0, 1) = DateEnd If End Sub其中 If Target.Column = 1 Then 表示:在第1列(A)列输入后,第2列(B)自动出时间 注意:在VBA代码中,Date、Now、Time分别表示系统日期、日期及时间

准格尔旗15068819810： excel怎么自动获取当前时间 - ？
糜凌卡文： 在单元格中输入公式 =NOW() 就是获取当前时间,且会随时间而变化 按Ctrl+Shift+; 也获取当前时间,且不会变化.

准格尔旗15068819810： 怎么在EXCEL里弄成点一下就自动把当时时间弄上去? - ？
糜凌卡文： 在另一工作表,如sheet2中A1输入=now(),并将该单元格命名,如time.在投诉记录表中时间列设置有效性-序列,输入=time,以后使用时鼠标点一下选择即可.

准格尔旗15068819810： 怎么在Excel 2010里面设置一个自动记录当前时间的表格,比如借出去的时候一输入自动记录当前时间,还回来的时候再次自动记录当前时间'.？
糜凌卡文： 在某个单元格输入:=NOW()下拉填充,即可.但是,时间不会自动记录,每次打开都会显示当前的日期.在保存的时候,需要,选中需要记录日期的单元格,然后,复制,粘贴为“值”

准格尔旗15068819810： 如何用excel公式记录某个单元格输入内容的时间? - ？
糜凌卡文： 这个只能用VBA代码,在当前表的Private Sub Worksheet_Change(ByVal Target As Range)事件中,自动加入当前时间.当该表格某单元格内容发生改变时,触发此事件.但难点是如何判断A列的哪个单元格被输入了数据.

准格尔旗15068819810： excel分秒 怎么输入方便且加减也方便 4:37 2:28 3:36等 - ？
糜凌卡文： 设置单元格格式为时间,时分秒格式,直接在其中输入数值,1/24/60/60代表1秒.