Excel VBA テクニック集
シートのコード名の変更





Excel VBA テクニック集
シートのコード名の変更方法です。下記の赤で囲った部分の変更になります。



使い方は、マクロ操作の基本的な考え方の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。
    Dim Count_W As Integer
    Dim Object_Obj As Object
    Dim I As Integer
        
    Count_W = Excel_App.ActiveWorkbook.VBProject.VBComponents.Count
    For I = 1 To Count_W
        Set Object_Obj = Excel_App.ActiveWorkbook.VBProject.VBComponents(I)
        If Object_Obj.Type = 100 _
        And Object_Obj.Name <> "ThisWorkbook" Then
            If Object_Obj.Name = "Sheet1" Then
                Object_Obj.Name = "Sheet_Henko"
                Exit For
                End If
            End If
        Next I

「こだわりハウス」写真館| 数学公式集| ピンポイントストリートビュー| FaceBook| Excel Vba テクニック集| Excel 計算式解析・他解析| 富山の建築家| Excel 計算式解析・他解析| 積分の定義・積分の記号の意味の研究|