/ / Excel VBAユーザーフォームテキストボックスからコマンドボタンキャプションを設定する - excel、excel-vba、vba

Excel VBAユーザーフォームのテキストボックスからコマンドボタンのキャプションを設定する - excel、excel-vba、vba

Excelスプレッドシートにあるボタンがあります(ユーザーフォームにはありません)私は自分のユーザーフォームのテキストボックスに名前を入力し、それから自分のExcelシートにある自分のボタンのキャプションをに設定するときに、テキストボックスがオンになっています。テキストボックスに入力された内容どのコードを使用する必要があり、そのコードをどこに挿入するのかを知りたいですか。

理にかなっていることを願って、私はこれに初心者であることを覚えておいてください。だからコードをどこに挿入するかを尋ねているのです。

事前に多くの感謝

回答:

回答№1は1

TextBox1という名前のテキストボックスを想定したユーザーフォームのコードは、次のようになります。

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

回答№2の場合は1

"CommandButton"(これはActiveXコントロールです)を使用していますが、フォームコントロールに向かっているように見えますが、必要な2つの方法を試してみました。

ActiveX:

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

フォーム:

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