Question

使用我的宏，将带有代码的几个按钮添加到我的工作簿中。

这是我的宏：

Sub Hidden_Buttons()
    Dim btn As Object
    Dim Code As String

    Dim a As Integer, b As Integer, c As Integer, d As Integer, FTop As Integer
    a = 1
    b = 25
    c = 1
    d = 1
    FTop = 385

    Do
        Set btn = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=b, Top:=FTop, Width:=110, Height:=25)
        ActiveSheet.OLEObjects(a).Object.Caption = "Watch Assignment"
        btn.Name = "Watch_WKA" & d & "_" & c
        btn.Visible = False

        Code = "Private Sub Watch_WKA" & d & "_" & c & "_Click()" & vbCrLf
        Code = Code & "    Dim Name As String" & vbCrLf
        Code = Code & "    Dim ws As Worksheet" & vbCrLf & vbCrLf
        Code = Code & "    Set ws = Worksheets(""UserForm_Data"")" & vbCrLf
        Code = Code & "    Name = ""WKA_& d""" & vbCrLf & vbCrLf     ' Here is my problem
        Code = Code & "    Call Watch_UF_Assign_Data(Name)" & vbCrLf
        Code = Code & "    ws.Visible = xlSheetVeryHidden" & vbCrLf & vbCrLf
        Code = Code & "    WatchAssignment.Show" & vbCrLf
        Code = Code & "End Sub"

        With ActiveWorkbook.VBProject.VBComponents(Worksheets(ActiveSheet.Name).CodeName).CodeModule
            .insertlines .CountOfLines + 1, Code
        End With

    FTop = FTop + 135
    d = d + 1
    a = a + 1
Loop Until d = 5

现在我的问题是，我不知道该如何写零件

Code = Code & "    Name = ""WKA_& d"""

对于不同的Button，其名称将如下所示：

Watch_WKA1_1->名称=“ WKA_1”
Watch_WKA2_1->名称=“ WKA_2”
Watch_WKA3_1->名称=“ WKA_3”

以此类推。

我希望有人可以帮助我。

编辑：

找到了解决方案。

只需要这样写：

Code = Code & "    Name = ""WKA_" & d & "" & vbCrLf & vbCrLf

VBA-添加带有数字系列代码的按钮

0 个答案: