DạyhọcIntel.net  

Bộ Giáo dục
Đào tạo

Chương trình dạy học
của Intel tại Việt Nam

Tài liệu
Hướng dẫn Kỹ năng

Viện Nghiên cứu Giáo dục
ĐH Sư Phạm TP. HCM

Intel Teach Elements


Trở lại   DạyhọcIntel.net > Góc tin học - công nghệ > Phần mềm > Văn phòng > Microsoft Excel

Reply
 
Công cụ chủ đề Kiểu hiển thị
Old 17-06-2007, 08:55   #1
Tách họ và tên ra khỏi họ tên trong Excel
Xuân Hùng Xuân Hùng is offline 17-06-2007, 08:55

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.
- 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.
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à đóng cửa sổ VB (nút close X) để 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. Ghi chú: B3 chính là địa chỉ của ô ban đầu chứa cả họ, tên đệm và tên.

 
Xuân Hùng's Avatar
Xuân Hùng
Tổng phụ trách
Points: 161,502, Level: 100 Points: 161,502, Level: 100 Points: 161,502, Level: 100
Activity: 43% Activity: 43% Activity: 43%
Gia nhập: 04-2008
Đơn vị: SGD Lâm Đồng
Bài viết: 658
Cảm ơn: 534
Được cảm ơn 1,504 lần trong 372 bài
Bài viết blog: 2
Lượt xem: 10330
Trả lời kèm trích dẫn
Đã cảm ơn Xuân Hùng:
Old 18-06-2007, 05:43   #2
mrhangson
Lớp mầm
Points: 1,642, Level: 11 Points: 1,642, Level: 11 Points: 1,642, Level: 11
Activity: 0% Activity: 0% Activity: 0%
 
Gia nhập: 06-2007
Đơn vị: THPT Củ Chi
Bài viết: 7
Cảm ơn: 0
Được cảm ơn 2 lần trong 2 bài
Mặc định

chào thầy !
em chân thành cám ơn thầy đã chia sẽ một thủ thuật trong tin học văn phòng. Trước đây, em đã gặp tình huống này nhưng không biết làm ! hôm nay rất vui vì mình đã học thêm được một thủ thuật ứng dụng hay !
Phạm Sơn
mrhangson is offline   Trả lời kèm trích dẫn
Old 18-06-2007, 06:06   #3
ddd
Trưởng ban HC - QT
Points: 44,753, Level: 65 Points: 44,753, Level: 65 Points: 44,753, Level: 65
Activity: 14% Activity: 14% Activity: 14%
 
ddd's Avatar
 
Gia nhập: 06-2007
Đơn vị: Ngô Quyền Highschool
Bài viết: 1,250
Cảm ơn: 1,772
Được cảm ơn 3,921 lần trong 933 bài
Mặc định Tiện ích Excel

Trên website echip có một cái tiện ích Excel có làm được cái này, Thầy Cô có thể lầy để xài.
chỉ có 690 KB (File nén)
down here
ddd is offline   Trả lời kèm trích dẫn
Old 18-06-2007, 07:11   #4
lao_tru
Khách
 
Bài viết: n/a
Mặc định

Đúng đó, trên đó có nhiều tiện ích hay cho Excel.
  Trả lời kèm trích dẫn
Old 17-08-2007, 22:32   #5
thaygiaolang
Tổng phụ trách
Points: 388,435, Level: 100 Points: 388,435, Level: 100 Points: 388,435, Level: 100
Activity: 4% Activity: 4% Activity: 4%
 
thaygiaolang's Avatar
 
Gia nhập: 08-2007
Đơn vị: THCS Huỳnh Tấn Phát Quận 7 - TpHCM
Bài viết: 947
Cảm ơn: 934
Được cảm ơn 3,101 lần trong 761 bài
Bài viết blog: 6
Mặc định

