Note: The other languages of the website are Google-translated. Back to English
ログイン  \/ 
x
or
x
今すぐ登録  \/ 
x

or

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

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

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

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

OfficeタブOfficeでタブ付きの編集と閲覧を有効にし、作業をはるかに簡単にします...
Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます
  • 何でも再利用: 最もよく使用される、または複雑な数式、グラフなどをお気に入りに追加して、後ですぐに再利用できます。
  • 20以上のテキスト機能: テキスト文字列から数値を抽出します。 テキストの一部を抽出または削除します。 数字と通貨を英語の単語に変換します。
  • マージツール:複数のワークブックとシートをXNUMXつに。 データを失うことなく複数のセル/行/列をマージします。 重複する行と合計をマージします。
  • 分割ツール:値に基づいてデータを複数のシートに分割します。 XNUMXつのワークブックから複数のExcel、PDF、またはCSVファイル。 XNUMX列から複数列。
  • 貼り付けスキップ 非表示/フィルタリングされた行; カウントと合計 背景色別; パーソナライズされた電子メールを複数の受信者にまとめて送信します。
  • スーパーフィルター: 高度なフィルタースキームを作成し、任意のシートに適用します。 ソート 週、日、頻度など。 フィルタ 太字、数式、コメント...
  • 300以上の強力な機能。 Office2007-2019および365で動作します。 すべての言語をサポートします。 企業や組織に簡単に導入できます。

矢印青い右バブル VBAを使用して、小数度を度、分、秒に変換します


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進角に変換する次数を表します。必要に応じて変更できます)、次にクリックします。 入力します ボタン。 スクリーンショットを参照してください:


関連記事

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.