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: q, D3 k5 [3 f* v$ g
9 z" n [+ }' H* N/ ~1. Trong Excel nhấn ALT+F11. y9 W X) B2 U% T- E% B( z# |5 k) S7 K
2. Trong menu Insert, click Module. $ b; n4 Z4 v# b( f* z. U* i) b6 o
3. Paste đoạn mã trên đây vào ô bên cạnh (cửa sổ module sheet).$ `4 A# \6 p/ S6 r1 r9 x1 }
7 H6 s3 G4 h3 X
Function Convert_Degree(Decimal_Deg) As Variant0 [' [2 h4 N r
With Application 6 Z3 }8 O4 Y3 ]' R0 s'Set degree to Integer of Argument Passed / `( \; \# r4 j; Y% LDegrees = Int(Decimal_Deg) : s! j& U! U& D'Set minutes to 60 times the number to the right 2 H; M N* \3 O' v/ w'of the decimal for the variable Decimal_Deg: A& L. ^& h& x( I4 M
Minutes = (Decimal_Deg - Degrees) * 60 2 l9 ^2 z. G7 ?: ^'Set seconds to 60 times the number to the right of the + u/ t) ]9 _. r+ C7 Q'decimal for the variable Minute 4 q5 [' R( n6 vSeconds = Format(((Minutes - Int(Minutes)) * 60), "0")" t- X2 X# r" T" c
'Returns the Result of degree conversion3 V! j* u9 P! L" S! q$ n
'(for example, 10.46 = 10~ 27 ' 36")' O& W" b( @6 _( u
Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _ 3 U/ L7 O7 [! x% b+ Z' @& Seconds + Chr(34)/ t# E( E; W# A
End With6 }1 U/ N! V* i4 L* l# Y
End Function 0 g7 N6 y; A' l; c: m$ _* H ! D+ Y" u5 \8 E( |/ _$ W4. Nhấn ALT+F11 để quay về Excel. " M' F, L) }) y, r5 c2 {' F9 i # S' M1 }, b, j" c3 {5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau: / p7 `; J) v6 \* j$ X! V! u & h0 I2 D0 \. h+ D, ]9 J# z=Convert_Degree(10.46) * n8 ]! H; p# k$ h; _( E& T4 @ , u* A, ?4 ~7 E. `Kết quả thu được là 10°27'36" + J; A" |* N4 P _
& D% v9 i, _4 z3 r' k( a6 gHoặc: * S% E6 P7 E! u# g b( e- O; k
3 L5 O+ C0 I7 Z( g9 ]$ V0 w/ H5 B
1. Trong Excel nhấn ALT+F11.& i; [/ ]0 a& x: P% O+ b$ Y/ \$ I
! T. u- H: t! k4 q6 ?
2. Trong menu File , click Import file chọn 2 file đính kèm trong thư mục này. & l) y7 A. `% n. U/ F1 @3 n; l3 v+ n4 I2 \+ g4 |2 r& e
- Doi so thap phan ra do phut giay4 u" K9 P7 l8 f
- Doi do phut giay ra so thap phan+ Z( ]" j& d5 A, A% J' \ \, X
4 m, h; D& w5 c% N3. Nhấn ALT+F11 để quay về Excel. - A _ e% ?+ |" [( n# h0 V ! D8 T8 Y3 Y) }/ _- ?Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau: ! u+ Z( {! u! b9 I$ X. y; D: P2 @% S2 C
=Convert_Degree(10.46) ' q& G W( y* J" W ' B8 Q0 A, M0 }+ n- i; wKết quả thu được là 10°27'36" 3 w! w$ o0 ~- S2 y7 V
: Y9 r( U' T# `2 _% W |& D7 J6 C
Chi tiết xem trong file mẫu đính kèm. * O4 Z- f; I8 t. X , Q* [( K5 C2 E! S F* b* LTải tập tin đính kèm tại đây. 9 g- u/ U, o& Z$ q ( d' J5 Y5 @* n' W" M7 o5 Q2 }( ?
