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:# B9 G" W7 P' ~2 _# C: k
1 @% m3 B2 u8 _# M1. Trong Excel nhấn ALT+F11. ) r9 M% x4 Y; }7 a) ? ; m+ h9 V+ O; |3 P2. Trong menu Insert, click Module. . C4 B( W4 k* O6 K& q 2 _: v6 @' @9 ~; \- m3. Paste đoạn mã trên đây vào ô bên cạnh (cửa sổ module sheet). 1 d$ c7 s9 s. m* h7 \, O i+ E# ?, H' {6 v3 [
Function Convert_Degree(Decimal_Deg) As Variant 1 F) K, ~0 V5 IWith Application& Q! G4 N) ^ K/ F5 p
'Set degree to Integer of Argument Passed + t0 O! l' g& e' @9 I/ n" s+ EDegrees = Int(Decimal_Deg)0 I5 \5 S/ d! ]4 y. g
'Set minutes to 60 times the number to the right8 `' i4 @) ~7 U- \
'of the decimal for the variable Decimal_Deg . e3 t4 Q" J( v) y+ W( e8 dMinutes = (Decimal_Deg - Degrees) * 60 8 A2 i$ }1 ?$ V* _! M2 c' ?'Set seconds to 60 times the number to the right of the2 N& `1 I7 d& _. [2 u h
'decimal for the variable Minute% `, k: G7 [5 E$ q9 }" W0 m9 K
Seconds = Format(((Minutes - Int(Minutes)) * 60), "0") 7 }! x! Y: O& A4 K8 J'Returns the Result of degree conversion ! W4 n* K; a$ ~ c- r# U. w'(for example, 10.46 = 10~ 27 ' 36") 8 f' w+ Y+ U- ]9 D5 R" T% Z0 hConvert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _6 N% G( _ G* i: l' m
& Seconds + Chr(34)4 E) a3 {6 F6 ]6 p E
End With- p* l4 A, R: A; N; S$ ?
End Function % J. t0 x5 m- ?- [% X+ M $ ?* K9 `9 X' K2 f) k, H& O! \4. Nhấn ALT+F11 để quay về Excel. - v1 r; I3 b& t9 U% }- r, K/ p! z ! V4 o1 _$ j' {: i5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau: " l/ H% t9 A' F ( M/ r, e( B' G( g: d5 W=Convert_Degree(10.46) . _& j% H0 k6 K7 X " j+ K# G1 M( {. [Kết quả thu được là 10°27'36" + r8 x/ @8 g/ [7 p! q( k% |3 d) I! V6 i( Z! ^" d G3 E D# V Hoặc: 2 \7 u" n+ X1 p; E/ r7 l& q0 E , ?5 b. Q0 ?$ g2 R3 ?& y# `, q1. Trong Excel nhấn ALT+F11.* Q& O3 ?. \' ?' ]) U3 c
6 }& m) U3 W. r @4 [6 w2. Trong menu File , click Import file chọn 2 file đính kèm trong thư mục này. * b6 b1 T7 M( i5 K" C ) I/ Z7 E* i8 A- Doi so thap phan ra do phut giay' d# a: u5 p- e! l1 t
- Doi do phut giay ra so thap phan 3 ]' g0 [, ?; L; V& H; o) [# g$ u3 T. L) R2 ^
3. Nhấn ALT+F11 để quay về Excel. ! j" Q: q& j$ S. N& e4 B U6 [8 x$ n- ^2 o9 m9 Z% v! ~- {) A, }4 n
Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:* L: n( T7 x1 |' m7 l$ n
0 F$ p+ v3 `1 U& j' Y. P1 @* b=Convert_Degree(10.46) 8 _, T$ p" h; P ' }* \$ y. Y; Y7 f% D" h! v5 _Kết quả thu được là 10°27'36" & u8 w" y7 a) P
7 }9 o& ~4 b d; G! Y; |Chi tiết xem trong file mẫu đính kèm. 9 P( `' e M, o( w! u ' d1 x i( Y( nTải tập tin đính kèm tại đây. : t( E6 X1 H; y, _0 O # I2 r# U7 y( x5 T5 V
