Chủ đề: Hàm tách họ tên trong Excel
-
06-17-2016, 11:46 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Hàm tách họ tên trong Excel
Đôi khi chúng ta gặp những trường hợp cần tách họ tên của một danh sách nhận viên, học sinh, hay sinh viên chẳng han. Chúng ta phải kết hợp nhiều công thức trong Excel, bài này mình hướng dẫn cho các bạn một hàm trong Excel, mà chỉ cần copy về là sử dung được. Để copy hàm này các bạn làm như sau:
Bước 1: Nhấn tổ hợp phím ALT+F11 để vào môi trường VBA. Vào menu Insert->Module - Tạo module
Bước 2: Copy đoạn code dưới đây dán vào module
Mã:Function TachHoTen(ByVal sHoVaTen As String, Optional ByVal bLayHo As Boolean = True) As String Dim p As Long p = InStrRev(sHoVaTen, " ") If bLayHo Then TachHoTen = Left(sHoVaTen, p - 1) Else TachHoTen = Right(sHoVaTen, Len(sHoVaTen) - p) End If End Function
Giả sử cần tách họ tên trong ô A1, kết quả trả về tại B1 thì ta làm công thức như sau:
B1=TachHoTen(A1,true)
- Nếu đối số thứ 2 là True thì kết quả trả về là Họ.
- Nếu đốisố thứ 2 là False thì kết quả trả về là Tên.View more random threads:
- Thư viện dành cho dân lập trình Visual Basic
- Excel "đẻ" thêm một file mới.
- Tạo một danh sách xác thực thay đổi theo sự lựa chọn từ một danh sách khác nhờ VBA
- Click vào 1 cell sẽ hiện lên cái lịch
- ADO toàn tập
- Mong các bạn giúp đỡ : Lập trình VBA cho excel " lọc danh sách nhân viện có cùng độ tuổi "
- Tặng các bạn ScrollText - Cuộn chữ: lên, xuống, trái phải,...
- viết code cho excel tự động nonblank
- cách hiển thị theo từng dòng và cột trong textbox
- Đánh số báo danh
-
06-18-2016, 03:11 PM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
xel 203 có làm được ko bạn ơi mình nhấn ALT+F11 mà ko xảy ra hiện tượng gì hết :-(
-
06-18-2016, 03:19 PM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Em đã làm và thành công. Yêu chị Chụt chụt
-
06-18-2016, 03:46 PM #4Junior Member
- Ngày tham gia
- Dec 2015
- Bài viết
- 4
Gửi bởi ToLaMo411
-
06-20-2016, 04:28 PM #5Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Gửi bởi Khiconnb
-
06-21-2016, 05:51 PM #6Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Gửi bởi ToLaMo411
-
06-21-2016, 06:17 PM #7Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Gửi bởi Khiconnb
-
06-21-2016, 06:28 PM #8Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Gửi bởi ToLaMo411
-
06-21-2016, 09:25 PM #9Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Gửi bởi Khiconnb
Epson - một trong những tập đoàn công nghệ hàng đầu thế giới, đã khẳng định vị thế tiên phong của mình trong lĩnh vực máy chiếu. Với bề dày lịch sử và sự đổi mới không ngừng, Epson không chỉ mang đến...
Lịch sử hình thành và phát triển của thương hiệu máy chiếu Epson