[[20150305215400]]　『フォーム内にあるテキストボックスのオブジェクト』（ななな）　ページの最後に飛ぶ

『フォーム内にあるテキストボックスのオブジェクト名の変更』（ななな）

現在、テキストボックスが300個程度あるのですが
オブジェクト名の「Text１←ここ」が324から始まっており
１から始めたいです。

初めから作成した時に324から始まったので
1に戻す方法か、一括で変更する方法があれば教えていただきたいです。

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 VbProjectを操作すれば、可能ですが、それには設定が必要です。
 リボンの「ファイル」---「オプション」----「セキュリティセンター」と辿って
 「セキュリティセンターの設定」をクリックし、「マクロの設定」の
 「VBA　プロジェクト　オブジェクト　モデルへのアクセスを信頼する」　にチェックをいれます。

 尚、最後には　元にもしてくださいセキュリティを下げていますから・・・。

 新規ブックにて、　UserFormを作成し（UserForm1）、　
 テキストボックスを三つ配置してください（TextBox1、TextBox2、TextBox3）

 以下のコードは　このUserform１にあるTextBox1、TextBox2、TextBox3のコントロール名を

 TextBox5、TextBox6、TextBox7に代えるコードです。

 標準モジュールに

 Sub test()
    Dim nwno As Long
    Dim odno As Long
    Const ctrlnm = "TextBox"
    On Error Resume Next
    With ThisWorkbook.VBProject.VBComponents("userform1")
       If .Type = 3 Then
          With .Designer
             nwno = 5
             For odno = 1 To .Controls.Count
                Err.Clear
                .Controls(ctrlnm & odno).Name = ctrlnm & nwno
                If Err.Number <> 0 Then Exit For
                nwno = nwno + 1
             Next
          End With
       End If
   End With
   On Error GoTo 0
 End Sub

 意味を理解したら、ご自分用にコードを変更してみてください。

（ichinose） 2015/03/06(金) 07:02

コメント返信：

[ 一覧(最新更新順) ]

[[20150305215400]] 『フォーム内にあるテキストボックスのオブジェクト』（ななな） ページの最後に飛ぶ

[[20150305215400]]　『フォーム内にあるテキストボックスのオブジェクト』（ななな）　ページの最後に飛ぶ