Excelで小数度を度分秒に変換する方法は？

ワークシートに小数度として表示されるデータのリストがある場合がありますが、次のスクリーンショットに示すように、小数度を度、分、秒の形式に変換する必要があります。Excelで会話をすばやく行うにはどうすればよいですか。

VBAを使用して、小数度を度、分、秒に変換します

VBAを使用して、度、分、秒を小数に変換します

VBAを使用して、小数度を度、分、秒に変換します

すごい！ Chrome、Firefox、SafariなどのExcelで効率的なタブを使用する！

時間の50％を節約し、毎日何千ものマウスクリックを減らしましょう！

VBAコードで小数度を度、分、秒に変換するには、以下の手順に従ってください。

1。 ホールド 頭の中 ボタンを押して F11 キーボードで開くには Microsoft Visual Basic for Application 窓。

2。 クリック インセット > モジュール、VBAをモジュールにコピーします。

VBA：小数度を度、分、秒に変換します

Sub ConvertDegree()
'Update 20130815
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    num1 = Rng.Value
    num2 = (num1 - Int(num1)) * 60
    num3 = Format((num2 - Int(num2)) * 60, "00")
    Rng.Value = Int(num1) & "°" & Int(num2) & "'" & Int(num3) & "''"
Next
End Sub

3。 クリック ラン ボタンまたはプレス F5 VBAを実行します。

4.画面にダイアログが表示され、変換するセルを選択できます。 スクリーンショットを参照してください：

5。 クリック OK、次に、選択したデータが度、分、秒に変換されます。 スクリーンショットを参照してください：

先端：上記のVBAコードを使用すると元のデータが失われるため、コードを実行する前にデータをコピーすることをお勧めします。

VBAを使用して、度、分、秒を小数に変換します

度/分/秒の形式のデータを小数度に変換したい場合があります。次のVBAコードを使用すると、データをすばやく実行できます。

1。 ホールド ALTボタンを押して F11 キーボードでMicrosoftVisual Basic forApplicationウィンドウを開きます。

2。 クリック インセット > モジュール、VBAをモジュールにコピーします。

VBA：度、分、秒を小数に変換します

Function ConvertDecimal(pInput As String) As Double
'Updateby20140227
Dim xDeg As Double
Dim xMin As Double
Dim xSec As Double
xDeg = Val(Left(pInput, InStr(1, pInput, "°") - 1))
xMin = Val(Mid(pInput, InStr(1, pInput, "°") + 2, _
             InStr(1, pInput, "'") - InStr(1, pInput, _
             "°") - 2)) / 60
xSec = Val(Mid(pInput, InStr(1, pInput, "'") + _
            2, Len(pInput) - InStr(1, pInput, "'") - 2)) _
            / 3600
ConvertDecimal = xDeg + xMin + xSec
End Function

3.コードを保存してウィンドウを閉じ、空白のセル（たとえば、セルA1）を選択して、この数式を入力します = ConvertDecimal（ "10°27'36" ""） （ "10°27'36" ""は、XNUMX進角に変換する次数を表します。必要に応じて変更できます）、次にクリックします。 入力します ボタン。 スクリーンショットを参照してください：

関連記事

• XNUMX進数を時間に変換します。 分、秒