用于更新股票图表的动态范围的 VBA 代码

问题描述

我是 VBA 学习者，正在使用 Stock OHLC 图表，期待与专家一起解决我的问题。 表 2：在 A 列到 E 列中有数据（列的标题为日期、开盘价、最高价、最低价和收盘价）。 表 1：有图表，只想修改范围。 范围应该是数据集最后一行的 60 行和下面的 15 行 我正在尝试代码

Dim FCl As Range

Dim LCl As Range

FCl = ThisWorkbook.Worksheets("Sheet 2").Range("A1").End(xlDown).Select - 60

LCl = ThisWorkbook.Worksheets("Sheet 2").Range("A1").End(xlDown).Select + 15

请专家指导。

解决方法

我用以下代码解决了这个问题...

Dim ws1 As Worksheet

Set ws1 = ThisWorkbook.Worksheets("Sheet1")

Dim ws2 As Worksheet

Set ws2 ThisWorkbook.Worksheets("Sheet2")

Dim LastRow As Long

LastRow = ws2.Cells(ws2.Rows.Count,1).End(xlUp).Row

Dim StartRange As Long

StartRange = LastRow - 59

Dim EndRange As Long

EndRange = LastRow + 15

谢谢大家