メニュー画面に「社員マスター」ボタンを追加し、クリックされると社員マスターシートの有無をチェックし、なければ追加します。
■「社員マスター」ボタンを追加したメニュー画面
■ 追加された社員マスターシート
■ 標準モジュールの実行コード
'シートの存在を確認
Public Function ExSheetCheck(stname As String) As Boolean
Dim tsheet As Object
ExSheetCheck = False
'全をチェック
For Each tsheet In ActiveWorkbook.Worksheets
If LCase(tsheet.Name) = LCase(stname) Then
'見つかれば終了
ExSheetCheck = True
Exit For
End If
Next
End Function
■ クリックイベント
Private Sub CommandButton2_Click()
If ExSheetCheck("社員マスター") = False Then
'見つからなければシートを追加
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
'名前の変更
ActiveWorkbook.ActiveSheet.Name = "社員マスター"
End If
End Sub