Công ty TNHH Đào tạo Tư vấn và Đầu tư AFTC
Hiển thị kết quả tìm kiếm từ 1 đến 5 trên tổng số: 5
  1. #1
    Tham gia ngày
    02 2008
    Bài gởi
    1
    Cảm ơn
    0
    Được cảm ơn 0 lần trong 0 bài viết

    Tách tên trong excel

    Xin chào các bạn, các bạn giúp đỡ tôi tác tên cái trong danh sách này với, tôi nghĩ mãi không ra được. Xin cảm ơn các bạn nhiều
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: huyquan, 18-08-10 lúc 05:27 PM

  2. #2
    Tham gia ngày
    09 2009
    Bài gởi
    2,562
    Cảm ơn
    3,289
    Được cảm ơn 5,265 lần trong 2,302 bài viết
    Trích Nguyên văn bởi huyquan View Post
    Xin chào các bạn, các bạn giúp đỡ tôi tác tên cái trong danh sách này với, tôi nghĩ mãi không ra được. Xin cảm ơn các bạn nhiều
    Thử dùng cái hàm tự tạo "xi-ma-chao" này xem:
    Code:
     
    Public Function cat(Vung As Range) As String
        Dim I As Integer, Tam As String
            For I = 2 To Len(Vung)
                If Mid(Vung, I, 1) = UCase(Mid(Vung, I, 1)) Then
                    Tam = Tam & " " & Mid(Vung, I, 1)
                Else
                    Tam = Tam & Mid(Vung, I, 1)
                End If
            Next
        cat = Left(Vung, 1) & Tam
    End Function
    Tập tin đính kèm Tập tin đính kèm

  3. #3
    Tham gia ngày
    02 2008
    Nơi Cư Ngụ
    Hà Nội
    Bài gởi
    1,464
    Cảm ơn
    785
    Được cảm ơn 1,979 lần trong 1,013 bài viết
    Bạn xem trong file có được không nhé!
    Tập tin đính kèm Tập tin đính kèm

  4. #4
    Tham gia ngày
    05 2008
    Nơi Cư Ngụ
    Hải Phòng
    Bài gởi
    4,433
    Cảm ơn
    3,562
    Được cảm ơn 7,223 lần trong 3,396 bài viết
    Đối với bài này có 3 cấp độ:
    1/ Trong tầm tay: Chữ thường viết hoa chữ đầu tên, đệm và họ: Tôi đã viết hàm ngắn gọn và sử lý khả quan xong thành tên, họ, tên lót.
    2/Phần có dấu: Trước mắt ta sử lý trên Font Unicode (Concogia lưu ý dính chưởng đoạn này nha)
    3/Toàn bộ chữ in: Bó tay vì ngoài tầm của chúng ta.

    Đây là hàm tách của mình
    Code:
    Function Tachten(Hoten As String, id As Integer) As String
    Dim tam, ch, i
    For i = 1 To Len(Hoten)
    If Asc(Mid(Hoten, i, 1)) = Asc(UCase(Mid(Hoten, i, 1))) Then
    ch = ch & ";" & Mid(Hoten, i, 1)
    Else
    ch = ch & Mid(Hoten, i, 1)
    End If
    Next
    If InStr(1, ch, ";") = 0 Then Tachten = "": Exit Function
    tam = Split(ch, ";")
    Select Case id
    Case Is = 1
    Tachten = tam(UBound(tam))
    Case Is = 2
    Tachten = tam(LBound(tam) + 1)
    Case Is = 3
    For i = LBound(tam) + 2 To UBound(tam) - 1
    Tachten = Tachten & " " & tam(i)
    Next
    Case Else
    Tachten = ""
    End Select
    End Function
    Cú pháp =Tachten(Hoten,Id)
    Id=1: Lấy tên.
    Id=2: Lấy Họ
    Id=3: Lấy tên lót.

    Mình đang loay hoay sử lý Font chữ có kết quả gì mình thông báo sau.
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: sealand, 18-08-10 lúc 09:08 PM

  5. Thành viên sau cảm ơn sealand về bài viết này:


  6. #5
    Tham gia ngày
    05 2008
    Nơi Cư Ngụ
    Hải Phòng
    Bài gởi
    4,433
    Cảm ơn
    3,562
    Được cảm ơn 7,223 lần trong 3,396 bài viết
    Đây là file mình tích hợp 1 hàm bỏ dấu của thày Phạm Duy Long để sử lý font chữ. Do làm vội nên mình mới sử lý Font Unicode, nếu dùng được thì bổ xung các chuỗi mã TCVN3, VNI để sử lý toàn diện hơn.

    Trong file có 2 hàm cơ bản

    1/Hàm = Ho_ten(Hoten,Id)
    Trong đó: lấy Họ Id=1, lấy tên Id=2, lấy tên lót Id=3
    Tác dụng: Chia chuỗi thành tên-ho-tên lót riêng biệt

    2/ Hàm =SName(Hoten)
    Tác dung: Tạo chuỗi họ và tên chuẩn
    Tập tin đính kèm Tập tin đính kèm

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Hỏi về sự khác nhau giữa Macro, code và hàm trong excel. Excel và VBA
    Viết bởi vdtam_08 trong chuyên mục Lập Trình với Excel
    Trả lời: 4
    Bài mới gởi: 12-07-11, 10:22 PM
  2. Tạo một form trong word sử dụng data trong file excel 2007
    Viết bởi wwwgiaiphapexcelcom trong chuyên mục Phần mềm xử lý văn bản và chế bản điện tử
    Trả lời: 0
    Bài mới gởi: 09-09-10, 01:09 AM
  3. Export tung sheets trong 1 file Excel vào thành từng bảng trong ACCESS
    Viết bởi hoquang1987 trong chuyên mục Ứng dụng Quản trị cơ sở dữ liệu
    Trả lời: 4
    Bài mới gởi: 30-11-09, 04:36 PM
  4. Excel Custom Number Format - Tùy biến định dạng số trong Excel (Sưu tầm)
    Viết bởi QuocPhong trong chuyên mục Định dạng, trình bày, in ấn bảng tính
    Trả lời: 1
    Bài mới gởi: 21-05-09, 09:40 AM
  5. Bo Password khởi động Excel và Pass Readonly trong Excel 2007
    Viết bởi luong_xuangiang trong chuyên mục Excel 2007, 2010 & 2013
    Trả lời: 1
    Bài mới gởi: 29-04-09, 11:03 AM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

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

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]