(Mini VBA No1)「シート数指定で新規ブックを開く」

このエントリーをはてなブックマークに追加
Facebook にシェア
[`evernote` not found]
[`yahoo` not found]
[`livedoor` not found]

※エラー処理は省略しています。使用の場合は御注意下さい。
スクリプトを使用して損害が発生しても、責任は一切負えませんので悪しからず。
icon_exclaim.gif

Sub test()
    Dim newbk   As Workbook
    Set newbk = createBook(5)
End Sub

Option Explicit

' 新規ブック作成
'
' 概要:
'   指定されたシート数のワークシートのみで構成されたブックを作成する。
'
' INPUT	 : sheetCount    挿入するシート数
' OUTPUT : ---
' RETURN : 作成されたブック
'
' @author   iiyan.net
' @date     2001/10/18
' @version  1.0
Function createBook(ByVal sheetCount As Integer) As Workbook
    Dim defaultSheetCount   As Integer

    With Application
        defaultSheetCount = .SheetsInNewWorkbook
        .SheetsInNewWorkbook = sheetCount

        Set createBook = Workbooks.Add

        .SheetsInNewWorkbook = defaultSheetCount
    End With
End Function

 


コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


This blog is kept spam free by WP-SpamFree.