我是VBA的新手,需要一些帮助。我正在尝试使用Excel中的表格制作柱形图。唯一的问题是表会根据数据量来更改大小。
现在,我有以下代码从[Column1]:[Column4]
中选择表。唯一的问题是,有时我的列数多于/少于4。这在尝试运行宏时会导致错误。
我找到了一种方法来找出表中有多少列,并将该值分配为ColumnNumber
。然后,我将其转换为字符串以显示为“ Column7”(如果有7列)。但是出于某种原因,我不能仅仅将变量ColumnNumber2
放在Range.Select
中以选择该数量的列。任何帮助将不胜感激!
'Converts Column Number to Letter
Dim ColumnNumber As Integer
Dim ColumnNumber2 As String
'Input Column Number
ColumnNumber = maxLength - 6
ColumnNumber2 = "Column" & ColumnNumber
'Create Chart
Range("TableA[Department],TableA[[Column1]:[ & ColumnNumber]]").Select
Range("G5").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range("Active_PICAs!TableA[Department],Active_PICAs!TableA[[ & ColumnNumber]:[Column4]]")