Question

我有一个excel电子表格上的按钮（不在用户表单中），我有一个用户文件上有一个文本框，当我在用户表单的文本框中输入一个名称时将我的Excel工具栏上的按钮标题设置为文本框中输入的内容。我想知道我需要使用哪些代码以及在哪里插入代码？

希望有意义，请记住我是新手，所以这就是为什么我要问在哪里插入代码

非常感谢提前

Answer 1

假设名为TextBox1的文本框，您的userform中的代码可能如下所示：

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If Len(Me.Textbox1.text) > 0 then
     ActiveSheet.Buttons("Button 1").Caption = Me.Textbox1.text
   End If
End Sub

或者如果您希望在键入时更新标题：

Private Sub TextBox1_Change()
    If Len(Me.TextBox1.Text) > 0 Then _
        ActiveSheet.Buttons("Button 1").Caption = Me.TextBox1.Text
End Sub

Answer 2

由于您已经使用了“CommandButton”（这是一个ActiveX控件）但似乎正朝着Form控件前进，我已经使用了您需要的两种方法：

的ActiveX：

ActiveSheet.Shapes("YourButton").OLEFormat.Object.Object.Caption = "YourText"

形式：

ActiveSheet.Shapes("YourButton").TextFrame.Characters.Text = "YourText"

Excel VBA从Userform文本框设置Commandbutton标题

2 个答案: