TAILIEUCHUNG - Hàm vả thủ tục tách họ tên

Họ tên thường nhập chung 1 cột cho nhanh. Sau đó ta có thể tách riêng tên ra 1 cột. Nhưng có lúc chúng ra cần tách ra 2 cột: cột họ, cột tên. Đây là 2 làm làm công việc đó: '====================== Function TachHo(hoten As String) As String hoten = Trim(hoten) If hoten = "" Then TachHo = "" Else vt = InStrRev(hoten, " ", Len(hoten)) If vt = 0 Then TachHo = "" Else TachHo = Trim(Mid(hoten, 1, vt)) End If End If End Function '==================== Function TachTen(hoten As String) As String hoten = Trim(hoten) If hoten = "" Then TachTen = "" Else vt = InStrRev(hoten, " ", Len(hoten)) If vt = 0 Then TachTen = hoten Else TachTen = Mid(hoten,. | Hàm vả thủ tục tách họ tên Họ tên thường nhập chung 1 cột cho nhanh. Sau đó ta có thể tách riêng tên ra 1 cột. Nhưng có lúc chúng ra cần tách ra 2 cột cột họ cột tên. Đây là 2 làm làm công việc đó Function TachHo hoten As String As String hoten Trim hoten If hoten Then TachHo Else vt InStrRev hoten Len hoten If vt 0 Then TachHo Else TachHo Trim Mid hoten 1 vt End If End If End Function Function TachTen hoten As String As String hoten Trim hoten If hoten Then TachTen Else vt InStrRev hoten Len hoten If vt 0 Then TachTen hoten Else TachTen Mid hoten vt 1 End If End If End Function Bạn sử dụng hàm này bình thường như các hàm khác của Excel nhưng nếu bạn cần tách họ tên thành 2 cột riêng biệt thì bạn phải thực hiện một loạt các thao tác sau 1. tách họ tách tên trên 2 cột phụ 2. chèn thêm cột bên trái cột họ tên 3. Copy 2 cột họ tên mới tách và dán bằng Paste Special - Value trở về nơi cũ. Để làm nhanh các công việc đó bạn có thể sử dụng thủ tuc TachHoTen. Sử dụng thủ tục này như sau

TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.