0

カスタマイズしたデータ ラベルを 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) & ")"" では、レートは元のデータ シートのように小数点以下 3 桁にする必要がありますが、シートのデータ ラベルの小数点を除外します。これは、データ ラベルがテキストであるためだと思います。

誰かがこれを修正するのを手伝ってくれますか? ありがとうございます。私は何時間も費やしましたが、この部分を理解できませんでした。

必要に応じて、さらに詳しい情報や説明を提供できます。

4

1 に答える 1