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:
9 t% z" K) n, s  ]% f* t
1. Trong Excel nhấn ALT+F11.

* e7 b+ C2 x! e- i) L: ~2. Trong menu Insert, click Module.
% O5 n% v. G) P+ K0 c
3. Paste đoạn mã trên đây vào ô bên cạnh (cửa sổ module sheet).

! z$ v& I0 {* J% a( R& AFunction Convert_Degree(Decimal_Deg) As Variant
With Application
  T3 @0 T: X1 c- i8 K2 u( d  a'Set degree to Integer of Argument Passed
Degrees = Int(Decimal_Deg)
'Set minutes to 60 times the number to the right
4 p* v+ _8 L+ Q( C'of the decimal for the variable Decimal_Deg
& X  Y& ~6 Y! wMinutes = (Decimal_Deg - Degrees) * 60
'Set seconds to 60 times the number to the right of the
: j7 |' z8 |  u3 l  P1 `3 k5 ^' E& D'decimal for the variable Minute
Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")
'Returns the Result of degree conversion
, H' l- `$ u+ _1 d'(for example, 10.46 = 10~ 27 ' 36")
Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _
' S; y% K& X- q3 A, z- u& Seconds + Chr(34)
End With
( R% Z4 E7 P, _/ S  ]End Function
3 r* u) s- E% @  C( o
8 N* U0 M. ^; z1 V% T4. Nhấn ALT+F11 để quay về Excel.

5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:
; Q7 ~+ U" S$ W3 ?- ?- p1 b
+ ~' |1 o: O. t0 ~* v* z=Convert_Degree(10.46)
3 B& M9 C5 U* L! ^
Kết quả thu được là 10°27'36"

9 ]/ ?0 t. p& L; \& e/ ZHoặc:

4 V' v3 c9 N9 P$ u6 i1. Trong Excel nhấn ALT+F11.
1 g0 e5 @$ Q" X# r
/ G# m- S  C& W  A2. Trong menu File , click Import file  chọn 2 file đính kèm trong thư mục này.
3 M' a& V1 ?) [5 \+ L$ y
- H* i3 e" U. s5 n: ^- Doi  so thap phan ra do phut giay
0 {8 c6 |4 `& _" E2 A4 D- Doi do phut giay ra so thap phan

3. Nhấn ALT+F11 để quay về Excel.
# |  H( X8 F, j0 k
Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:

3 _0 z* p+ Z* n( V=Convert_Degree(10.46)
0 ~1 [% ?' V2 k( X9 I
2 p1 B! S( q( R4 y, a4 wKết quả thu được là 10°27'36"
" p: A6 Y% n. \2 p
Chi tiết xem trong file mẫu đính kèm.

. K: W' x; \" J* K3 q+ FTải tập tin đính kèm tại đây.
! Q4 p& n0 L/ l% u5 j+ L* ^
% o( Z7 y" t. M# Q7 @