Làm thế nào để chuyển đổi độ thập phân sang độ phút giây trong Excel?
Đôi khi, bạn có thể có danh sách dữ liệu được hiển thị dưới dạng độ thập phân trong trang tính và bây giờ bạn cần chuyển đổi độ thập phân thành độ, phút và giây định dạng như được hiển thị như ảnh chụp màn hình sau đây, làm cách nào bạn có thể tải cuộc trò chuyện nhanh chóng trong Excel?
 |
 |
 |
Chuyển đổi độ thập phân thành độ, phút, giây với VBA
Chuyển đổi độ, phút, giây sang độ thập phân với VBA
Chuyển đổi độ thập phân thành độ, phút, giây với VBA
Vui lòng làm theo các bước dưới đây để chuyển đổi độ thập phân sang độ, phút và giây bằng mã VBA.
1. Giữ ALT nút và báo chí F11 trên bàn phím để mở Microsoft Visual Basic cho ứng dụng cửa sổ.
2. nhấp chuột Chèn > Mô-đunvà sao chép VBA vào mô-đun.
VBA: Chuyển đổi độ thập phân thành độ, phút và giây
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. nhấp chuột chạy nút hoặc bấm F5 để chạy VBA.
4. Một hộp thoại hiển thị trên màn hình và bạn có thể chọn các ô bạn muốn chuyển đổi. Xem ảnh chụp màn hình:
5. nhấp chuột OK, sau đó dữ liệu đã chọn được chuyển đổi thành độ, phút và giây. Xem ảnh chụp màn hình:
|
|
|
Mẹo: Sử dụng mã VBA ở trên sẽ làm mất dữ liệu gốc của bạn, vì vậy tốt hơn bạn nên sao chép dữ liệu trước khi chạy mã.
Chuyển đổi độ, phút, giây sang độ thập phân với VBA
Đôi khi, bạn có thể muốn chuyển đổi dữ liệu ở định dạng độ / phút / giây sang độ thập phân, mã VBA sau có thể giúp bạn nhanh chóng hoàn thành công việc.
1. Giữ ALNút T và nhấn F11 trên bàn phím để mở cửa sổ Microsoft Visual Basic for Application.
2. nhấp chuột Chèn > Mô-đunvà sao chép VBA vào mô-đun.
VBA: Chuyển đổi độ, phút và giây sang độ thập phân
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. Lưu mã và đóng cửa sổ, chọn một ô trống, ví dụ: Ô A1, nhập công thức này = ConvertDecimal ("10 ° 27 '36" "") ("10 ° 27 '36" "" là độ bạn muốn chuyển đổi sang độ thập phân, bạn có thể thay đổi nó khi cần), sau đó nhấp vào đăng ký hạng mục thi cái nút. Xem ảnh chụp màn hình:
 |
|
 |
Bài báo tương đối
