Chào mừng các bạn đã đến với diễn đàn! Hãy cùng tôi chắp cánh cho UOCMOVN bay cao bay xa nhé các bạn!!!
Welcome Guest [Log In] [Register]

Your Forum Countdown System

Đề mục thứ nhấtĐề mục thứ haiBài viết mới nhấtNgười viết cuối
Bạn tự edit những gì mình muốn vào đâyBạn tự edit những gì mình muốn vào đây
Add Reply
Chuyển Độ Thập Phân Sang Độ - Phút - Giây Trong Excel; Chuyển Độ Thập Phân Sang Độ - Phút - Giây Trong Excel
Topic Started: Apr 8 2012, 04:15 PM (2,105 Views)
tieuthu9x
Member Avatar


Sau đây cho các ứng dụng tùy chỉnh của Microsoft Visual Basic chức năng chấp nhận một góc được định dạng làm một giá trị thập phân và chuyển nó đến một giá trị văn bản hiển thị trong độ, phút và giây.

Code:
 
Function Convert_Degree(Decimal_Deg) As Variant
With Application
'Set degree to Integer of Argument Passed
Degrees = Int(Decimal_Deg)
'Set minutes to 60 times the number to the right
'of the decimal for the variable Decimal_Deg
Minutes = (Decimal_Deg - Degrees) * 60
'Set seconds to 60 times the number to the right of the
'decimal for the variable Minute
Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")
'Returns the Result of degree conversion
'(for example, 10.46 = 10~ 27 ' 36")
Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _
& Seconds + Chr(34)
End With
End Function


Sử dụng chức năng này, tạo ra một công thức chuyển đổi, như ở đây Ví dụ:

Bắt đầu Excel và bấm phím ALT + F11 để bắt đầu Visual Basic biên tập viên.
Trên các Chèn trình đơn, nhấp vào Mô-đun.
Nhập mã mẫu cho Convert_Degree tùy chỉnh chức năng mô tả ở trên vào tờ mô-đun.
Nhấn ALT + F11 để trở về để excel.
Trong cell A1 gõ 10.46.
Trong tế bào A2 gõ công thức sau đây:
=Convert_Degree(a1)


Công thức trả về 10 ° 27'36 "
Edited by tieuthu9x, Apr 8 2012, 04:23 PM.
Offline Profile Quote Post Goto Top
 
1 user reading this topic (1 Guest and 0 Anonymous)
« Previous Topic · SỬ DỤNG PHẦN MỀM · Next Topic »
Add Reply

>
Đầu trang
Giữa trang
Cuối trang

Copyright © 2010, ForumUocmoVN. All rights reserved
Xem Tốt Nhất Trên Các Trình Duyệt FireFox hoặc Google Chrome Ở Độ Phân Giải 1600 x 900 pixels.
Diễn Đàn Là Một Hệ Thống Mở, Chúng Tôi Sẽ Không Chịu Trách Nhiệm Về Nội Dung Đăng Tải Do Người Dùng Đưa Lên.