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:0 s! E/ ~" ^) @5 d. t: o # O3 T2 C: c) g1 B  g" x1 Y- K 1. Trong Excel nhấn ALT+F11./ f2 W$ Y8 c( H( D) }- J/ Y - p' }. @; M& T' V, h' n2. Trong menu Insert, click Module." m9 P! |3 A5 { 9 k9 ]# P. V* l+ G. I7 b1 Q 3. Paste đoạn mã trên đây vào ô bên cạnh (cửa sổ module sheet).' _2 W$ W& r1 y9 {' ? 0 q) Z2 a( U4 A Function Convert_Degree(Decimal_Deg) As Variant * I% D8 g+ J' ^- a6 N2 i- @With Application- B7 p9 g( \) Q" n4 C4 D 'Set degree to Integer of Argument Passed1 Y( E0 k. j/ x# q! a Degrees = Int(Decimal_Deg) 7 C1 z  e: m8 R' Z8 C6 G'Set minutes to 60 times the number to the right + ?' Y0 v4 s/ d4 i! r2 m7 l# N. R'of the decimal for the variable Decimal_Deg& ?6 ]% ^" g  q Minutes = (Decimal_Deg - Degrees) * 60 4 K  i1 s' d* `, n" p/ T, q'Set seconds to 60 times the number to the right of the' j# j: R; e- _ 'decimal for the variable Minute  e* y# Z+ Q/ Q, f Seconds = Format(((Minutes - Int(Minutes)) * 60), "0"); b+ T# z/ o: ^; m 'Returns the Result of degree conversion 9 L1 [3 ]4 M9 y, [3 l: N4 ~: y'(for example, 10.46 = 10~ 27 ' 36")7 m, j' B6 k) d5 d5 X Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _ 7 h" ]/ y  p4 I& Seconds + Chr(34)+ a. h& ^' P1 B( \# X) ] End With / F% {3 {) z! t! W+ pEnd Function - o+ @: l) v' l; M& w8 v  K! { ! j0 H  \( y1 O5 g/ q4. Nhấn ALT+F11 để quay về Excel. ( `9 g+ `1 f* o! f2 @1 B9 F+ p9 Y. K( L3 o  x6 s$ V 5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:, W! i/ H4 A6 i1 F1 u 6 d3 e9 r, i. E) r =Convert_Degree(10.46)% j, e+ f# a+ Z* p) _  O % |+ N0 g" _8 |. G  T Kết quả thu được là 10°27'36" 9 {( W% V  ^3 |! R  z ) j7 \" i) O7 {Hoặc: ) J7 Z$ W% H0 V& f ' g. k3 m' J  d' Z9 s1. Trong Excel nhấn ALT+F11.& S$ H' C& S1 Y9 j! a, f' | . \. z8 X, I) i$ N& g# o" c$ N2. Trong menu File , click Import file  chọn 2 file đính kèm trong thư mục này.! i( v5 k! g5 l& U, E. t/ B 8 _6 h" o' ~1 u* b8 y- Doi  so thap phan ra do phut giay3 ~' f6 g+ |3 q& _3 Y4 w - Doi do phut giay ra so thap phan. j) }0 L! f+ M- l% N6 P4 `0 y 4 P& j7 `& `3 p! y* `' u6 p8 m3 d3. Nhấn ALT+F11 để quay về Excel. ! r4 C8 [- ~$ ]/ ^: B6 }3 g: \  H7 S8 V, m6 l: c% V Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:- U: ^$ g" o* x0 W" M! e * D% C% w) r9 W5 T  I$ |" K9 P' q=Convert_Degree(10.46) 5 K2 `: U& c& B1 z% L! ?% C) n, i  ?, U Kết quả thu được là 10°27'36" - |9 t& }, p8 r$ n8 h4 o, U/ I , k: J3 ?/ q! L4 U) n, F9 IChi tiết xem trong file mẫu đính kèm. $ @2 ?8 A" {; m$ B ' J; B/ J% ?5 P; \0 J  k5 O# eTải tập tin đính kèm tại đây. 0 M5 ~4 l/ S4 d, P2 e6 T# Z7 a" R9 ?" Z9 o; j  W5 M/ l

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ả