excel VBA高手请进，关于让表格自动刷新的问题~

1. excel VBA高手请进，关于让表格自动刷新的问题~

可以用worksheet_change事件，把代码复制到你要操作的sheet，不是放在单独模块里面
重点是要注意先屏蔽worksheet_change对宏内事件的相应
你试试看，可以追问
Private Sub Worksheet_Change()
Application.EnableEvents = False '屏蔽事件响应
'此处加入你的代码
Application.EnableEvents = True '恢复事件响应

End Sub

2. 在Excel中如何用VBA代码实现秒的实时动态更新？

在A1输入
=NOW()
设置单元格格式，定义为你要的格式。

同时按Alt和F11进入宏界面，双击左上窗口的ThisWorkbook，在右边输入
Private Sub Workbook_Open()
abc
End Sub

再点菜单的插入，模块，粘贴如下代码：
Sub abc()
Application.OnTime Now + 1 / 24 / 3600, "abc"
Sheets("Sheet1").Range("A1").Calculate
End Sub

存盘退出（如果是2007版以上得另存为可以启动宏的工作簿），再打开就可以了。

3. 在Excel中，每75秒全部刷新一次，求VBA代码。

1、插入模块输入以下代码
Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
Sub 定时刷新MSGBox3()
ActiveWorkbook.RefreshAll
Call 定时刷新
End Sub
Sub 定时刷新()
Application.OnTime Now + TimeValue("00:01:15"), "定时刷新MSGBox3"  '75秒刷新一次
End Sub
2、工作薄打开事件  call  定时刷新

4. EXCEL用怎么用VBA自动刷新透视表

请参考如下代码：
Private Sub Worksheet_Activate()
    Dim myPivot As PivotTable
    For Each myPivot In Me.PivotTables
        myPivot.RefreshTable
    Next
    Set myPivot = Nothing
End Sub

5. EXCEL如何用VBA自动获取每个股票近几天的涨幅

　　一般网页上的数据都可以通过VBA进行抓取，应用得好，可以实现对很很多资料的动态监测。
　　涨幅就是指目前这只股票的上涨幅度。
　　涨幅的计算公式：涨幅=(现价-上一个交易日收盘价）/上一个交易日收盘价*100%
　　例如：某只股票价格上一个交易日收盘价100，次日现价为110.01，就是股价涨幅为（110.01-100 ）/100*100%=10.01%.一般对于股票来说 就是涨停了!如果涨幅为0则表示今天没涨没跌，价格和前一个交易日持平。如果涨幅为负则称为跌幅。
　　比如:一支股票的涨幅是：10%、-5%等 。

6. 想让excel自打开起一直（每秒）不断刷新，用vba怎么写代码呢？

ThisWorkBook 里面写：

Private Sub Workbook_Open()
freshtime
End Sub

然后新建模块里面写：

Sub freshtime()
Dim NewTime As Date
NewTime = Now + TimeValue("00:00:01")
Calculate
Application.OnTime NewTime, "freshtime"
End Sub

然后保存并重新打开表格，数据每秒自动刷新。

如果要不间断一直刷新，把 + TimeValue("00:00:01")去掉，但是会非常卡，无法操作。
原创，Excel 2016 亲测可行。

7. Excel VBA 自动刷新问题！请高手指教！

①、在工具－选项－重新计算里，有自动重算选项，点选它，就能自动刷新。
②、有些函数公式在设定为自动重算的状态下仍然不能自动刷新，因为这些公式中包含非易失性函数的跨工作表、工作薄的引用。这时，需要根据公式得到的结果添加易失性函数来强制其自动刷新。通常，对于得到的结果为文本的公式，就在其后添加：&T(NOW())，而对结果为数值的公式，添加：+ISTEXT(NOW())

③、VBA中有控制自动重算的功能。你在手动修改自动重算的设置的同时录制宏，就能看到它的代码：
Application.Calculation = xlAutomatic'设置为自动重算
Application.Calculation = xlManual'设置为手动重算

8. excel VBA数据刷新的代码问题

上面清除数据 是 清除的 Range("A7:W60000,B6,D6,F6,B2:D2,F2:H2"),   这里面不包含 U6这个单元格，

循环条件：Do Until Cells(i, "U") = Empty 
第一次 i=6，单元格 U6   我们不知道是什么内容，如果不为空，则继续运行——第二次当i=7时，数据是空的，那么循环跳出，不再运行。

你是想表达   只要 Cells(i, "U") 为空就继续运行么？   那么  要改为 Do  While 循环
但这样，你要保证U列下面的单元格中不是全空的，不然  程序将对所有行进行处理，直到行数达到最大，这有可能出错  或 造成程序假死。