Excelで小数度を度分秒に変換する方法は？
ワークシートに小数度として表示されるデータのリストがある場合がありますが、次のスクリーンショットに示すように、小数度を度、分、秒の形式に変換する必要があります。Excelで会話をすばやく行うにはどうすればよいですか。
 |
 |
 |
VBAを使用して、小数度を度、分、秒に変換します
VBAコードで小数度を度、分、秒に変換するには、以下の手順に従ってください。
1。 ホールド 頭の中 ボタンを押して F11 キーボードで開くには アプリケーション用 Microsoft Visual Basic 窓。
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進角に変換する次数を表します。必要に応じて変更できます）、次にクリックします。 入力します ボタン。 スクリーンショットを参照してください：
 |
|
 |
関連記事
