excel股票自动刷新，VBA代码如何写啊？

1. excel股票自动刷新，VBA代码如何写啊？

我测试了下发现是鼠标放上去悬停才能触发刷新数据的动作。。。
sheet1里写：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
宏2
End Sub
模块1里写：
Sub 宏2()
'
' 宏2 宏
ActiveWorkbook.RefreshAll
If Sheet1.[G1]  "停止刷新" Then Application.OnTime (Now + TimeSerial(0, 0, 2)), "宏2"
End Sub
亲测OK。


TimeSerial(0, 0, 2) 里面的2就是每2秒刷新一次，可以改成你想要的数值。
这个是我录制宏，再稍微修改下，几分钟完成的。

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

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

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

3. 需求excel VBA代码：实现打开excel后能够每秒自动重新计算， 哪位大神可以给代码？在线等，着急。

Dim NextTick As DatePublic Sub re_cal()    Sheet1.Calculate    NextTick = Now + TimeValue("00:00:03")    Application.OnTime NextTick, "re_cal"End Sub模块里添加这一句

4. EXCEL 怎么用VBA实现每隔1分钟自动执行ctrl+s（保存）命令？

1、首先在电脑上鼠标右键单击任意Excel表格，在右键菜单中选择打开命令。

2、进去Excel界面之后，选择Excel菜单栏中的文件按钮。

3、然后选择新页面中的选项按钮。

4、然后在Excel选项窗口左侧选择保存按钮，接着勾选图示自动保存设置。

5、最后设置自动保存路径，然后单击下方的确定选项即可。

5. 在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版以上得另存为可以启动宏的工作簿），再打开就可以了。

6. 谁能给一个一打开excel就自动执行一次行高刷新的VBA代码

Private Sub Workbook_Open()
ThisWorkbook.Sheets("表名").Rows.AutoFit
End Sub
Rows表示所有的行。

7. VBA 让Excel在指定的时间关闭重新打开，求代码？

Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 Application.EnableEvents = False
 
 Application.EnableEvents = True
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True
Application.OnTime

8. excel的vba模块如何自动运行

假如你的小程序如下:
Sub test()
   MsgBox "OK,TEST!"
End Sub
那么你可以在增加下面的代码,打到打开工作薄就自动执行上面的小程序
Sub auto_open()
test
End Sub