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: T' t+ d' v8 _3 K$ ^9 P" C+ j
6 H+ t4 @+ u+ N$ o) A! \
1. Trong Excel nhấn ALT+F11. , u0 [# Q1 c, x4 x# c / |% Q: K7 o7 `! i1 W. d2. Trong menu Insert, click Module. 4 J' ^/ K) Q K9 ^$ A$ J% ? ( x% v# ^& P& Y" c3. Paste đoạn mã trên đây vào ô bên cạnh (cửa sổ module sheet). 6 }" v8 V" w9 R. {4 p- ~- J# v3 P$ X& O2 d
Function Convert_Degree(Decimal_Deg) As Variant 8 j2 \3 m8 _! U" Q0 D0 A! MWith Application; D( F0 a4 G$ \+ }% t
'Set degree to Integer of Argument Passed 4 ]+ D6 G# E) z, j; i2 f. b$ BDegrees = Int(Decimal_Deg)* ] o' @3 k C$ ]
'Set minutes to 60 times the number to the right& d; r, c, o: `
'of the decimal for the variable Decimal_Deg ; S5 {2 P `' E; I8 q0 mMinutes = (Decimal_Deg - Degrees) * 60 5 X( o, X& Y0 {0 h3 B! k5 g' s'Set seconds to 60 times the number to the right of the0 S' p- N/ s- W
'decimal for the variable Minute ! l6 z' C+ f4 x0 `Seconds = Format(((Minutes - Int(Minutes)) * 60), "0") ( |9 m/ q, u" R* B1 K0 z' D2 @'Returns the Result of degree conversion 1 C7 X" C- }, Y: i/ D* M" G'(for example, 10.46 = 10~ 27 ' 36"), t0 s; O# l7 C
Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _ 4 B/ P$ h7 U5 y. n; K# v& Seconds + Chr(34): G8 S' _7 k! [/ a2 y
End With Z1 j3 x8 {" F# Y( E' i$ DEnd Function& B% R7 I5 W" d8 u8 W, F
8 Y! e9 X3 q* K" l4 s" H
4. Nhấn ALT+F11 để quay về Excel. ) l1 w, I0 O0 F+ Q& m6 N% u% F& Z
5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau: / p5 q+ ]/ N& O, @) N4 \8 a: z) o/ H2 `: }
=Convert_Degree(10.46)4 _ F. o+ u0 `3 A$ W. Y
& L2 l7 m% n l" B) d. b; n. l# oKết quả thu được là 10°27'36" - j! k! s T) m% f% G- X
4 `' P, w' h2 g$ K! ^ Hoặc: % R. M5 u8 v$ x k
6 ]9 t }6 B8 ` K" N$ v& }; r. ]
1. Trong Excel nhấn ALT+F11. % F& z* y$ E* i5 B- g q+ a1 N- k) N2 d1 }
2. Trong menu File , click Import file chọn 2 file đính kèm trong thư mục này.. x) w% u1 _% U% \: P
U# e. q3 e c8 K* V% C
- Doi so thap phan ra do phut giay# r8 ]( D* t8 ?) d5 i5 G
- Doi do phut giay ra so thap phan" G# J6 i! k2 s/ I- C) [( r
' ?0 H+ ^0 T: |- ? |
3. Nhấn ALT+F11 để quay về Excel.- u Y; i( j; p
# O" q2 y+ o: T, q/ u
Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau: : a7 ~; X& [- ]( F: b / o8 W" F8 c5 u=Convert_Degree(10.46)3 q( W, u- m2 I7 K2 o
/ R: L$ J% ^4 c$ s
Kết quả thu được là 10°27'36" ' f2 q( a/ V4 F \+ X' ]3 Y* Y2 H2 o& Z; X4 C M* g
Chi tiết xem trong file mẫu đính kèm. 5 I. Y) F- w" w- o2 T* T9 z* H5 o; y7 c9 r) Q) z, R+ B. C8 l- H Tải tập tin đính kèm tại đây. ) w0 d) ?1 @" p: e! M9 `2 z5 n% d7 p) N }) ]& j3 Y9 [( N* s6 l% U( z) D
5 o; y7 c9 r) Q) z, R+ B. C8 l- H