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: # k' j5 @* Y4 n6 F3 Q# K. F; j . h: z- u$ B; a( E! k7 _0 Y/ v1. Trong Excel nhấn ALT+F11.5 @: K1 [8 d7 |9 ^' O , E1 `: {  h; F( ~/ I, }9 {! ^" T+ Q2. Trong menu Insert, click Module.% }! G- k& _& V5 w# `) G  m 3 F/ Q# ]) l% x' A 3. Paste đoạn mã trên đây vào ô bên cạnh (cửa sổ module sheet).: t$ r! i+ P3 k# x  ], M0 i * B! F! P$ E6 F Function Convert_Degree(Decimal_Deg) As Variant % u0 p4 ]% }# S' M- j3 {+ r* R# J0 nWith Application9 W0 N2 t6 j; N/ s& x 'Set degree to Integer of Argument Passed 7 g; e+ r# o0 N7 H$ ^Degrees = Int(Decimal_Deg). q% Z, X& l  m* ?2 m 'Set minutes to 60 times the number to the right" D; e( s: `9 B+ {8 A6 @$ `" q 'of the decimal for the variable Decimal_Deg* S* t3 V) q! V( U Minutes = (Decimal_Deg - Degrees) * 60 4 P$ @1 G) i( g. Z'Set seconds to 60 times the number to the right of the % J& w2 B, P* X2 f8 e; z. W/ [* K'decimal for the variable Minute2 g8 a( O6 C5 A, T& y Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")$ A. l  n3 ^# ^' z. {* ~: M; v 'Returns the Result of degree conversion ; f* \+ Q" ]  ?2 ~" O'(for example, 10.46 = 10~ 27 ' 36")2 m; B# y- }: T% g' ] Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _( n1 [2 T4 }/ `5 @ & Seconds + Chr(34)' p8 w$ |) C) I& _" q1 H End With ) N" z* V) x5 n% Y/ @End Function$ A8 r5 H" Y) K1 \" G $ g' L: F( ?: a' `. ]4. Nhấn ALT+F11 để quay về Excel.8 ^1 z' q" V: Y1 | 1 o& e$ W: I& P4 m5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau: . b! @' v, B5 {6 i, ~3 z$ h; h ) e3 x# P  d# T1 A3 T=Convert_Degree(10.46)3 u- q. `" U7 B% N. I6 r. B% H# ? 4 k% |/ @5 x) G5 {0 X3 w2 ~Kết quả thu được là 10°27'36" ! h- J( e3 s9 m! {7 k( |0 r& ?+ k6 A0 a# l Hoặc: + S% ^$ V, M2 R , X7 b9 X" q8 ~! o9 n! T# ^& i1. Trong Excel nhấn ALT+F11. 6 _4 d/ y& H# `, V2 `- q* w. S- @- R" m; w  Y. U8 k 2. Trong menu File , click Import file  chọn 2 file đính kèm trong thư mục này.$ L/ y3 b. Y  a0 _( \ + C! T/ f1 r2 n; G+ k) J3 ] - Doi  so thap phan ra do phut giay/ `7 v' m) r9 K2 H - Doi do phut giay ra so thap phan & c" n3 \1 @# I+ ^2 l: c7 K- G! M# i* a% [2 @6 F  o 3. Nhấn ALT+F11 để quay về Excel.7 K' j& M+ h- w2 }2 I 7 A% \' x; ~; B% _6 V+ j Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau: * g( n5 d' L- E$ V# @ # E, W* W3 ^, H' {& `=Convert_Degree(10.46) " O, M7 G! L1 H; s4 c ) C$ p' d7 V8 d4 R& PKết quả thu được là 10°27'36" 8 d+ s, L3 C& P" n' J3 ?/ @0 s( A4 t9 o; R4 s Chi tiết xem trong file mẫu đính kèm. 4 V7 a0 D) ]" k3 l/ s; l; h 7 I. j3 z+ j# Q& DTải tập tin đính kèm tại đây.6 v  }' e8 s: V: z. R$ i 5 f- F( E: }+ @: I2 s, c

Cảm ơn!

Số người tham gia 2	Uy tín +4	Thưởng +3	Thanked +2	Thu lại Lý do
giadoan11	+ 2	+ 2	+ 1	File rất hay. Thanks!
dinhhien1976	+ 2	+ 1	+ 1	Sự chia sẻ tuyệt vời!Thanks!

Xem tất cả