Question

在Excel中，我创建了一个表单。在这张表格上，我创建了3个按钮。

我希望能够在运行时移动这些按钮。

我遇到的问题是如何在运行时引用按钮？

Answer 1

Private Sub CommandButton1_Click()
  Me.Controls("CommandButton1").Move 0, 0
End Sub

Answer 2

我遇到的问题是如何在运行时引用按钮？

这取决于您如何为按钮指定名称。

这是一种在运行时创建命令按钮并使用其他按钮移动它的简单方法

Option Explicit

Const CmdName As String = "Click_Me"

Dim ctl_Command As Control

'~~> Create command button on the fly
'~~> and give it a predefined name
Private Sub CommandButton1_Click()
    Set ctl_Command = Me.Controls.Add("Forms.CommandButton.1", CmdName, False)

    With ctl_Command
        .Left = 100
        .Top = 100
        .Width = 255
        .Caption = "Blah Blah"
        .Visible = True
    End With
End Sub

'~~> Use that name to move the control
Private Sub CommandButton2_Click()
    Dim X As Double, Y As Double

    X = 5: Y = 5.5

    Set ctl_Command = Me.Controls(CmdName)
    ctl_Command.Move X, Y
End Sub

如果要创建多个动态控件，则可以使用变量并将其递增以指定名称。请参阅THIS示例。在该链接中，请参阅

行

Set ctl_Command = Me.Controls.Add("Forms.CommandButton.1", "CmdXYZ" & i, False)

注意"CmdXYZ" & i？

使用VBA在表单上移动动态创建的控件

2 个答案: