求助 excel VBA如何保存不停刷新的数据

zwhua

求助，EXCEL 因为使用了随机函数，数据会一直刷新，想要让他刷新N次，刷新一次，保存一次，希望刷新次数在代码中设定，或者设定一个更新数据的总时间，然后将【随机】工作表中的B1:AH1数据按顺序保存在【保存数值】工作表的$B:$AH单元格中，比如刷新100次，然后将100行的数据按顺序保存。请大神帮帮忙，谢谢！

zwhua

补充一下，随机工作表中B1：AH1数据会随时变动，每次刷新一次都将数值保存在第二个工作表中

醉眼看尘世

你通过什么操作刷新该表，这个需要说清楚

zwhua

醉眼看尘世 发表于 2024-7-27 22:25
你通过什么操作刷新该表，这个需要说清楚

你好，只要保存excel随机函数就会刷新数据，可以以保存这个操作作为一次刷新的节点

zwhua

瞎弄了一下，能复制数据，但不知道为啥，我想复制10行数据，但是For循环好像没有执行，只有一次复制动作，麻烦大神帮忙看看哪里出问题了，还是需要别的函数来统计运行次数？代码如下：
Sub SaveDataToAnotherWorksheet()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim i As Integer
   
   
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("随机")
    Set targetSheet = ThisWorkbook.Worksheets("保存数值")
    NextRow = targetSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1  '取活动单元表的第2列最后一个有值的行的下一行行号
   
    For i = 1 To 10
        ' 复制数据
        sourceSheet.Range("B1:AH1").Copy
   
        ' 粘贴到目标工作表
        targetSheet.Range("B" & NextRow).PasteSpecial xlPasteValues
   
    'ActiveWorkbook.RefreshAll
        i = i + 1

    Next
   
    ' 保存工作簿
    ThisWorkbook.Save
End Sub

liulang0808

Private Sub Worksheet_Calculate()

End Sub
楼主看看这个事件是否可行吧
设置一全局变量，

zwhua

liulang0808 发表于 2024-7-28 06:13
Private Sub Worksheet_Calculate()

End Sub

谢谢版主，我试试

zwhua

liulang0808 发表于 2024-7-28 06:13
Private Sub Worksheet_Calculate()

End Sub

谢谢版主，已经摸索出来了，但是excel文档大了，运行会卡甚至卡死，还希望再改进改进，设置定时器来定时运行。代码如下：

Private Sub Worksheet_Calculate()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim i As Integer
   
   '限定Worksheet_Calculate()事件执行次数
    For i = 1 To 200
        'Worksheet_Calculate()初始设定不触发
        Application.EnableEvents = False
        ' 设置源工作表和目标工作表
        Set sourceSheet = ThisWorkbook.Worksheets("随机")
        Set targetSheet = ThisWorkbook.Worksheets("保存数值")
        NextRow = targetSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1  '取目标工作表的第2列最后一个有值的行的下一行行号
   
        ' 复制数据
        sourceSheet.Range("B1:AH1").Copy
   
        ' 粘贴到目标工作表
        targetSheet.Range("B" & NextRow).PasteSpecial xlPasteValues
   
        
        'Application.EnableEvents = True
         i = i + 1
    Next
   
        ' 保存工作簿
    ThisWorkbook.Save
End Sub