Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Flashsale Mua Sắm Trực Tuyến - Mua Nhanh Kẻo Hết

Cộng đồng công nghệ mới của Vn-Zoom

Cài đặt thảo luận về Windows 10 ở Vn-Zoom
Khuyến Mại FlashSale Cấm Up Ảnh đóng dấu forum khác

Vn-Zoom phiên bản beta

Kích hoạt Windows , Office miễn phí



kết quả từ 1 tới 6 trên 6
Vn-Zoom Việt Nam Phiên bản Beta

  1. #1
    desperadovn's Avatar
    desperadovn vẫn chưa có mặt trong diễn đàn Rìu Chiến Bạc
    Tham gia
    Sep 2012
    Bài
    3.609
    Cảm ơn
    145
    Điểm
    1.318/1.064 bài viết

    Post Thêm hàm Tách Tên, Họ, Tên Đệm vào Excel

    Hàm này mình viết trong Excel 2016

    Để gọi được những hàm này trong Excel bạn phải viết trong Module.

    Cách làm:
    Mở file Excel -> Tab Developer -> Visual Basic. Trong Visual Basic -> Insert -> Module. Và Copy từng code bên dưới cho vào Module.
    Bạn trở lại Excel để kiểm tra.

    TÁCH TÊN =TachTen(Chuoi)
    Code:
    Function TachTen(Chuoi As String) As String
    Dim i As Integer, KQTTen As String
    i = 0
    KQTTen = ""
    For i = 1 To Len(Trim(Chuoi))
        KQTTen = Right(Trim(Chuoi), i)
        If KQTTen <> Trim(KQTTen) Then
            Exit For
        End If
    Next
    TachTen = Trim(KQTTen)
    End Function

    TÁCH HỌ =TachHo(Chuoi)
    Code:
    Function TachHo(Chuoi As String) As String
    Dim j As Integer, KQTHo As String
    j = 0
    KQTHo = ""
    For j = 1 To Len(Trim(Chuoi))
        KQTHo = Left(Trim(Chuoi), j)
        If KQTHo <> Trim(KQTHo) Then
            Exit For
        End If
    Next
    If Trim(Chuoi) = Trim(KQTHo) Then
        TachHo = ""
    Else
        TachHo = Trim(KQTHo)
    End If
    End Function

    TÁCH TÊN ĐỆM =TachTenDem(Chuoi)
    Code:
    Function TachTenDem(Chuoi As String) As String
    Dim i As Integer, j As Integer, KQCTen As String, KQCHo As String, XKQ As String
    Dim CTrai As String, CPhai As String
    i = 0
    j = 0
    
    ' Ham cat ten
    For i = 1 To Len(Trim(Chuoi))
        KQCTen = Right(Trim(Chuoi), i)
        If KQCTen <> Trim(KQCTen) Then
            Exit For
        End If
    Next
    ' Ham cat ho
    For j = 1 To Len(Trim(Chuoi))
        KQCHo = Left(Trim(Chuoi), j)
        If KQCHo <> Trim(KQCHo) Then
            Exit For
        End If
    Next
    'Ham cat tem dem
    CTrai = Left(Trim(Chuoi), Len(Trim(Chuoi)) - Len(Trim(KQCTen)))
    If CTrai = "" Then
        XKQ = ""
    Else
    CPhai = Right(Trim(CTrai), Len(Trim(CTrai)) - Len(Trim(KQCHo)))
    XKQ = Trim(CPhai)
    End If
    
    'Xuat KQ
    TachTenDem = Trim(XKQ)
    End Function

    Những hàm này chỉ dùng trên một máy. Bạn muốn mang qua máy khác. Bạn cần lưu lại Module dạng Add-In. Tại cửa sổ Visual Basic -> File -> Save Book -> Save as type: Add-ins và lưu nó ở bất kỳ để ko bị xóa mất. Và chỉ việc copy file sang máy khác và đưa nó vào Add-Ins

    Để module này được áp dụng cho tất cả các file Excel bạn cần đưa vào Add-Ins của Excel.
    Mở Excel -> File -> Options- > Add-Ins -> Go... -> Browser (Tìm đến nơi vừa lưu Module) -> OK
    Thay đổi nội dung bởi desperadovn; 11-11-2017 lúc 23:14.


    Dù đã cố gắng hết sức.
    Nhưng em vẫn như vậy.
    Hứa với hẹn. Tạm biệt em! Gone!



  2. Cách mạng mua sắm giảm giá cực sốcMưa Sale Băng giảm giá cực tốt *** Bủng Nổ Cơn lốc công nghệ
  3. Có 2 thành viên cảm ơn desperadovn cho bài viết này:
    locb (12-11-2017), tvthoi1984 (12-11-2017)

  4. #2
    tvthoi1984's Avatar
    tvthoi1984 vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    Jun 2009
    Bài
    373
    Cảm ơn
    380
    Điểm
    74/55 bài viết

    Default

    Thanks bạn nhiều. Nhưng dùng flash fill nhanh hơn.


    Đừng xem chữ kí của tôi


  5. #3
    tvthoi1984's Avatar
    tvthoi1984 vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    Jun 2009
    Bài
    373
    Cảm ơn
    380
    Điểm
    74/55 bài viết

    Default

    Bạn desperadovn ơi!

    Nếu có thể bạn share luôn code sắp xếp họ và tên theo thứ tự a,b,c tên-tên đệm-họ luôn đi bạn.

    Giống như cái tiện ích sortTcvn ấy.



    Đừng xem chữ kí của tôi


  6. #4
    caysoile's Avatar
    caysoile vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Jan 2012
    Bài
    34
    Cảm ơn
    16
    Điểm
    23/11 bài viết

    Default

    Tham khảo video về tách họ tên:

    1. Tách họ tên không dùng công thức:




    2. Tách họ tên dùng công thức:



    Xem nhiều



  7. #5
    desperadovn's Avatar
    desperadovn vẫn chưa có mặt trong diễn đàn Rìu Chiến Bạc
    Tham gia
    Sep 2012
    Bài
    3.609
    Cảm ơn
    145
    Điểm
    1.318/1.064 bài viết

    Default

    Trích tvthoi1984 View Post
    Bạn desperadovn ơi!

    Nếu có thể bạn share luôn code sắp xếp họ và tên theo thứ tự a,b,c tên-tên đệm-họ luôn đi bạn.

    Giống như cái tiện ích sortTcvn ấy.

    Cái này chịu thua bạn ơi
    Mình chưa có mò đến cái RANGE
    Tạm thời bạn dùng Sort của Office có sẵn đi


    Dù đã cố gắng hết sức.
    Nhưng em vẫn như vậy.
    Hứa với hẹn. Tạm biệt em! Gone!

  8. #6
    desperadovn's Avatar
    desperadovn vẫn chưa có mặt trong diễn đàn Rìu Chiến Bạc
    Tham gia
    Sep 2012
    Bài
    3.609
    Cảm ơn
    145
    Điểm
    1.318/1.064 bài viết

    Default

    Trích caysoile View Post
    Tham khảo video về tách họ tên:

    2. Tách họ tên dùng công thức:

    Công thức này mình làm qua rồi.
    Nhưng bỏ vài ngày là ko nhớ j. Khi làm lại thì phải tách từng hàm rồi nhẩm... ))

    Như hàm trên thì tách họ tên chỉ cần dùng LEFT và RIGHT
    Thay đổi nội dung bởi desperadovn; 14-11-2017 lúc 20:36.


    Dù đã cố gắng hết sức.
    Nhưng em vẫn như vậy.
    Hứa với hẹn. Tạm biệt em! Gone!

 

 
Cách mạng mua sắm giảm giá cực sốcMưa Sale Băng giảm giá cực tốt *** Bủng Nổ Cơn lốc công nghệ


Quyền sử dụng

  • 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ể tự sửa bài viết của mình
  •