Chuyển đổi qua lại giữa Radian và Độ phút giây trong Excel

Hieunghia

Làm theo các bước sau để dùng đoạn mã VBA:
0 L  o7 j1 h; G9 y9 |
* v- C" v1 `3 `" n6 t* G1. Trong Excel nhấn ALT+F11.
: u8 {. k7 J/ F7 {: \+ j
  C- d% y1 G2 K0 k1 k2. Trong menu Insert, click Module.
1 g* E+ ~9 y& n. \! k9 U
/ l; `2 X( r0 `" m% H  v3. Paste đoạn mã trên đây vào ô bên cạnh (cửa sổ module sheet).
- d- n6 ]( g% y+ {1 c
' |, x" U  g& h) [3 F! f2 {9 D: ^Function Convert_Degree(Decimal_Deg) As Variant
- l+ n9 y- v( l4 l3 iWith Application
'Set degree to Integer of Argument Passed
, p2 n. o1 Z- cDegrees = Int(Decimal_Deg)
! h1 o2 w' j3 N( [8 o0 S! z6 z0 _'Set minutes to 60 times the number to the right
'of the decimal for the variable Decimal_Deg
Minutes = (Decimal_Deg - Degrees) * 60
8 c7 H& Z0 [0 m6 f! `3 u/ ]'Set seconds to 60 times the number to the right of the
( {4 X; F" X7 j1 F7 h' m'decimal for the variable Minute
# s! A' l, Z" \Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")
'Returns the Result of degree conversion
7 ^: W* t* u/ r'(for example, 10.46 = 10~ 27 ' 36")
Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _
& Seconds + Chr(34)
End With
( ^6 n) ~) A+ p$ i+ s5 }& YEnd Function

4. Nhấn ALT+F11 để quay về Excel.
0 m; Q5 F) ~6 [9 R
- r, W! [5 f6 R7 ?  T. k: X5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:

+ T( u7 A& L3 \4 m: B! N6 y=Convert_Degree(10.46)
5 c3 C' L+ c# ?! B
Kết quả thu được là 10°27'36"
1 M' y4 B1 g- `2 u( V
Hoặc:
$ Z5 m  c, c: }3 l
/ F1 R. G9 q7 l! U- I: g+ N) L  I1. Trong Excel nhấn ALT+F11.
/ Z9 o! T* [2 b$ G' E  ~$ N) j
9 H1 p1 n; V3 f  i) ~2. Trong menu File , click Import file  chọn 2 file đính kèm trong thư mục này.
2 ]  E9 n7 t2 s( R. A7 B
- Doi  so thap phan ra do phut giay
0 Q. J; |2 m6 \* ~8 V+ R) a& R& K- Doi do phut giay ra so thap phan

3. Nhấn ALT+F11 để quay về Excel.
9 c$ [& `* c: E3 j6 F: n$ s
Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:

- [! K" E+ c! \/ ?7 t6 [=Convert_Degree(10.46)

Kết quả thu được là 10°27'36"

7 a1 D+ B$ g3 v$ b, dChi tiết xem trong file mẫu đính kèm.
' V4 }2 c* N2 f
Tải tập tin đính kèm tại đây.
6 H# L0 q: Z" E* |+ }0 |