EA_ReNameSH

機能説明
指定したワークブック内のワークシートを別名に変更します。

定義
Public Function EA_ReNameSH (
ByRef ea_wb As Workbook,
ByVal ea_org_shnm As String,
ByVal ea_cp_shnm As String
) As Integer

引数
ea_wb
複製元ワークシートが存在するワークブックオブジェクトを指定します。
ea_org_shnm
変更元ワークシート名を指定します。
ea_cp_shnm
変更先ワークシート名を指定します。

戻り値
変更成功:(0)が返却されます。
複製元シートなし:(1)が返却されます。

使用例
指定のワークシート("Sheet2")の名称を指定のワークシート名("Sheet2-2")に変更します。
                                    
Sub Main()
    Dim ea_wb As Workbook
    Dim ea_res As Integer
    
    Set ea_wb = ThisWorkbook
    ea_res = EA_ReNameSH(ea_wb, "Sheet2", "Sheet2-2")
    MsgBox "結果:" & ea_res
    Set ea_wb = Nothing
End Sub
                                    
                                
クラウドソーシング「ランサーズ」