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:
+ b( m5 |, \+ a
( o0 |/ x  m; p* K1. Trong Excel nhấn ALT+F11.
4 g. s/ L2 Y/ s* Q' ]7 p' O
2. Trong menu Insert, click Module.
* _, l6 f9 T$ z8 X, v
: G$ k, x: C/ g- Q3. Paste đoạn mã trên đây vào ô bên cạnh (cửa sổ module sheet).
: U+ \9 Y7 N) I
' y7 I& {4 {: ?: |+ U- g7 lFunction Convert_Degree(Decimal_Deg) As Variant
% w& n% J* K2 V" o: r6 {2 bWith Application
" F; b8 b; A. O5 ]'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
Minutes = (Decimal_Deg - Degrees) * 60
'Set seconds to 60 times the number to the right of the
'decimal for the variable Minute
& q3 @# u; P5 A. ?Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")
'Returns the Result of degree conversion
1 m( d" K! W: S9 V8 u- b: j8 c'(for example, 10.46 = 10~ 27 ' 36")
6 a; c6 s! Z; H! `, d, A% NConvert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _
. \. |, V& s5 r& Seconds + Chr(34)
End With
$ u0 A9 O7 f9 o+ V! {" p2 x' yEnd Function
# K! p* K9 i9 k$ u/ E  f( y
4. Nhấn ALT+F11 để quay về Excel.
0 c9 P* B+ a' W  ~! X) ~% D/ R7 l1 H
: n9 o1 k, r0 }% z8 z( y5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:
9 N8 M% _6 a! F- e9 ~7 v+ |
=Convert_Degree(10.46)

  q# P1 i! i+ R, V8 J$ C/ OKết quả thu được là 10°27'36"

1 }& J6 Q5 q; NHoặc:

2 E, y) q+ I# N" d/ d8 e) O0 {7 a1. Trong Excel nhấn ALT+F11.
% o: O; o. W; D) x* H1 O2 D
2. Trong menu File , click Import file  chọn 2 file đính kèm trong thư mục này.
$ e( j5 {% W; x) k5 G1 j9 I- W! D& v
. t9 `8 X) s7 ]- Doi  so thap phan ra do phut giay
  v. y) d/ t  c3 C- B  E- Doi do phut giay ra so thap phan

3. Nhấn ALT+F11 để quay về Excel.

2 `# s+ O! ]- l5 K% ^  d' v# iVí dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:

- E/ K- E& f) ~1 R& F=Convert_Degree(10.46)

Kết quả thu được là 10°27'36"
. z! G! l! a4 u; b6 o( }  z+ E
Chi tiết xem trong file mẫu đính kèm.

Tải tập tin đính kèm tại đây.