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: ! n: z: b. x E% j( j( }7 | ' i( H6 t6 z5 b$ u1. Trong Excel nhấn ALT+F11.7 R+ F- @+ f( J. h1 v, e
" D2 z- P o9 w: W% D& K4 j J z2. Trong menu Insert, click Module. ' N8 a0 v, C. { - F* d) K" g/ E% j3 z: P0 n3. Paste đoạn mã trên đây vào ô bên cạnh (cửa sổ module sheet). ) h- k( M3 c; Z: V. H) P3 E% s8 |, c' j' s
Function Convert_Degree(Decimal_Deg) As Variant1 q: i' _& ^) ~+ L, o7 _
With Application; l# }+ P9 M0 r0 {0 o" S
'Set degree to Integer of Argument Passed/ [2 i) Z" _ e
Degrees = Int(Decimal_Deg), ]- Z U8 r4 m* }* u7 q2 T; h
'Set minutes to 60 times the number to the right 9 E! v+ O& N' l1 Y'of the decimal for the variable Decimal_Deg, h n j% @/ r3 d: A; ]
Minutes = (Decimal_Deg - Degrees) * 60 2 c% x8 [9 A$ H r0 ['Set seconds to 60 times the number to the right of the" M, ~1 N2 t/ t5 @* C
'decimal for the variable Minute 0 W' h# v( L; y* i' A0 s0 YSeconds = Format(((Minutes - Int(Minutes)) * 60), "0") # A( H7 }- P7 P$ i; ^'Returns the Result of degree conversion; g" |) j! t3 p
'(for example, 10.46 = 10~ 27 ' 36")! }! ~9 H( G. ]
Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _ 0 e, J% A8 K# g$ Q+ a& Seconds + Chr(34)4 k, w. Q: E# |+ U8 c/ z3 @
End With' h' a) |: D0 {( K1 o
End Function 9 r3 G/ Z( Z: r8 w5 q% w+ Q$ g _* L1 a4 ~# h, R2 }
4. Nhấn ALT+F11 để quay về Excel. 7 j* O1 N* a9 x; W% e" w7 U$ F4 d9 r5 S: N9 i, y2 k
5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau: 1 M7 O0 A0 j0 O0 ~( |: ^6 F% @) b; W& T- Q
=Convert_Degree(10.46) ; M' Q e3 B& `! h + |3 Z, D+ V( d/ v6 Y# hKết quả thu được là 10°27'36" % v% M8 C; q4 H# f0 w0 Q0 P
5 {) L, }5 c& t" Z5 C8 m% P* gHoặc: , i" ]3 k" l7 j: O7 _0 _# X# r2 D
1. Trong Excel nhấn ALT+F11. + ]1 e1 z- \2 z 2 p. j, X4 H& y8 D2. Trong menu File , click Import file chọn 2 file đính kèm trong thư mục này. # _9 d. P. Q: ]5 }4 a* Y 2 o& @$ C" T' ?" \8 N+ k- Doi so thap phan ra do phut giay* B( {% A9 Z3 m( X5 J1 @% V0 P- g v
- Doi do phut giay ra so thap phan : a$ s0 J; N( S3 o 7 O9 y3 `7 N( [& Q. I( ]3. Nhấn ALT+F11 để quay về Excel. % d9 K: c. z7 @2 p) S4 U/ u7 z( u8 o0 W- C6 d
Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:- S; u# m: O) }- a3 }
, \$ F8 ^* V/ P6 J% n0 O
=Convert_Degree(10.46)% c4 ^4 N3 Q2 g( I# T/ G. ^
6 \2 F" f6 Z/ k6 s* N, L: hKết quả thu được là 10°27'36" % X, j8 c% V+ k" c; \5 ^( P$ S8 L, j
Chi tiết xem trong file mẫu đính kèm.& u) \/ r! [" w# F1 U/ |) H9 f ' v3 v5 D9 d* o5 G' }; uTải tập tin đính kèm tại đây. * k5 h# N: p6 @" [8 M+ q: b# j0 l
