我正在努力处理我编写的用于将自定义数据标签放入 excel 图表中的 VBA 代码的一部分。
Sub LabelPnt() 'change
Dim nm As Variant
Dim rate As Variant
Dim i As Integer
Dim r As Integer
Dim n As Integer
Dim b As Boolean
With Sheets("Rates") 'change as needed
r = .Range("C13:C30").Rows.Count 'change as needed
ReDim nm(r)
nm = .Range("C13:C30") 'num/den change
ReDim rate(r)
rate = .Range("B13:B30") 'rate change
End With
With Sheets("Fairview Northland Rate") 'change
For n = 1 To 1
With .SeriesCollection(n)
.ApplyDataLabels
For i = 1 To r
With .Points(i)
Select Case n
Case 1
.DataLabel.Text = rate(i, n) & Chr10 & "(" & nm(i, n) & ")"
.DataLabel.Font.Bold = False
.DataLabel.Font.Size = 7.5
.DataLabel.HorizontalAlignment = xlCenter
End Select
End With
Next i
End With
Next n
End With
End Sub
在此语句“.DataLabel.Text = rate(i, n) & Chr10 & "(" & nm(i, n) & ")"" 中,速率必须是原始数据表中的三个小数点,但它的不包括工作表中数据标签中的小数点。我假设这是因为数据标签是文本。
有人可以帮我解决这个问题吗?万分感谢。我花了很多时间,但无法弄清楚这部分。
如果需要,我可以提供任何进一步的信息或澄清。