Tôi có tự mày mò viết một số macro để dùng trong công việc hàng ngày, nay xin chia sẻ cho mọi người. Những ai chưa có chương trình nào hay hơn thì có thể dùng tạm. Còn các cao thủ thì cũng xin ghé mắt xem giùm và cho vài lời chỉ giáo.
Xin nói trước là tôi có "mượn tạm" hai thư viện của phần mềm VietKey (bất hợp pháp), nhưng với mục đích là để sử dụng chứ không kinh doanh gì cả nên xin mọi người xá tội.
Cách dùng : tải file đính kèm, giải nén, chép 2 file thư viện vklib.dll và vkspell.dll vào thư mục windows, rồi cài file add-in vn_tool.xla vào excel. Khi nhấp chuội phải sẽ xuất hiện menu để dùng.
Các tập tin đính kèm
Kiểu tập tin: zip Macro_Excel.ZIP (101.3 KB, 65 lượt xem)
__________________
Xuân đi hoa vẫn nở
Xuân ở hoa vẫn rơi
Bận lòng chi rơi - nở
Tự tại thả thuyền chơi
thaygiaolang is offline   Trả lời kèm trích dẫn
Đã cảm ơn thaygiaolang:
Old 24-08-2007, 23:58   #6
phantuhuong
Lớp mầm
Points: 1,495, Level: 10 Points: 1,495, Level: 10 Points: 1,495, Level: 10
Activity: 0% Activity: 0% Activity: 0%
 
Gia nhập: 08-2007
Đơn vị: MDC
Bài viết: 3
Cảm ơn: 0
Được cảm ơn 4 lần trong 2 bài
Mặc định

Tôi xin bổ sung cách của Tác giả Nguyễn Duy Tuân: Không dùng vòng For. Dùng cho 2 trường hợp tách Họ hoặc Tên.


Trích dẫn:
Function TachHoTen(ByVal HoVaTen As String, Optional TachTen As Boolean = True) As String
Dim Pos_Right As Integer
If HoVaTen = "" Then GoTo EndFunc
HoVaTen = Trim(HoVaTen) 'Xoá khoảng trống hai bên của "HoVaTen"
Pos_Right = InStrRev(HoVaTen, " ") 'Kiểm tra hợp lệ
If Pos_Right = 0 Or Pos_Right - 1 < 0 Or Pos_Right + 1 > Len(HoVaTen) Then GoTo EndFunc:
End If
If TachTen Then
TachHoTen = Mid(HoVaTen, Pos_Right + 1)
Else TachHoTen = Left(HoVaTen, Pos_Right - 1)
End If
EndFunc:
End Function
=TachHoTen("Nguyễn Duy Khánh"). Kết quả là "Khánh".
=TachHoTen("Nguyễn Duy Khánh",False). Kết quả là "Nguyễn Duy".

Hàm InStrRev chỉ dùng từ Office2000(v9) trở lên.
__________________

Chỉnh sửa lần cuối bởi phantuhuong : 25-08-2007 lúc 00:01
phantuhuong is offline   Trả lời kèm trích dẫn
Đã cảm ơn phantuhuong:
Old 09-09-2007, 17:20   #7
ktth
Lớp lá
Points: 2,006, Level: 12 Points: 2,006, Level: 12 Points: 2,006, Level: 12
Activity: 0% Activity: 0% Activity: 0%
 
ktth's Avatar
 
Gia nhập: 08-2007
Đơn vị: THCS Linh Trung
Bài viết: 12
Cảm ơn: 21
Được cảm ơn 28 lần trong 7 bài
Mặc định tách họ và tên

Em cũng có một cách đơn giản:
b1: Tool/Macro/Visual basic Editor
b2: Insert/Module
b3: gõ bảng công thức bên dưới
Public Function ten(hoten)
ten = Mid(Trim(hoten), InStrRev(Trim(hoten), " ") + 1)
End Function

Public Function Ho(hoten, ten)
Ho = Mid(Trim(hoten), 1, Len(Trim(hoten)) - Len(ten))
End Function

