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: 3 i! b8 j. i4 f  b+ F , ^5 {! E; m0 o5 `1. Trong Excel nhấn ALT+F11.! M- e, i4 K& L. k- C& t( t3 s + N! w  M: \6 g2 r- f1 m2. Trong menu Insert, click Module. 6 [0 D+ V! H" P6 [ ' D' @+ ^! U, ^3 h2 _5 p3. Paste đoạn mã trên đây vào ô bên cạnh (cửa sổ module sheet). % H& j6 e8 G; _" D! h 2 Y$ U' X$ C7 ^% L5 oFunction Convert_Degree(Decimal_Deg) As Variant 1 i; M4 |. Y8 q, K6 fWith Application8 z2 Y& d* y$ H# p+ Z 'Set degree to Integer of Argument Passed   r, @- Y) k- [: a, z$ YDegrees = Int(Decimal_Deg)4 m& k, U" [9 ~. y: \  }& `; X, r 'Set minutes to 60 times the number to the right1 v  z; |. X& o! J# i 'of the decimal for the variable Decimal_Deg  [3 ?+ h% B& ^ Minutes = (Decimal_Deg - Degrees) * 60   m6 O. N% f$ W9 J'Set seconds to 60 times the number to the right of the 6 Y/ R6 U0 F2 [. |* B'decimal for the variable Minute/ d7 Z* @. n" d# G( E/ n; F Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")0 o) \% y: |/ v; B7 \ 'Returns the Result of degree conversion . ~  }+ o9 }& V1 \'(for example, 10.46 = 10~ 27 ' 36") $ H8 ~9 V8 z6 _3 j- pConvert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _ , ^7 f& k. ^5 Z! @1 s. d& Seconds + Chr(34)) l2 X+ e/ a! y+ [ End With 3 r* X3 O* B5 W7 C$ n4 GEnd Function 3 t2 J9 L6 {3 n  D, ^8 J- C$ E/ ~' ?4 t1 X- Z" @$ b3 w 4. Nhấn ALT+F11 để quay về Excel. ' L8 \6 Q$ S; a, t& L# x2 G0 |/ R) [ 5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:" G  P1 R6 V* X& `% j 7 L$ q( q1 W" j2 I0 F6 v1 `9 `7 z/ c =Convert_Degree(10.46) - n2 _) B% c0 \2 k3 B8 u0 x& K: H) m/ J: A& m# r4 Z% O- Q Kết quả thu được là 10°27'36" 6 f" A& r1 k9 i6 W1 C' K2 X& a0 | . ^- B# _( V4 o. m4 UHoặc: ; m$ |% |. u. q5 G% G, F$ ^+ A- x9 [/ q9 E) s, M 1. Trong Excel nhấn ALT+F11. ! t, o; B* q6 P6 k' {( R8 b# @, P. s1 q6 a 2. Trong menu File , click Import file  chọn 2 file đính kèm trong thư mục này.2 Z! t: z3 o, K2 u3 x: o   `* C; S5 ^: {: P' z- Doi  so thap phan ra do phut giay 4 ~  H3 a8 p% N4 p- Doi do phut giay ra so thap phan: A) e$ u4 i$ n  q1 Q/ u. `- z % o6 ~7 ]2 Y6 R" a4 Q3. Nhấn ALT+F11 để quay về Excel. $ _: q, o0 r  m; k; R8 ]2 \5 I# |: N" W3 Q" l* j; @. i# F7 \" I Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau: , L+ {3 t4 _- f ; H2 _# p5 W' _" r1 ~=Convert_Degree(10.46) $ k) `1 M8 r+ `# Y0 `/ F % W5 x! \- \  ~( [' MKết quả thu được là 10°27'36" 4 J- Z2 S1 H7 R, M$ f - d! U5 e% e4 `2 t; tChi tiết xem trong file mẫu đính kèm. # J; A1 ~: Q  ~* k; s9 {5 B) }; C; g Tải tập tin đính kèm tại đây. % Z: w# ]( `6 g& h2 g 4 b+ W! z/ @% U9 X$ G  z

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ả