Vu Dinh Duy
Thành viên hoạt động
- Tham gia
- 24/4/14
- Bài viết
- 138
- Được thích
- 117
- Giới tính
- Nam
- Nghề nghiệp
- Đào tạo
Chào các anh chị,
Tôi xin gửi đến các anh chị tập tin để tạo User email từ họ và tên của một danh sách nhân viên.
Trong đó gồm 3 cột A, B, C. Cột A là danh sách. Cột B từ user từ danh sách. Cột C là User hoàn chỉnh.
+Để có User của cột B tôi dùng một hàm tự tạo từ VBA với đoạn code sau:
______________________________
Function User(i As String) As String
Dim j As Double, ten As String, ho As String
Do While Right(i, 1) <> " "
ten = Right(i, 1) & ten
i = Left(i, Len(i) - 1)
Loop
i = Trim(i)
ho = Left(i, 1)
For j = 2 To Len(i)
If Mid(i, j, 1) = " " Then
ho = ho & Mid(i, j + 1, 1)
End If
Next j
User = LCase(ten) & LCase(ho) & "@yahoo.com" ' Phan phia sau "@" tuy cac anh chi chon. "@yahoo.com" chi lay lam vi du
End Function
___________________________
Sau khi tạo code nhập vào ô B1: "=User(A1)" và copy xuống các ô còn lại của cột B.
+ Một số trường hợp trùng họ tên hoặc trùng tên và chữ cái đầu của họ và tên lót nên user sẽ trùng nhau. Vì vậy tôi tạo cột C là user hoàn chỉnh như sau: nếu User xuất hiện lần thứ 2 thì tự động thêm số 2 vào User ở cột B. Công thức ô C1 như sau: "=IF(COUNTIF(B$1:B1,B1)>1,LEFT(B1,FIND("@",B1,1)-1)&COUNTIF(B$1:B1,B1)&"@yahoo.com",B1)".
Các anh chị tham khảo file đính kèm và góp ý để tôi có điều kiện học hỏi thêm nhé.
Cảm ơn các anh chị
Tôi xin gửi đến các anh chị tập tin để tạo User email từ họ và tên của một danh sách nhân viên.
Trong đó gồm 3 cột A, B, C. Cột A là danh sách. Cột B từ user từ danh sách. Cột C là User hoàn chỉnh.
+Để có User của cột B tôi dùng một hàm tự tạo từ VBA với đoạn code sau:
______________________________
Function User(i As String) As String
Dim j As Double, ten As String, ho As String
Do While Right(i, 1) <> " "
ten = Right(i, 1) & ten
i = Left(i, Len(i) - 1)
Loop
i = Trim(i)
ho = Left(i, 1)
For j = 2 To Len(i)
If Mid(i, j, 1) = " " Then
ho = ho & Mid(i, j + 1, 1)
End If
Next j
User = LCase(ten) & LCase(ho) & "@yahoo.com" ' Phan phia sau "@" tuy cac anh chi chon. "@yahoo.com" chi lay lam vi du
End Function
___________________________
Sau khi tạo code nhập vào ô B1: "=User(A1)" và copy xuống các ô còn lại của cột B.
+ Một số trường hợp trùng họ tên hoặc trùng tên và chữ cái đầu của họ và tên lót nên user sẽ trùng nhau. Vì vậy tôi tạo cột C là user hoàn chỉnh như sau: nếu User xuất hiện lần thứ 2 thì tự động thêm số 2 vào User ở cột B. Công thức ô C1 như sau: "=IF(COUNTIF(B$1:B1,B1)>1,LEFT(B1,FIND("@",B1,1)-1)&COUNTIF(B$1:B1,B1)&"@yahoo.com",B1)".
Các anh chị tham khảo file đính kèm và góp ý để tôi có điều kiện học hỏi thêm nhé.
Cảm ơn các anh chị
