【VBAリファレンス】Excel VBAで解決する十進数度から度分秒への変換：業務効率を極める精密計算術

ExcelVBA

2026.09.13

概要：なぜ度分秒（DMS）への変換が必要なのか

測量、航海、天文学、あるいは地図情報システム（GIS）を扱う業務において、緯度や経度はしばしば「十進数（Decimal Degrees）」として提供されます。しかし、現場の帳票や古いシステムでは、依然として「度・分・秒（Degrees, Minutes, Seconds：DMS）」形式が求められることが少なくありません。

例えば、「35.6895度」という数値を、人間が直感的に理解できる「35度41分22.2秒」へ変換する作業は、Excelの標準関数でも可能ですが、大量のデータ処理や定型業務においてはVBAを活用することで、ヒューマンエラーを排除し、圧倒的なスピードで処理を完結させることが可能です。本記事では、この変換プロセスを数理的に解き明かし、実務で即戦力となるVBAコードを実装します。

詳細解説：十進数から度分秒への変換ロジック

度分秒への変換ロジックは非常にシンプルですが、正確な計算には「整数除算」と「剰余」の概念が不可欠です。

1. 度（Degrees）：十進数の整数部分を取り出します。
2. 分（Minutes）：十進数の小数点以下に60を乗じ、その整数部分を取り出します。
3. 秒（Seconds）：分を計算した際の余り（小数点以下）にさらに60を乗じます。

これを数式化すると以下のようになります。
・度 = Int(十進数)
・分 = Int((十進数 – 度) * 60)
・秒 = ((十進数 – 度) * 60 – 分) * 60

この際、秒の小数点以下の桁数をどこまで保持するかは業務要件によります。通常、測量等の現場では小数点第2位（あるいは第3位）まで求めることが一般的です。

サンプルコード：汎用関数としてのVBA実装

以下に、どのようなセルからでも呼び出せる汎用的なVBA関数と、それを制御するメインプロシージャを提示します。


' --- 十進数度を度分秒の文字列に変換する関数 ---
Function ConvertToDMS(ByVal decimalDegree As Double) As String
    Dim degrees As Long
    Dim minutes As Long
    Dim seconds As Double
    
    ' 度を計算
    degrees = Fix(decimalDegree)
    
    ' 分を計算
    minutes = Fix((Abs(decimalDegree) - Abs(degrees)) * 60)
    
    ' 秒を計算
    seconds = ((Abs(decimalDegree) - Abs(degrees)) * 60 - minutes) * 60
    
    ' 結果を文字列として整形（秒は小数点第2位まで保持）
    ConvertToDMS = degrees & "度" & minutes & "分" & Format(seconds, "0.00") & "秒"
End Function

' --- シート上のデータを一括変換するメイン処理 ---
Sub BatchConvertCoordinates()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' A列に十進数、B列に変換結果を出力
    For i = 2 To lastRow
        If IsNumeric(ws.Cells(i, 1).Value) Then
            ws.Cells(i, 2).Value = ConvertToDMS(ws.Cells(i, 1).Value)
        End If
    Next i
    
    MsgBox "変換が完了しました。", vbInformation
End Sub

実務アドバイス：精度と保守性を高めるために

VBAで度分秒を扱う際、現場のエンジニアが陥りやすい罠がいくつかあります。以下のポイントを意識してください。

1. 負の数の扱い：
緯度が南緯（マイナス）、経度が西経（マイナス）の場合、単純なInt関数やFix関数では計算が狂うことがあります。上記のコードではAbs関数を使用していますが、符号をどう扱うかは業務要件に合わせて調整してください。「マイナス記号を先頭につける」のか、「南緯・北緯といった文字列を付与する」のかで処理は分岐します。

2. 浮動小数点誤差：
コンピュータは十進数の小数を二進数で処理するため、極めて微小な誤差（例: 22.2000000000001秒となる等）が発生することがあります。表示上はFormat関数で丸められますが、条件分岐で秒数を使用する場合は、必ずRound関数等で四捨五入した値を使用するようにしてください。

3. ユーザ定義関数（UDF）としての活用：
上記のConvertToDMS関数は、セル内で「=ConvertToDMS(A2)」のように直接呼び出すことも可能です。VBAエディタにこのコードを貼り付けておくだけで、Excelの標準関数のように振る舞い、誰でも簡単に正確な計算ができるようになります。

4. データのバックアップ：
計算結果を上書きするのではなく、必ず元の十進数データは残しておくことが基本です。元データが残っていれば、後から秒数の精度を変更したい場合（例：小数点第1位までで良い、または整数まで欲しい）に、即座に対応可能です。

まとめ：VBAがもたらす業務の最適化

Excelの標準機能で度分秒を算出する場合、複数の関数を組み合わせてネストさせる必要がありますが、それは数式が長大になり、修正が困難になる原因となります。今回紹介したVBAによるアプローチは、可読性に優れ、かつメンテナンスが容易です。

一度このモジュールを作成してしまえば、他のプロジェクトや別の案件でも「モジュールのエクスポート・インポート」だけで資産を再利用できます。これこそが、VBAを習得する最大のメリットです。「面倒な計算はコンピュータに任せ、人間はデータの本質を分析する」、この姿勢こそがプロフェッショナルなExcel運用の極意です。

日々の業務において、単なる「計算」に時間を費やすのではなく、こうした小さな自動化を積み重ねることで、あなたの生産性は劇的に向上します。ぜひ、本日のコードをあなたの業務ツールボックスに加えてください。