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: & {) B4 z2 k" @/ J) T! [; H0 u h2 y+ F
1. Trong Excel nhấn ALT+F11.7 ]& h9 @1 v4 ~7 o& O
1 E( _& S' U4 F" F v% p1 X7 J2. Trong menu Insert, click Module." y: E/ B8 \6 A; M9 e
1 B$ @3 n1 B; ]2 g
3. Paste đoạn mã trên đây vào ô bên cạnh (cửa sổ module sheet). $ V8 R C5 U% }; W ; K: J" n$ `8 \3 nFunction Convert_Degree(Decimal_Deg) As Variant & @& [: B0 N. g" @: `3 C* [) RWith Application6 J* L X8 g, a" q
'Set degree to Integer of Argument Passed7 }9 t2 a1 a$ O2 _5 F/ h
Degrees = Int(Decimal_Deg)* x4 T0 @8 g9 o6 U
'Set minutes to 60 times the number to the right ( \0 N* e9 A+ y+ C, X'of the decimal for the variable Decimal_Deg ( |1 G; o* k9 c4 b+ J4 k$ dMinutes = (Decimal_Deg - Degrees) * 60" q# e( R7 z. c$ y. m
'Set seconds to 60 times the number to the right of the * n1 z7 _6 Y7 a- ['decimal for the variable Minute( `# o' |( c) f3 W0 ^1 I; z
Seconds = Format(((Minutes - Int(Minutes)) * 60), "0") 2 t8 U+ m! i8 s. p+ n) G6 y. m'Returns the Result of degree conversion1 u4 c8 W5 O# C% U0 ]$ s9 _; B
'(for example, 10.46 = 10~ 27 ' 36")5 D. r+ x% |( ^+ r8 L3 l2 @
Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _ ; L' e$ u4 Y7 U- D0 C' b p; d& Seconds + Chr(34) + d* g- \4 u: ^* T- P* t7 HEnd With 9 p$ ]4 t& L" b5 P9 n; x" U+ WEnd Function' d* G1 w4 i8 @0 }% n4 k
5 }) A( R3 S- i/ o) V0 R4. Nhấn ALT+F11 để quay về Excel. W( d2 X/ o9 s7 N
) F" i* Q m! A$ k. K1 L
5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau: 0 j7 V) i( S P* n, `; |7 W ; D* p: G& F1 _2 X2 X* \5 v) p4 `=Convert_Degree(10.46)5 h h( h& B, N6 a
# s6 i. n( \3 g# p- H- u1 H
Kết quả thu được là 10°27'36" 3 M& R6 l2 P6 ]" A2 g: b! m # I1 d" i3 f! G8 s* [Hoặc: / a }$ S) \+ ]
; g$ l' O5 q8 e* l/ T& W; [
1. Trong Excel nhấn ALT+F11. - B, [ D+ }- I C6 ` + K5 N2 S7 Y$ u2 R4 Q# Z# s2. Trong menu File , click Import file chọn 2 file đính kèm trong thư mục này.# F$ I2 f0 O, ]7 z+ x1 f- |6 h- ]
( [& X0 A: M- I$ y+ `- Doi so thap phan ra do phut giay5 w, b" {$ @0 M; v8 u, Y! y, I2 d- i
- Doi do phut giay ra so thap phan 4 k/ [$ ] P( m e) J( u3 b) E3 z& }! u3 p2 v) s' ^/ h( h
3. Nhấn ALT+F11 để quay về Excel. @. U/ K. G' o! |
2 z0 K& f# L! @% s# c$ J- S$ a
Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau: 0 D9 h9 W' k# L% ^. d& y/ h, r9 B. B/ I
=Convert_Degree(10.46)6 R9 G/ z" s8 s$ N. g8 a# |: S
" r$ a4 W+ Z2 cKết quả thu được là 10°27'36" 4 C) {) v ]# m( Q _
! U) L! r, c# `1 H1 G; `$ h. u
Chi tiết xem trong file mẫu đính kèm.& @% Y$ ]2 W+ c2 r8 F" J 3 k9 A! V' J4 w8 Q3 V, l$ I Tải tập tin đính kèm tại đây. 6 O) h9 M/ s6 w1 v+ A( ?* d+ { n6 E7 i! }- ]/ A& q* z: \( I/ F
3 k9 A! V' J4 w8 Q3 V, l$ I