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: ; M n, I! k7 o* z / f1 T& [- ^/ ^) s( \ I# I" k1. Trong Excel nhấn ALT+F11. N0 e% d% f- [3 F
& ]5 C0 E+ X5 U! B
2. Trong menu Insert, click Module.* B2 l: Q% s5 [: v7 X
- O; Y9 c- \) a a. x6 D
3. Paste đoạn mã trên đây vào ô bên cạnh (cửa sổ module sheet).% N$ r3 Z5 F6 R% m# R L
% B. }0 V/ A* ?8 W. cFunction Convert_Degree(Decimal_Deg) As Variant4 m6 t1 G3 u$ M ~2 e* C2 _1 Z- T
With Application0 b. \- k" _+ i
'Set degree to Integer of Argument Passed & N7 u M, I- S' \+ c" wDegrees = Int(Decimal_Deg) # ~# y" X' v, d( U'Set minutes to 60 times the number to the right7 I9 h |5 \, e$ { t, N6 o# u* B
'of the decimal for the variable Decimal_Deg . q# b* n; O# ^# BMinutes = (Decimal_Deg - Degrees) * 609 }* H0 ~1 i6 u8 X* n/ w/ ]
'Set seconds to 60 times the number to the right of the . n9 E3 z' c3 `9 |'decimal for the variable Minute( W/ f- _' I O2 z9 F9 F
Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")3 S5 {9 ]3 _, q/ y! t
'Returns the Result of degree conversion 9 i3 g9 t# j% ^) v'(for example, 10.46 = 10~ 27 ' 36") " X8 q5 B& H: M% I' l4 ?4 fConvert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _ ' y4 i7 e& A; y/ G# c& Seconds + Chr(34) C3 ^; p6 Y! e0 P1 fEnd With ! }" K( A) r: }6 X+ |1 EEnd Function 2 @2 o0 ]& P( \4 H( S ; }. z5 u, _/ J- g4. Nhấn ALT+F11 để quay về Excel. 8 ] K1 b) L* }/ _5 `* r m9 X: x+ f) K/ K% O. \3 s. [) l
5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau: 9 u2 D/ j4 u( ~0 l; y; M8 O5 _. u& C& _0 ~6 ?" U) A
=Convert_Degree(10.46)/ B) A% P& W q" W( r
( a4 e1 n$ e( \+ NKết quả thu được là 10°27'36" 1 l& F7 O% V2 r+ }# B" V% u0 ?* _( Z, C Hoặc: : \$ n& @6 E" s2 p 1 W0 x# ]2 c* p5 D# D1. Trong Excel nhấn ALT+F11.6 e* E- @9 o- j4 b9 f3 d
+ C! e+ x, y6 }, v/ k2. Trong menu File , click Import file chọn 2 file đính kèm trong thư mục này. + M7 [ H1 e4 I- L0 r * [. [6 q! J* y2 ?/ ~- Doi so thap phan ra do phut giay. h0 Z& P6 Q. V' t
- Doi do phut giay ra so thap phan $ @; Y4 ?6 |$ b3 A 9 @$ M8 y% A L+ }3. Nhấn ALT+F11 để quay về Excel. ' {+ \ j \( q. G, [2 ]; K. a7 I( X
Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau: # Q' X R4 S1 Y+ Z) D+ Q / u1 R& R1 a& P6 r+ Y+ [=Convert_Degree(10.46) 9 J3 z2 a+ @0 W$ J& ?* ? E' L/ L" t" y9 A! ?5 V! S3 x! B' ]
Kết quả thu được là 10°27'36" ( S2 W& C3 W$ N. F) p
/ S9 F0 a7 y9 r# P5 y2 i0 p7 ?) HChi tiết xem trong file mẫu đính kèm.4 m9 Z4 s0 j, o8 v ) N% C. Z' e3 K; B4 bTải tập tin đính kèm tại đây. " i7 O# J' ^; p1 A1 ~: q8 `$ O/ F0 j3 @; o2 D
