セルに現在の日時を入力したい場合は、以下のようなショートカットを使うと便利！ これは、iMacで確認した結果。

[Control] + [;] — 現在の年月日を入力 [Command] + [;] — 現在の時間を入力（ヘルプではControl+Shift+;となっている）

ちなみに、Windowsの場合は、それぞれCtrl+;、Ctrl+: となる。 ということで、現在の日時を入力したい場合は、Control+;　→半角の空白→Command+; と入力する。 書式をお好きなように設定すれば、はい！出来上がり。

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