VBA - 错误的图形代码

Question

首先，谢谢你过去的所有帮助，这个网站是一个祝福，你们都是圣徒。现在开始营业了

我在使用一组测试数据时遇到问题，其他图表也正确，但是，这组数据导致我的图形显示错误。我想我发现了问题，但我不确定如何解决它。当我的代码创建图形范围时，由于数学错误，它没有抓住正确的范围。作为参考，DataLength = 102，这就是图表和部分数据的样子。我需要绘制到"CZ"的图形，但它只会到达D因为{{1}这里是wack代码。

fRemainder = 0

另外参考，这是实际的图形代码。第一行偏离 Dim iAlpha As Integer, fAlpha As Integer Dim iRemainder As Integer, fRemainder As Integer Dim ConvertToLetter As String Dim fConvertToLetter As String iAlpha = Int((DataLength) / 26) '26 for the letters fAlpha = Int((DataLength + 2) / 26) 'for the average and sd functions, since they start at C not A iRemainder = DataLength - (iAlpha * 26) fRemainder = DataLength + 2 - (fAlpha * 26) If iAlpha > 0 Then ConvertToLetter = Chr(iAlpha + 64) End If If iRemainder > 0 Then ConvertToLetter = ConvertToLetter & Chr(iRemainder + 64) End If If fAlpha > 0 Then fConvertToLetter = Chr(fAlpha + 64) End If If fRemainder > 0 Then fConvertToLetter = fConvertToLetter & Chr(fRemainder + 64) End If ，但是单元格随每个分组而变化，即。 "C13"等。

"C13" "C49" "C85"

Answer 1

有多种方法可以定义用于图表的范围。在下面的示例中，我展示了两种方式，一种是制作初始图表，另一种是基于向图表添加新系列。最好删除宏录制器使用的StorageFile和selection等语句，而是定义范围变量。可以根据需要使用.select函数对这些范围变量进行微调。按照我在动画.gif中显示的代码逐步完成，以帮助理解它的工作原理，然后根据应用需要进行调整。

.offset