エクセルマクロVBA サンプルコード辞書
トップページ（目次）246.セルの書式設定_時刻_に設定する
→
Sub セルの書式設定_時刻_に設定する()
Range("A1").NumberFormatLocal = "[$-x-systime]h:mm:ss AM/PM"
End SubSub セルの書式設定_時刻_に設定する()
Range("A1").NumberFormatLocal = "[$-x-systime]h:mm:ss AM/PM"
End Sub