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

【问题标题】：VBA Code for dynamic Range to update Stock Chart用于更新股票图表的动态范围的 VBA 代码
【发布时间】：2021-07-22 15:48:18
【问题描述】：

我是 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

请高手指导一下。

【问题讨论】：

到底是什么问题。是您设置范围不成功吗？
是的，为股票图表设置范围不成功
范围应该是单个单元格还是从工作表顶部开始等？您的问题和代码不清楚您的范围到底应该是什么。
我可以分享你的工作表吗？能否请您分享您的电子邮件 ID。
如果您编辑问题以包含更清晰的问题信息会更好。仅供参考，您需要Set 对象的Set 语句，即Set FC1 = ThisWorkbook...。

标签： vba dynamic range stock excel-charts

【解决方案1】：

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

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

谢谢大家

【讨论】：