b4: save và nhấn vào nút biểu tượng Excel để quay về màn hình Excel
b5: VD ô A1 gõ Nguyễn Văn Mười Hai
Kết quả
b6: kết quả tên ở ô B1, gõ vào ô B1 =ten(A1)
b7: kết quả họ ở ô C1, gõ vào ô C1 =ho(A1,B1)
ktth is offline   Trả lời kèm trích dẫn
Đã cảm ơn ktth:
Old 07-12-2007, 23:29   #8
Xuân Hùng
Tổng phụ trách
Points: 161,502, Level: 100 Points: 161,502, Level: 100 Points: 161,502, Level: 100
Activity: 43% Activity: 43% Activity: 43%
 
Xuân Hùng's Avatar
 
Gia nhập: 04-2008
Đơn vị: SGD Lâm Đồng
Bài viết: 658
Cảm ơn: 534
Được cảm ơn 1,504 lần trong 372 bài
Bài viết blog: 2
Mặc định Nếu mọi người cần tách họ tên trong cột excel hãy dowload Tiệt ich Excel

Tiện ích Excel và Word tôi đã upload rồi! tôi nghĩ sử dụng nó sẽ rất hay! là trong Visual..cũng hay nhưng thật tốn thời gian! hãy sử dụng những gì đang có..hi..hi
Nếu ai cần dowload nè!
Các tập tin đính kèm
Kiểu tập tin: zip tienichexcel.zip (103.2 KB, 92 lượt xem)
Xuân Hùng is offline   Trả lời kèm trích dẫn
Đã cảm ơn Xuân Hùng:
Old 10-12-2007, 23:20   #9
minhphuc80
Lớp chồi
Points: 4,189, Level: 18 Points: 4,189, Level: 18 Points: 4,189, Level: 18
Activity: 0% Activity: 0% Activity: 0%
 
Gia nhập: 11-2007
Đơn vị: Long Binh
Bài viết: 15
Cảm ơn: 467
Được cảm ơn 10 lần trong 3 bài
Mặc định

Rất tuyệt khi xài tiện ích này. Cám ơn Thầy nhiều
minhphuc80 is offline   Trả lời kèm trích dẫn
Old 21-06-2008, 19:17   #10
surau
Lớp 9
Points: 142,979, Level: 100 Points: 142,979, Level: 100 Points: 142,979, Level: 100
Activity: 0% Activity: 0% Activity: 0%
 
surau's Avatar
 
Gia nhập: 06-2008
Đơn vị: THCS Kien Thiet
Bài viết: 188
Cảm ơn: 43
Được cảm ơn 154 lần trong 82 bài
Mặc định

Cách làm của cô Hiền Cũng hay lắm, coi như tạo thêm 2 hàm mới.
surau is offline   Trả lời kèm trích dẫn
Reply


Những người đang xem chủ đề này: 1 (0 thành viên và 1 khách)
 
Công cụ chủ đề
Kiểu hiển thị

Quyền đăng bài
Bạn không thể đăng chủ đề mới
Bạn không thể đăng bài trả lời
Bạn không thể đính kèm
Bạn không thể sửa bài viết của bạn

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Nhảy đến diễn đàn

Những chủ đề liên quan
Chủ đề Người khởi xướng Diễn đàn Trả lời Bài cuối
Cho hỏi về cố định dòng hoặc cột trong Excel? Xuân Hùng Microsoft Excel 5 21-06-2008 19:14
Học tự chọn: nên bỏ hay nên học? Ngọc Thạch Công tác quản lý giáo dục 7 26-02-2008 09:59
Cộng điểm học sinh phổ thông trung học bằng Excel NhiemTayNinh Lớp 1B 4 19-12-2007 21:23
Trao học bổng của Intel Việt Nam cho học sinh giỏi tin học minhhang Tin tức - Sự kiện 0 03-12-2007 16:24
PhotoBie : phần mềm đồ họa nhỏ gọn, miễn phí thaygiaolang Đồ họa 0 07-10-2007 08:46

Tất cả giờ đều quy về GMT +7. Bây giờ là 18:44.


Powered by vBulletin® Version 3.8.3
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Thuộc quyền sở hữu của DạyhọcIntel.net