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
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: