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:

! C- q$ e$ R; A; g3 r% o1 [: `1. Trong Excel nhấn ALT+F11.

2. Trong menu Insert, click Module.

3. Paste đoạn mã trên đây vào ô bên cạnh (cửa sổ module sheet).

Function Convert_Degree(Decimal_Deg) As Variant
9 {( u0 h3 B* s+ |5 g+ e, n* {With Application
'Set degree to Integer of Argument Passed
Degrees = Int(Decimal_Deg)
'Set minutes to 60 times the number to the right
'of the decimal for the variable Decimal_Deg
- r0 }/ e7 [0 i- g( m; [! nMinutes = (Decimal_Deg - Degrees) * 60
'Set seconds to 60 times the number to the right of the
. O! v( J" ?5 s" u, E6 K* y* d  c'decimal for the variable Minute
& _! {+ P# X+ Q' `Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")
'Returns the Result of degree conversion
'(for example, 10.46 = 10~ 27 ' 36")
6 k7 E/ n. S3 p) ~1 Y: f. MConvert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _
& Seconds + Chr(34)
1 T8 Z( A* w+ E$ t# S! xEnd With
End Function
  a( D3 B# c6 H* z' p* g
" P8 y4 ~3 ]# w& t  |, W4. Nhấn ALT+F11 để quay về Excel.
& i) U- ~$ c3 u
5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:
6 T# q2 h' D% L. o
% Z6 J2 c3 S/ W0 N=Convert_Degree(10.46)
- A' }% ?8 q& X8 z) u; v6 u
Kết quả thu được là 10°27'36"

Hoặc:
0 ~2 ~5 I! ]; B7 w% D
1. Trong Excel nhấn ALT+F11.
/ Q9 T- @' @% \/ c3 H( n( \0 v
2. Trong menu File , click Import file  chọn 2 file đính kèm trong thư mục này.

- Doi  so thap phan ra do phut giay
. ]# y0 X( ~4 g# |" d( z2 f  H- c- Doi do phut giay ra so thap phan
' I% c& _$ i, Z" O
3. Nhấn ALT+F11 để quay về Excel.

Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:
% X% @; B: {& I  O5 X" h
=Convert_Degree(10.46)
: Z: a% |" ^/ f9 U# f
- h' {5 ^# v& j5 hKết quả thu được là 10°27'36"

Chi tiết xem trong file mẫu đính kèm.
) k" p" W9 d( M
0 G" x/ s- M2 y1 t& I( RTải tập tin đính kèm tại đây.

6 N' x* w# g+ B