Home > EA Functions > WorkSheet-Ctrl > EA_DelOtherSH

EA_DelOtherSH

機能説明
指定したワークブック内の指定ワークシート以外のワークシートを全て削除します。

定義
Public Function EA_DelOtherSH (
ByRef ea_wb As Workbook,
ByVal ea_shnm As String
) As Integer

引数
ea_wb
削除対象の存在するワークブックオブジェクトを指定します。
ea_shnm
削除対象外ワークシート名を指定します。
※削除対象外シートの指定方法:"Sheet1,Sheet2,Sheet4"

戻り値
削除成功：(0)が返却されます。
削除対象シートなし：(1)が返却されます。

使用例
指定したワークシート("Sheet1"と"Sheet2")以外のシートを削除します。 
                                    
Sub Main()
    Dim ea_wb As Workbook
    Dim ea_res As Integer
    
    Set ea_wb = ThisWorkbook
    ea_res = EA_DelOtherSH(ea_wb, "Sheet1,Sheet2")
    MsgBox "結果:" & ea_res
    Set ea_wb = Nothing
End Sub
クラウドソーシング「ランサーズ」