自动滚动Excel数据
我已经构build了一个macros，用于parsing填充到excel中的实时数据馈送。 macros本身是从一个Worksheet_Change事件激活的。 计划是在办公室墙上的电视上显示不断变化的数据，以便我们了解我们行业实时发生的情况。
我正在努力的问题是，这个macros可以执行像每秒几次或每几分钟一次：我怎么显示这个数据，使得它是可见的，而不必有人滚动Excel表单每T（ X）。 如果这是更多的T（15米），那么这不会是一个这样的问题，但现在看来，它可能是T（1），这不是很可行。 我search谷歌以及堆栈社区，并找不到类似的问题。 有什么想法吗？
**数据按行逐行input，因此excel需要向下滚动。
工作表在工作表中更改事件
Option Explicit Private Sub Worksheet_Change(ByVal target As Range) If target.Rows(1).Cells.Count = 18 Then On Error GoTo bm_Safe_Exit 'Turn off event handling so if anything is changed, sub procedure will not be triggered Application.EnableEvents = False Dim initialTradeStructure As String, finalTradeStructure As String, rawStructure As String Dim nonLiveBlock As Boolean Select Case LCase(target.Cells(1, 3).Value2) 'RFQs Case "requestforquote" 'Do Nothing....no analysis of RFQs is necessary....will be filtered later 'Screen Trades Case "globextrades" rawStructure = target.Item(1, 2) initialTradeStructure = Right(rawStructure, Len(rawStructure) - 4) 'Bulk of analaysis conducted in analsyis engine to keep worksheet code clean/short finalTradeStructure = OptionStructureAnalysisEngine(initialTradeStructure, target) 'Block screen represented as Multileg in datafeed structure Case "block" If UCase(target.Item(1, 17).Text) = "TRUE" Then nonLiveBlock = True rawStructure = target.Item(1, 2) initialTradeStructure = Right(rawStructure, Len(rawStructure) - 4) 'Bulk of analysis conducted in analysis engine to keep worksheet code clean/short finalTradeStructure = OptionStructureAnalysisEngine(initialTradeStructure, target) ElseIf UCase(target.Item(1, 17).Text) = "FALSE" And UCase(target.Item(1, 16).Text) = "FALSE" Then 'Live block trade rawStructure = target.Item(1, 2) initialTradeStructure = Right(rawStructure, Len(rawStructure) - 4) finalTradeStructure = OptionStructureAnalysisEngine(initialTradeStructure, target) Else 'Do Nothing....No analysis of single block legs is necessary End If End Select If Not finalTradeStructure = "Nothing" And Not finalTradeStructure = "" Then finalTradeStructure = finalTradeStructure & " | Trades " & target.Item(1, 9).Value2 & " " & "| " & target.Item(1, 10).Value2 & "x" WTIAmericanOptionData.Cells(target.Row, 1) = finalTradeStructure End If End If bm_Safe_Exit: Application.EnableEvents = True End Sub Private Sub ToggleEventHandler() Application.EnableEvents = True End Sub
ActiveWindow.ScrollRow = target.Row
我很好奇，当你到头来时会发生什么？