Thư viện xây dựng: Tiêu chuẩn xây dựng- Văn bản- File mẫu- Sơ đồ- Quy trình- Phần mềm xây dựng
Tiêu đề: Chuyển đổi qua lại giữa Radian và Độ phút giây trong Excel [In trang] Tác giả: Hieunghia Thời gian: 3/7/2013 10:03 Tiêu đề: Chuyển đổi qua lại giữa Radian và Độ phút giây trong Excel Làm theo các bước sau để dùng đoạn mã VBA:4 }+ p" r' ^8 k
: W' h2 ^1 P/ m6 f. d0 R f5 f/ m
1. Trong Excel nhấn ALT+F11.6 b" b2 q- i4 ?
0 J, ?$ p' \& H A) O2. Trong menu Insert, click Module., S7 O; R# u8 c: Y
/ N0 b* `* p' f) ?" z$ y. q9 P
3. Paste đoạn mã trên đây vào ô bên cạnh (cửa sổ module sheet). $ J; T! x, ~% c& f9 p I1 s j N L- |# E
Function Convert_Degree(Decimal_Deg) As Variant( h" E1 s' y# g: Y& e6 S/ i& \
With Application- n; ]% |* ?. V! S( Y7 x) W
'Set degree to Integer of Argument Passed0 @+ J, |+ X7 {6 Y2 e( O# X( \8 {
Degrees = Int(Decimal_Deg)8 c' E& a, C, q, q' t
'Set minutes to 60 times the number to the right W: s& Y1 f- H/ ^'of the decimal for the variable Decimal_Deg" k! P: b% v7 r
Minutes = (Decimal_Deg - Degrees) * 60 * k5 H# }) n" d'Set seconds to 60 times the number to the right of the3 C1 e: G% C$ [9 @; k, n2 b% {
'decimal for the variable Minute # h$ K' u& b# I( C* u9 bSeconds = Format(((Minutes - Int(Minutes)) * 60), "0")( w. _5 X5 M4 d& J" Q$ Q" {5 y
'Returns the Result of degree conversion0 Y: O7 N8 ]. O4 N Y* p0 C
'(for example, 10.46 = 10~ 27 ' 36")6 j+ v$ u' D& y T$ F; O
Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _( s8 g3 N8 T* h8 F' O# ^5 r
& Seconds + Chr(34) 8 z% ]4 O2 r2 B$ G0 s3 W% eEnd With( c0 v/ E! a {: K- Q% b
End Function; O5 c% n" Z" {! y+ m# @8 Z4 f7 ?3 S
) z, h4 s% @! k9 L4. Nhấn ALT+F11 để quay về Excel.% f/ D5 P* y2 X a6 _
! ?& t- R9 g" i8 D
5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:2 I; B8 K& d- h3 M* v
% L/ v3 d: F" t- W+ ~0 v4 A=Convert_Degree(10.46)( s. n" O( @6 X) R, @5 D
3 ^3 U: j7 R% @+ [+ S3 Y _7 T0 Q2 l& MKết quả thu được là 10°27'36" 8 u! A- T. l! q" i# M( ~$ |$ I" z7 C7 f9 _/ s$ `3 F# ~ Hoặc: ; i% f5 h& K' o 4 A8 Y3 H' K- ?$ y& R; f$ G" k& k1. Trong Excel nhấn ALT+F11.4 \# x2 T+ D1 ~ H* d* a6 f* b
4 l& T% W& l# T3 f
2. Trong menu File , click Import file chọn 2 file đính kèm trong thư mục này. % D A1 Z& n+ [! W# L8 I1 k1 @8 P" u5 I
- Doi so thap phan ra do phut giay - d( P t* k9 U- Doi do phut giay ra so thap phan& T: d# R4 t* A5 W8 S
. z* i5 {, H' |! R" w3 m, V% ~
3. Nhấn ALT+F11 để quay về Excel. , ^% i3 ?& }) p, Y# R+ t- |/ `9 r7 ~7 M5 }2 z
Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau: " m% X1 F, u6 k5 t! c" U" x$ g8 {$ \& a# m1 P- ~$ r+ }
=Convert_Degree(10.46) ; h& O& a9 g9 b6 e, ]. W8 D7 P" V 8 ~% n, Q5 ]+ y# S8 B6 ]Kết quả thu được là 10°27'36" 2 N3 \" G- K" R
q" y" S) |( `* T g. i% G) wChi tiết xem trong file mẫu đính kèm.# _5 t' k5 a: C & W9 v' d3 V: ? Tải tập tin đính kèm tại đây.* P6 g4 r v" x( g/ H+ \
& W9 v' d3 V: ?