Question

VBA非常新，通常使用Matlab和Python。我有以下代码部分

Sub Example
    Dim num As Integer

    num = 62
    ActiveSheet.CheckBoxes.Add(23.25, 595.5, 101.25, 18.75).Select

    With Selection
        .Name = "NewCheckBox"
        Sheets("IPT data").Select
        .Caption = Cells(num, "C")
    End With

    Sheets("IPT Chart").Select
    ActiveSheet.CheckBoxes("NewCheckBox").Select

    With Selection
        .Value = xlOff
        .LinkedCell = "'IPT data'!$A$num"
        .Display3DShading = False
    End With
End Sub

我希望链接的单元格引用Anum。有没有办法做到这一点？后来的num将在循环中使用，所以我不能单独使用它。

就像我说的那样，很新，这可能是基本的东西，所以我开始了。我有一个搜索周围，并试图使用细胞和范围无济于事。

谢谢

Answer 1

使用

.LinkedCell = "'IPT data'!$A$" & num

但你可以避免所有选择和写作：

Option Explicit
Sub Example2()
    Dim num As Integer

    num = 62
    With Worksheets("IPT Chart")
        With .CheckBoxes.Add(23.25, 595.5, 101.25, 18.75)
            .Name = "NewCheckBox"
            .Caption = Worksheets("IPT data").Cells(num, "C")
            .Value = xlOff
            .LinkedCell = "'IPT data'!$A$" & num
            .Display3DShading = False
        End With
    End With
End Sub

如何在链接的单元格引用中使用变量？

1 个答案: