>>Suy Ngẫm: Để thành công, hãy chớp lấy cơ hội cũng nhanh như khi vội vã kết luận.
To succeed, jump as quickly at opportunities as you do at conclusions.
Benjamin Franklin
.

Hiện kết quả từ 1 tới 6 của 6

Chủ đề: Chuyển đổi độ phút giây sang thập phân và ngược lại

  1. 1
    #1
    Quản Lý Tổng Thể Avatar của Boot
    Tham gia ngày
    Mar 2011
    Bài gửi
    685

    Level: 38 [?]
    Experience: 1.456.006
    Next Level: 1.460.206

    Thanks
    13
    Thanked 325 Times in 127 Posts
    Level: 23 [♥ Mr.Km ♥]
    Life: 0 / 570
    Magic: 228 / 9693
    Experience: 80%

    Mặc định Chuyển đổi độ phút giây sang thập phân và ngược lại

    A. Chuyển từ độ, phút, giây sang thập phân
    Kiểu định dạng : <degrees>° <minutes>' <seconds>"
    Mở Excel và nhấn Alt + F11 để mở cửa sổ Visual Basic Editor.
    Trên cửa sổ click chuột vào insert, chọn module .
    Ctrl + v đoạn mã mô tả dưới vào cửa sổ module

    Mã:
    Function Convert_Decimal(Degree_Deg As String) As Double
       ' Declare the variables to be double precision floating-point.
       Dim degrees As Double
       Dim minutes As Double
       Dim seconds As Double
       ' Set degree to value before "°" of Argument Passed.
       degrees = Val(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1))
       ' Set minutes to the value between the "°" and the "'"
       ' of the text string for the variable Degree_Deg divided by
       ' 60. The Val function converts the text string to a number.
       minutes = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 2, _
                 InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, _
                 "°") - 2)) / 60
        ' Set seconds to the number to the right of "'" that is
        ' converted to a value and then divided by 3600.
        seconds = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _
                2, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 2)) _
                / 3600
       Convert_Decimal = degrees + minutes + seconds
    End Function
    Nhấn ALT + F11 để quay trở lại cửa sổ ban đầu cần chuyển đổi.
    rồi gõ công thức sau
    =Convert_Decimal("21° 30' 00""")
    Công thức trả về 21.5



    B. Chuyển hệ thập phân sang độ, phút giây
    Làm tương tự thay đoạn code bằng đoạn này
    Mã:
    Function Convert_Degree(Decimal_Deg) As Variant
        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
            Minutes = (Decimal_Deg - Degrees) * 60
            'Set seconds to 60 times the number to the right of the
            'decimal for the variable Minute
            Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")
            'Returns the Result of degree conversion
           '(for example, 10.46 = 10~ 27  ' 36")
            Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _
                & Seconds + Chr(34)
        End With
    End Function
    Sử dụng lệnh
    =Convert_Degree(A1) để thực hiện

    C.
    Ngoài ra các bạn có thể sử dụng cách sau
    Đầu tiên Ctrl + F sau đó Replace tất cả các ° ' " thành dấu :
    Download công cụ Excel Jeanie Html Dateien
    [Only registered and activated users can see links. Click Here To Register...]
    và mở excel lên thêm add vào bằng cách click chuột phải vào và chọn custom quick access toolbar




    Chọn browse tìm đến plugin đó rồi chạy
    Sau đó thực hiện lệnh code sau

    Mã:
    =SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(A2)," ",":"),"'",""),CHAR(34),"")*24
    Nhớ thay A2 phù hợp với số cột và hàng của bạn

    Bài Viết Cùng Chuyên Mục:

    Lần sửa cuối bởi Boot; 12-12-2013 lúc 09:51 AM
    Tất cả các file đều có pass giải nén là: diachatvietnam.net

  2. 2
    #2
    Dân Địa Chất Avatar của Thanhdcb
    Tham gia ngày
    Mar 2012
    Bài gửi
    41

    Level: 24 [?]
    Experience: 72.266
    Next Level: 79.247

    Thanks
    21
    Thanked 3 Times in 4 Posts
    Level: 5 [♥ Mr.Km ♥♥ Mr.Km ♥♥ Mr.Km ♥]
    Life: 0 / 104
    Magic: 13 / 1478
    Experience: 19%

    Re: Thanhdcb trả lời

    Đúng là cách cuối ....=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(A2)," ",":"),"'",""),CHAR(34),"")*24
    là anh hay dùng đó.
    [url]http://www.diachatvn.com/forums/index.php?showuser=1829[/url]
    [url]http://forum.diachatvietnam.net/members/2989-Thanhdcb.epi[/url]

  3. 3
    #3
    Dân Địa Chất Avatar của hotandat9999
    Tham gia ngày
    Oct 2015
    Bài gửi
    1

    Level: 8 [?]
    Experience: 450
    Next Level: 674

    Thanks
    0
    Thanked 0 Times in 0 Posts
    Level: 1 [♥ Mr.Km ♥]
    Life: 0 / 0
    Magic: 0 / 0
    Experience: 0%

    Re: hotandat9999 trả lời

    sai rui...chuyển về không chính xác.<br><br>
    Khách hãy cùng hotandat9999 xây dựng DiaChatVietNam.Net nhé
    -Tất cả các file đều có pass giải nén: diachatvietnam.net
    -Hãy Cùng Nhau Chia Sẻ Tài Liệu Mình Có Nào

  4. 4
    #4
    Dân Địa Chất Avatar của linhkiendll
    Tham gia ngày
    Apr 2016
    Bài gửi
    1

    Level: 6 [?]
    Experience: 278
    Next Level: 282

    Thanks
    0
    Thanked 0 Times in 0 Posts
    Level: 1 [♥ Mr.Km ♥]
    Life: 0 / 0
    Magic: 0 / 0
    Experience: 0%

    Re: linhkiendll trả lời

    uầy mấy cái này chưa động bao giờ
    Chuyên phân phối linh kiện laptop: pin , phím, sạc, màn hình laptop - PC - macbook hàng chính hãng giá rẻ. sửa chữa laptop lấy ngay uy tín chất lượng.
    SDT : 01688449958 - 0436275678
    Website :http://duylinhlaptop.vn

  5. 5
    #5
    Dân Địa Chất Avatar của bangcap
    Tham gia ngày
    Jun 2016
    Bài gửi
    1

    Level: 6 [?]
    Experience: 231
    Next Level: 282

    Thanks
    0
    Thanked 0 Times in 0 Posts
    Level: 1 [♥ Mr.Km ♥]
    Life: 0 / 0
    Magic: 0 / 0
    Experience: 0%

    Re: bangcap trả lời

    Mình dùng 2007 không biết có được không nhỉ ?<br><br>
    Khách hãy cùng bangcap xây dựng DiaChatVietNam.Net nhé
    -Tất cả các file đều có pass giải nén: diachatvietnam.net
    -Hãy Cùng Nhau Chia Sẻ Tài Liệu Mình Có Nào

  6. 6
    #6
    Dân Địa Chất Avatar của VNKedu
    Tham gia ngày
    Oct 2016
    Bài gửi
    1

    Level: 4 [?]
    Experience: 84
    Next Level: 100

    Thanks
    0
    Thanked 0 Times in 0 Posts
    Level: 1 [♥ Mr.Km ♥]
    Life: 0 / 0
    Magic: 0 / 0
    Experience: 0%

    Re: VNKedu trả lời

    bài viết hay quá<br>cảm ơn vì đã chia sẻ&nbsp;
    Khách hãy cùng VNKedu xây dựng DiaChatVietNam.Net nhé
    -Tất cả các file đều có pass giải nén: diachatvietnam.net
    -Hãy Cùng Nhau Chia Sẻ Tài Liệu Mình Có Nào

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Đánh dấu

Quyền viết bài

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •  
RSS RSS 2.0 XML MAP