Excel'de ondalık dereceleri derece dakikalara nasıl dönüştürebilirim?

Bazen, bir çalışma sayfasında ondalık derece olarak gösterilen bir veri listesine sahip olabilirsiniz ve şimdi ondalık dereceleri aşağıdaki ekran görüntülerinde gösterildiği gibi derecelere, dakikalara ve saniye biçimlendirmesine dönüştürmeniz gerekir, konuşmayı Excel'de nasıl hızlı bir şekilde alabilirsiniz?

VBA ile ondalık dereceleri derecelere, dakikalara, saniyelere dönüştürün

VBA ile dereceleri, dakikaları, saniyeleri ondalık derecelere dönüştürün

VBA ile ondalık dereceleri derecelere, dakikalara, saniyelere dönüştürün

İnanılmaz! Excel'de Chrome, Firefox ve Safari gibi Verimli Sekmeleri Kullanma!

Zamanınızın% 50'sinden tasarruf edin ve her gün binlerce fare tıklamasını azaltın!

VBA kodu ile ondalık dereceleri derece, dakika ve saniyeye dönüştürmek için lütfen aşağıdaki adımları izleyin.

1. Ambar ALT tuşuna basın ve tuşuna basın. F11 klavyede bir Uygulama için Microsoft Visual Basic pencere.

2. tık Ekle > modülve VBA'yı modüle kopyalayın.

VBA: Ondalık dereceyi dereceye, dakikaya ve saniyeye dönüştürün

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. tık koşmak tuşuna basın veya tuşuna basın. F5 VBA'yı çalıştırmak için.

4. Ekranda görüntülenen bir iletişim kutusu ve dönüştürmek istediğiniz hücreleri seçebilirsiniz. Ekran görüntüsüne bakın:

5. tık OK, ardından seçilen veriler derece, dakika ve saniyeye dönüştürülür. Ekran görüntüsüne bakın:

Bahşiş: Yukarıdaki VBA kodunu kullanmak orijinal verilerinizi kaybedeceğinden, kodu çalıştırmadan önce verileri kopyalamanız daha iyi olur.

VBA ile dereceleri, dakikaları, saniyeleri ondalık derecelere dönüştürün

Bazen, verileri derece / dakika / saniye biçimlendirmesini ondalık derecelere dönüştürmek isteyebilirsiniz, aşağıdaki VBA kodu bunu hızlı bir şekilde yapmanıza yardımcı olabilir.

1. Ambar ALT düğmesine basın ve F11 klavyede bir Microsoft Visual Basic for Application penceresi açın.

2. tık Ekle > modülve VBA'yı modüle kopyalayın.

VBA: Dereceyi, dakikayı ve saniyeyi ondalık dereceye dönüştür

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. Kodu kaydedin ve pencereyi kapatın, boş bir hücre seçin, örneğin Hücre A1, bu formülü girin = Ondalık Dönüştür ("10 ° 27 '36" "") ("10 ° 27 '36" "", ondalık dereceye dönüştürmek istediğiniz dereceyi ifade eder, bunu istediğiniz gibi değiştirebilirsiniz), ardından Keşfet buton. Ekran görüntülerine bakın:

Göreli makaleler

• Ondalık sayıyı saate çevir. Dakika, saniye