Xử lý data trong excel 2003

[phan sang]

Mình có một file excel bao gồm danh sách nhân viên. Công ty có khoảng hơn 300 nhân viên, nên việc nhập dữ liệu rất mất nhiều thời gian. Hiện mình đang có 2 vướng mắc, xin mọi người chỉ giáo.

1. Nối các từ trong 1 ô
VD: ô A1 là Nguyen Van An. Sau khi nhập data vào ô A1 mình muốn ô A2 tự động hiện ra là Nguyen.Van.An (có dấu chấm giữa các từ)

2. Lọc data trong 1 ô
VD: ô A1 là Nguyen Van An. Sau khi nhập data vào ô A1 mình muốn ô A2 tự động hiện ra là NVA12345! . Tức là: ô A2 sẽ lấy những chữ cái đầu in hoa của các từ trong ô A1 và thêm vào đuôi 12345!

Vì rất nhiều nhân viên nên việc nhập bằng tay rất mất nhiều thời gian. Vì vậy mình muốn tạo ra một function tự động mỗi khi mình nhập dữ liệu. Rất mong mọi người chỉ giáo.

 

[TranThanhPhong]

Dùng hàm trong file đính kèm xem đúng yêu cầu chưa nhé bạn !

TTP.

 

[Hai Lúa Miền Tây]

Mình có một file excel bao gồm danh sách nhân viên. Công ty có khoảng hơn 300 nhân viên, nên việc nhập dữ liệu rất mất nhiều thời gian. Hiện mình đang có 2 vướng mắc, xin mọi người chỉ giáo.

1. Nối các từ trong 1 ô
VD: ô A1 là Nguyen Van An. Sau khi nhập data vào ô A1 mình muốn ô A2 tự động hiện ra là Nguyen.Van.An (có dấu chấm giữa các từ)

2. Lọc data trong 1 ô
VD: ô A1 là Nguyen Van An. Sau khi nhập data vào ô A1 mình muốn ô A2 tự động hiện ra là NVA12345! . Tức là: ô A2 sẽ lấy những chữ cái đầu in hoa của các từ trong ô A1 và thêm vào đuôi 12345!

Vì rất nhiều nhân viên nên việc nhập bằng tay rất mất nhiều thời gian. Vì vậy mình muốn tạo ra một function tự động mỗi khi mình nhập dữ liệu. Rất mong mọi người chỉ giáo.

Câu 1:

A2=SUBSTITUTE(TRIM(A1)," ",".")

Câu 2: Dùng UDF sau:

Function ChuDau(str As String) As String
    Dim Temp As Variant
    Dim i As Integer
    Application.Volatile
    Temp = Split(Trim(str))

    For i = 0 To UBound(Temp)
        ChuDau = ChuDau & Left(Temp(i), 1)
    Next i
    ChuDau = ChuDau & "12345!"
    
End Function

 

[phan sang]

Thanks domfootwear, [URL="http://www.giaiphapexcel.com/forum/member.php?6261-TranThanhPhong"]TranThanhPhong, once again,[/URL]

Mình muốn hỏi lại một chút trong câu 2 là: Nếu không sử dụng UDF thì có functions hoặc kết hợp giữa các functions có sẵn trong excel để giải quyết câu 2 không nhỉ?

 

[phan sang]

Thanks domfootwear, TranThanhPhong, once again,

Mình muốn hỏi lại một chút trong câu 2 là: Nếu không sử dụng UDF thì có functions hoặc kết hợp giữa các functions có sẵn trong excel để giải quyết câu 2 không nhỉ?

Mình hỏi câu hỏi này vì khi mình dùng UDF để xử lý file của mình thì dung lượng của file lớn lên rất nhiều, gần 50MB. Nếu dùng được functions nào có sẵn và kết hợp các functions cũng được thì mình chắc là dung lượng sẽ không tăng lên như thế đâu.

Mong được chỉ giáo.

 

[phan sang]

Thế nếu không dùng UDF thì có thể tạo 1 macro để thực hiện câu 2? Giúp mình với.