CHào mọi người, mình đang có một bài tập nhưng ko biết phải làm như thế nào, xin mọi người xem qua và giúp đỡ mình với. Mình muốn nhờ giúp hiểu thị dữ liệu trong cột A2:B4 lên listbox và cách để thêm mới dữ liệu mình có tạo 1 form textbox Username để nhập username mới và textbox password để nhập pass của user đó khi ấn nút insert thì sẽ thêm mới vào sheet 1 tiếp theo dòng A4. Mong mọi người giúp đở ạ, mình chân thành cám ơn ạ.
Xin giúp đỡ hiển thị dữ liệu lên listbox và thêm mới dữ liệu!! (1 người xem)
- Thread starter kimanh17
- Ngày gửi
Người dùng đang xem chủ đề này
thanchetvnt
Thành viên chính thức
- Tham gia
- 28/7/08
- Bài viết
- 73
- Được thích
- 21
Xem đúng ý chưa nhé.
Lưu ý cho lần sau: Không đặt tên file, tên sheet, tên project,... bằng tiếng Việt có dấu nhé. Nếu đặt có dấu khi bị sự cố máy tính cần khôi phục dữ lieu thì chỉ có ngồi nhìn rồi méo mặt và lau nước mắt thôi.
Upvote
0
Cám ơn bạn nhiều nha!!
Upvote
0
Xin lỗi bạn mình quên vấn đề trùng user bạn chỉ cho mình chỗ để chèn thông báo đc ko? nếu như khi nhập User bị trùng thì khi bấm nút insert hiển thị thông báo là user trùng đc ko?
Upvote
0
thanchetvnt
Thành viên chính thức
- Tham gia
- 28/7/08
- Bài viết
- 73
- Được thích
- 21
Như thế này có phải không?
Upvote
0
Đúng rồi, cám ơn bạn rất nhiều bạn cho mình hỏi thêm đoạn code này ý nghĩa là gì vậy bạn?
Mã:
Me.ListBox1.RowSource = "DMUSER"
Upvote
0
thanchetvnt
Thành viên chính thức
- Tham gia
- 28/7/08
- Bài viết
- 73
- Được thích
- 21
Hãy xem kỹ lại nhé. Biến đó được gán trực tiếp trong câu lệnh, ngay dòng trên của dòng Me.ListBox1.RowSource = "DMUSER". DMUSER là một vùng tham chiếu động có ô đầu tiên là A3, còn ô cuối cùng là ở cột B và dòng cuối cùng có dữ liệu. Hiện tại với file của bạn thì ô cuối cùng là ô B4. Tôi không biết tiếng Anh và không học về lập trình nên khó giải thích cho bạn hiểu ý nghĩa của nó. Tôi chỉ tự mò và làm nhiều thành quen thì giúp bạn thôi. Bạn cần viết code cho một việc gì đó thì có thể tôi giúp bạn được, chứ hỏi ý nghĩa của nó thì bản thân tôi cũng không biết phải trả lời thế nào. Nếu bạn vẫn muốn tôi giúp hoặc hỏi rõ hơn các vấn đề tôi giúp theo cách trả lời của người không chuyên thì có thể liên lạc bằng số điện thoại của tôi 090 172 9089.
Cảm ơn nhiều và chúc bạn thành công!
Upvote
0
Hoang2013
Thành viên gắn bó
- Tham gia
- 15/8/13
- Bài viết
- 1,622
- Được thích
- 1,597
- Giới tính
- Nam
- Nghề nghiệp
- Hưu trí
Ý nghĩa thì chưa rành lắm, nhưng nội dung của nó được dịch sang tiếng Việt là:
Lấy vùng dữ liệu có tên là 'Dmuser" đem (gán) làm nguồn cho ListBox1
(Thường các câu lệnh VBA ta nên diễn dịch từ phải sang trái như vậy
Còn vùng dữ liệu có tên 'Dmuser' đã được bài trên diễn dịch sang tiếng Việt;
Mã:
ActiveWorkbook.Names.Add Name:="DMUSER", RefersTo:=Trang_tinh1.Range(Trang_tinh1.Range("A3"), Trang_tinh1.Range("B1048576").End(xlUp))Lấy vùng dữ liệu được giới hạn bỡi 2 cột, bắt đầu từ ô A3 cho đến ô dưới cùng của cột b có dữ liệu đem gán cho nó 1 cái tên (là) 'DMUSER'
Còn sao lại thích tên 'DMUser' mà không là "GPE', 'Nga', 'Hoa', 'Liên', . . . . , thì nên hỏi chính tác giả.
Chúc tuần làm việc hiệu quả!
Upvote
0
Cám ơn bạn nhiều lắm, mình đang học excel nhưng lại đc mở rộng thêm sang vba nên chả biết tí gì.
Upvote
0
Cám ơn bạn đã giải thích chi tiết, mình có thể hiểu tương đối rồi mới bắt đầu học vba nên chả biết tí gì hết. Chúc bạn ngày mới vui vẻÝ nghĩa thì chưa rành lắm, nhưng nội dung của nó được dịch sang tiếng Việt là:
Lấy vùng dữ liệu có tên là 'Dmuser" đem (gán) làm nguồn cho ListBox1
(Thường các câu lệnh VBA ta nên diễn dịch từ phải sang trái như vậy
Còn vùng dữ liệu có tên 'Dmuser' đã được bài trên diễn dịch sang tiếng Việt;
Mình thì diễn dịch như vầy:Mã:ActiveWorkbook.Names.Add Name:="DMUSER", RefersTo:=Trang_tinh1.Range(Trang_tinh1.Range("A3"), Trang_tinh1.Range("B1048576").End(xlUp))
Lấy vùng dữ liệu được giới hạn bỡi 2 cột, bắt đầu từ ô A3 cho đến ô dưới cùng của cột b có dữ liệu đem gán cho nó 1 cái tên (là) 'DMUSER'
Còn sao lại thích tên 'DMUser' mà không là "GPE', 'Nga', 'Hoa', 'Liên', . . . . , thì nên hỏi chính tác giả.
Chúc tuần làm việc hiệu quả!
Upvote
0
Bạn ơi xin lỗi làm phiền bạn, còn 1 yêu cầu nữa là xóa tài khoản khi chọn tài khoản từ listbox thì thêm 1 button để xóa, mình đọc nhưng xót yêu cầu, nếu bạn giúp đc xin bạn giúp với còn ko đc thì ko sao dù sao cũng chân thành cám ơn bạn rất nhiều ạ.
Upvote
0
Mình tim ra cách làm rồi bạn ơi..hihi
Mò ra từ bài này
http://www.giaiphapexcel.com/diendan/threads/xóa-danh-dữ-liệut-từ-listbox.100023/
Upvote
0
thanchetvnt
Thành viên chính thức
- Tham gia
- 28/7/08
- Bài viết
- 73
- Được thích
- 21
Rất cảm ơn mọi người đã cùng quan tâm đến DMUSER. Tôi đặt DMUSER chỉ đơn giản là "danh mục người sử dụng" - tên cho vùng tham chiếu lấy dữ liệu gán cho Listbox1.Ý nghĩa thì chưa rành lắm, nhưng nội dung của nó được dịch sang tiếng Việt là:
Lấy vùng dữ liệu có tên là 'Dmuser" đem (gán) làm nguồn cho ListBox1
(Thường các câu lệnh VBA ta nên diễn dịch từ phải sang trái như vậy
Còn vùng dữ liệu có tên 'Dmuser' đã được bài trên diễn dịch sang tiếng Việt;
Mình thì diễn dịch như vầy:Mã:ActiveWorkbook.Names.Add Name:="DMUSER", RefersTo:=Trang_tinh1.Range(Trang_tinh1.Range("A3"), Trang_tinh1.Range("B1048576").End(xlUp))
Lấy vùng dữ liệu được giới hạn bỡi 2 cột, bắt đầu từ ô A3 cho đến ô dưới cùng của cột b có dữ liệu đem gán cho nó 1 cái tên (là) 'DMUSER'
Còn sao lại thích tên 'DMUser' mà không là "GPE', 'Nga', 'Hoa', 'Liên', . . . . , thì nên hỏi chính tác giả.
Chúc tuần làm việc hiệu quả!
Lần chỉnh sửa cuối:
Upvote
0
Upvote
0
