Em đang có 1 file excel làm việc theo các nhóm khác nhau, mỗi nhóm phụ trách 1 loại số liệu riêng, để tránh nhầm lẫn thì em muốn copy file excel này vào máy tính của ai thì chỉ hiển thị số mà người đó phụ trách để tránh nhầm lẫn bằng cách lọc theo tên đăng nhập máy tính đó, nhưng em loay hoay mãi không làm sao lấy được tên ấy vào file excel. Mong các anh chị chỉ giúp ạ, em cảm ơn nhiều!
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ (3 người xem)
- Thread starter 198zxc
- Ngày gửi
Người dùng đang xem chủ đề này
thuytrangbp28
Thành viên hoạt động
- Tham gia
- 28/3/18
- Bài viết
- 174
- Được thích
- 90
- Giới tính
- Nam
Bạn thử Macro này xem
Mã:
Function GetUserName() As String
GetUserName = Environ("USERNAME")
End FunctionEm không rành về macro lắm nên anh cho em hỏi là em add vào rồi nhưng làm sao để hiển thị ra 1 ô ạ
thuytrangbp28
Thành viên hoạt động
- Tham gia
- 28/3/18
- Bài viết
- 174
- Được thích
- 90
- Giới tính
- Nam
Sau khi đưa code vào module thì ra ô nào đó nhập công thức =GetUserName() là được
vietduc147258
Thành viên mới
- Tham gia
- 18/5/16
- Bài viết
- 37
- Được thích
- 25
Lang thang trên mạng có được hàm này
Còn việc cảnh báo hay gì đó thì tùy bạn áp dụng thôi
Mã:
=MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\"))thuytrangbp28
Thành viên hoạt động
- Tham gia
- 28/3/18
- Bài viết
- 174
- Được thích
- 90
- Giới tính
- Nam
Hàm INFO độ tin cậy không cao, có lúc,đúng, có lúc không, đây là kinh nghiệm thực tế của mình
Em đã làm được, cảm ơn anh ạ
Bài đã được tự động gộp:
Em làm thử mà nó lại báo lỗi #name ạ
thuytrangbp28
Thành viên hoạt động
- Tham gia
- 28/3/18
- Bài viết
- 174
- Được thích
- 90
- Giới tính
- Nam
Đầu tiên lưu file dưới dạng xlsm bằng cách vào File -> Save as -> Chỗ Save as type làm như hình rồi bấm nút Save (Nếu file đã ở dạng xlsm thì không cần thực hiện nữa)Em làm thử mà nó lại báo lỗi #name ạ
Ở file mới lưu nhấn Alt+F11, cửa sổ mới chuột phải vào ThisWorkbook -> Insert -> Chọn Module
Copy 3 dòng code của mình ở trên dán vào cửa sổ của Module1 như hình dưới
Lưu nó lại, thoát cửa sổ VBA, ra ô nào đó của Excel gõ =GetUserName() là được
Mình viết chi tiết như vậy vì muốn góp ý với bạn nên tìm hiểu về VBA. Ít nhất cũng biết tạo file xlsm, tạo Module và đưa code vào, hiểu Function, Sub là gì và cách để chạy nó. Vì trên diễn đàn này (và cả các nhóm khác) sẽ nhiều khi bạn được hỗ trợ bằng VBA, nếu không biết sẽ rất bất tiện cho bạn, thậm chí gây ức chế cho người hỗ trợ vì đã mất công viết ra nhưng không được bạn tiếp nhận đúng cách
Lần chỉnh sửa cuối:
