Note: The other languages of the website are Google-translated. Back to English
로그인  \/ 
x
or
x
회원가입  \/ 
x

or

Excel에서 십진수도를 분 초로 변환하는 방법은 무엇입니까?

때로는 워크 시트에 십진수로 표시된 데이터 목록이있을 수 있으며, 이제 다음 스크린 샷과 같이 십진수를도, 분 및 초 형식으로 변환해야합니다. Excel에서 대화를 빠르게 얻을 수있는 방법은 무엇입니까?

VBA를 사용하여 십진수를도, 분, 초로 변환

VBA를 사용하여도, 분, 초를 십진수로 변환

Office 탭 Office에서 탭 편집 및 찾아보기를 활성화하고 작업을 훨씬 쉽게 ...
Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80 % 향상시킵니다.
  • 무엇이든 재사용 : 가장 많이 사용되거나 복잡한 수식, 차트 및 기타 항목을 즐겨 찾기에 추가하고 나중에 빠르게 재사용 할 수 있습니다.
  • 20 개 이상의 텍스트 기능 : 텍스트 문자열에서 숫자 추출; 텍스트의 일부 추출 또는 제거 숫자와 통화를 영어 단어로 변환합니다.
  • 병합 도구: 여러 통합 문서와 시트를 하나로; 데이터 손실없이 여러 셀 / 행 / 열 병합; 중복 행과 합계를 병합합니다.
  • 분할 도구: 값을 기준으로 데이터를 여러 시트로 분할합니다. 하나의 통합 문서에서 여러 Excel, PDF 또는 CSV 파일로; 한 열에서 여러 열로.
  • 붙여 넣기 건너 뛰기 숨겨진 / 필터링 된 행; 수와 합계 배경색 별; 개인화 된 이메일을 여러 수신자에게 대량으로 보냅니다.
  • 슈퍼 필터 : 고급 필터 구성표를 만들고 모든 시트에 적용하십시오. 종류 주, 일, 빈도 등으로; FILTER 굵게, 수식, 주석으로 ...
  • 300 개 이상의 강력한 기능; Office 2007-2019 및 365에서 작동합니다. 모든 언어를 지원합니다. 기업 또는 조직에 쉽게 배포 할 수 있습니다.

화살표 블루 오른쪽 거품 VBA를 사용하여 십진수를도, 분, 초로 변환


VBA 코드를 사용하여 십진수도를도, 분, 초로 변환하려면 아래 단계를 따르십시오.

1. 보류 ALT 버튼을 눌러 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 키보드에서 Microsoft Visual Basic for Application 창을 엽니 다.

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. 코드를 저장하고 창을 닫고 빈 셀 (예 : Cell A1)을 선택하고 다음 수식을 입력합니다. = ConvertDecimal ( "10 ° 27 '36" "") ( "10 ° 27 '36" ""는 십진수로 변환하려는 각도를 의미하며 필요에 따라 변경할 수 있습니다.) 엔터 버튼 단추. 스크린 샷보기 :


관련 기사

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.