【ExcelVBA・マクロ】Second関数の使い方｜時刻から「秒」を取得する方法【コピペOK】

ExcelVBA

2026.05.18

VBAで時刻データを扱っていると、次のようなことはありませんか？

このような場合は、Second関数を使うことで解決できます。
時刻データから「秒（0〜59）」を取得できる関数です。

この記事では、Second関数の基本から実務での活用方法まで分かりやすく解説します。

この記事でできること

基本構文はこちらです。

Second(時刻)

例：

MsgBox Second("10:25:30")

→ 30

Dim s As Integer

s = Second(Time)

MsgBox s

→ 現在の秒が取得されます

Dim s As Integer

s = Second(Range("A1").Value)

MsgBox s

A1の時刻から秒を取得できます。

時・分・秒を分解できます。

Dim h As Integer
Dim m As Integer
Dim s As Integer

h = Hour(Time)
m = Minute(Time)
s = Second(Time)

MsgBox h & ":" & m & ":" & s

開始時間と終了時間を取得できます。

Dim startTime As Date

startTime = Now

MsgBox "開始秒：" & Second(startTime)

If Second(Time) Mod 2 = 0 Then
    MsgBox "偶数秒です"
Else
    MsgBox "奇数秒です"
End If

ログ処理などでよく使われます。

Second(Now)

→ 日付＋時刻から秒を取得

時刻として認識できる必要があります。

Dim val As Variant

val = Range("A1").Value

If IsDate(val) Then
    MsgBox Second(val)
Else
    MsgBox "時刻ではありません"
End If

時刻として認識できない可能性があります。

セルの表示形式ではなく実際の値を確認してください。

コピー時に全角文字や特殊文字が混ざることがあります。
その場合は該当行を手入力し直すと解決することがあります。

Second関数を使いこなせるようになると、時間データ処理の幅が大きく広がります。
実務でも便利なので、ぜひ覚えておきましょう。