एक्सेल में दशमलव डिग्री को डिग्री मिनट सेकंड में कैसे बदलें?
कभी-कभी, आपके पास वर्कशीट में दशमलव डिग्री के रूप में दिखाए गए डेटा की एक सूची हो सकती है, और अब आपको दशमलव डिग्री को डिग्री, मिनट और सेकंड स्वरूपण में परिवर्तित करने की आवश्यकता है जैसा कि निम्नलिखित स्क्रीनशॉट में दिखाया गया है, आप एक्सेल में बातचीत को जल्दी से कैसे प्राप्त कर सकते हैं?
वीबीए के साथ दशमलव डिग्री को डिग्री, मिनट, सेकंड में बदलें
VBA के साथ डिग्री, मिनट, सेकंड को दशमलव डिग्री में बदलें
वीबीए के साथ दशमलव डिग्री को डिग्री, मिनट, सेकंड में बदलें
वीबीए कोड के साथ दशमलव डिग्री को डिग्री, मिनट और सेकंड में बदलने के लिए कृपया नीचे दिए गए चरणों का पालन करें।
1। पकड़ एएलटी बटन और प्रेस F11 खोलने के लिए कीबोर्ड पर a अनुप्रयोग के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और 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 के साथ डिग्री, मिनट, सेकंड को दशमलव डिग्री में बदलें
कभी-कभी, आप डेटा को डिग्री/मिनट/सेकंड फ़ॉर्मेटिंग में दशमलव डिग्री में परिवर्तित करना चाह सकते हैं, निम्नलिखित वीबीए कोड आपको इसे जल्दी से पूरा करने में मदद कर सकता है।
1। पकड़ ALटी बटन और दबाएँ F11 एप्लिकेशन विंडो के लिए Microsoft Visual Basic खोलने के लिए कीबोर्ड पर।
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और 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, इस सूत्र को दर्ज करें =कन्वर्टदशमलव("10° 27' 36""") ("10° 27' 36""" वह डिग्री है जिसे आप दशमलव डिग्री में बदलना चाहते हैं, आप इसे आवश्यकतानुसार बदल सकते हैं), फिर क्लिक करें दर्ज बटन। स्क्रीनशॉट देखें: