SƯU TẦM ĐỂ HỌC
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

CÙNG NHAU CHIA SẺ
 
Trang ChínhLatest imagesTìm kiếmĐăng kýĐăng Nhập

 

 Tách Họ và Tên trong dang sách EX

Go down 
Tác giảThông điệp
Anh Đức
Admin
Anh Đức


Tổng số bài gửi : 87
Join date : 10/10/2010
Age : 37
Đến từ : Buôn Ma Thuột - Đaklak

Tách Họ và Tên trong dang sách EX Empty
Bài gửiTiêu đề: Tách Họ và Tên trong dang sách EX   Tách Họ và Tên trong dang sách EX Icon_minitimeMon Aug 01, 2011 6:55 am

Cách dùng Macro:

Khi nhập liệu vào bảng tính Excel, thông thường ta nhập cả họ và tên vào cùng một ô. Tuy nhiên, có khi sau đó ta cần phải tách riêng tên ra khỏi họ và tên đệm, nếu làm thủ công bằng thao tác sao chép rồi dán qua ô khác thì sẽ rất bất tiện. Nếu sử dụng hàm Right kết hợp với một vài hàm khác thì cũng có thể cho ra kết quả như bạn muốn, nhưng trong một số trường hợp sẽ cho kết quả không chính xác. Có một phương pháp tối ưu hơn sẽ giúp bạn hoàn thành tốt công việc này, cách thực hiện cũng khá đơn giản như sau:
- Trên bảng tính chứa cột họ tên cần tách, bạn chọn menu Tools > Macro > Visual Basic Editor, lập tức xuất hiện chương trình Microsoft Visual Basic.
Tách Họ và Tên trong dang sách EX Excel1
- Tiếp theo, bạn nhấn menu Insert và chọn Module sẽ xuất hiện một cửa sổ soạn thảo.
Tách Họ và Tên trong dang sách EX Excel2
Bạn nhập đoạn mã lệnh sau vào cửa sổ soạn thảo:

Private Function Tachten(ten As String, lg As Integer)
Dim j As Integer
Name = Trim(ten)
For j = Len(Name) To 1 Step -1
If Mid(Name, j, 1) = " " Then
If lg = "1" Then
Tachten = Right(Name, Len(Name) - j)
Else
Tachten = Left(Name, j)
End If
Exit For
End If
Next
End Function

- Bạn nhấn Ctrl+S để lưu lại và quay trở về bảng tính Excel.
- Bây giờ để tiến hành tách riêng họ và tên đệm vào một ô mới, bạn đặt con trỏ tại ô mới chứa họ và tên đệm rồi nhập vào công thức =TachTen(B3,0) và nhấn Enter sẽ thấy ngay kết quả.
- Để tách riêng tên vào một ô mới, bạn đặt con trỏ tại ô sẽ chứa tên cần tách và nhập vào công thức =TachTen(B3,1) rồi nhấn Enter là xong.
Tách Họ và Tên trong dang sách EX Excel3
Ghi chú: B3 chính là địa chỉ của ô ban đầu chứa cả họ, tên đệm và tên.
Về Đầu Trang Go down
https://forever.iftopic.com
 
Tách Họ và Tên trong dang sách EX
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Định dạng file văn bản
» Các thủ thuật với ảnh trong Word
» Tắt tính năng tự động định dạng chỉ số trên-chỉ số dưới
» In văn bản trong MS Word
» Đếm từ trong Word?

Permissions in this forum:Bạn không có quyền trả lời bài viết
SƯU TẦM ĐỂ HỌC :: Tin học văn bản-
Chuyển đến