|
|
一覧へ戻る
| ■□■□■
シート操作関連のテクニック
■□■□■ |
シート数を指定してブックを追加する
(Excel 97/2000) |
新規ブック追加時のシート枚数はメニューの“ツール”−”オプション”
から”全般”タブで”新しいブックのシート数”を指定することが出来ます。
サンプルではこの機能を一時的に変更してブック追加時のシート枚数を
調整します。
'=======標準モジュール========
Sub ChageNumofNewSheets()
Dim Temp As Integer
Dim WB As Workbook
Dim Num As Integer
'数値型変数に現在の指定値を格納
Temp = Application.SheetsInNewWorkbook
Num = Application.InputBox("新規ブックのシート枚数を指定", Type:=1)
'新規ブック追加時のシート枚数を変更
Application.SheetsInNewWorkbook = Num
'信金ブックを追加し、シート数を確認
Set WB = Workbooks.Add
MsgBox "シートの数は" & WB.Sheets.Count & "枚です"
'設定を元に戻す
Application.SheetsInNewWorkbook = Temp
End Sub
|
|
|
|
