如何在内存中添加数字和单元格值

Question

这是我的代码：

Dim i As Integer
For i = 1 To 116

    ActiveChart.FullSeriesCollection(i).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .Weight = "=R!$B$" & CStr(i + 1) + 0.75
    End With

    Next i
End Sub

我试图根据相应单元格中的值自动为图表系列指定边框。

Answer 1

您需要将单元格中的值作为Range object。

.Weight = sheets("R").Range("B" & CLng(i + 1)).value + 0.75