Ví dụ ListBox lọc đối tượng (1 người xem)

[lasxd15492018]

Mọi người cho em hỏi. code của em bị lỗi là sao ạ. Em kiểm tra mà không biết sao lại bị lỗi.. em cảm ơn ạ !

 

[be_09]

Mọi người cho em hỏi. code của em bị lỗi là sao ạ. Em kiểm tra mà không biết sao lại bị lỗi.. em cảm ơn ạ !

Góp ý cho bạn:
Cần làm cái gì thì nêu cụ thể vấn đề muốn làm và nên đính kèm File với tiêu đề thực tế (đầy đủ), người ta xem tiêu đề thì sẽ hiểu bạn mốn làm cái gì, ở đâu và sẽ cho bạn 1 giải pháp hoặc làm giúp.

Còn muốn Copy cái gì, ở đâu từ chỗ nào qua chỗ nào thì người ta làm cách khác nhanh, gọn, lẹ và có thể copy bất cứ tiêu chí nào. Chứ không ai đi làm cái UserForm chỉ có nhiệm vụ Copy khi phải chọn vùng vừa tốn công lại vừa tốn sức.

 

[♫ђöล♥ßล†♥†µ♫]

Mọi người cho em hỏi. code của em bị lỗi là sao ạ. Em kiểm tra mà không biết sao lại bị lỗi.. em cảm ơn ạ !

Đúng là xem xong không biết nó là cái gì
Mà sao lại có cái dòng lệnh này được

Sheets("sheet2") = Cells(row, 2)

 

[be_09]

Đúng là xem xong không biết nó là cái gì
Mà sao lại có cái dòng lệnh này được

Sheets("sheet2") = Cells(row, 2)

Không riêng gì dòng đó, mà cả cái đống code đó là thừa.

 

[lasxd15492018]

Góp ý cho bạn:
Cần làm cái gì thì nêu cụ thể vấn đề muốn làm và nên đính kèm File với tiêu đề thực tế (đầy đủ), người ta xem tiêu đề thì sẽ hiểu bạn mốn làm cái gì, ở đâu và sẽ cho bạn 1 giải pháp hoặc làm giúp.

Còn muốn Copy cái gì, ở đâu từ chỗ nào qua chỗ nào thì người ta làm cách khác nhanh, gọn, lẹ và có thể copy bất cứ tiêu chí nào. Chứ không ai đi làm cái UserForm chỉ có nhiệm vụ Copy khi phải chọn vùng vừa tốn công lại vừa tốn sức.

em đang học cái userfrom. đây chỉ là ví dụ để em làm cho thành thạo thôi.. em viết theo Bài tập trong sách thì bị lõi

Bài đã được tự động gộp: 12/6/18

Đúng là xem xong không biết nó là cái gì
Mà sao lại có cái dòng lệnh này được

Sheets("sheet2") = Cells(row, 2)

em đang học cái userfrom. đây là bài tập trong sách. em làm theo thì bị lỗi.

 

[♫ђöล♥ßล†♥†µ♫]

em đang học cái userfrom. đây chỉ là ví dụ để em làm cho thành thạo thôi.. em viết theo Bài tập trong sách thì bị lõi

Bài đã được tự động gộp: 12/6/18

em đang học cái userfrom. đây là bài tập trong sách. em làm theo thì bị lỗi.

Sách nào mà viết vậy hả tời. Thế thì bỏ quển sách đó đi vào GPE mà học

 

[lasxd15492018]

Sách nào mà viết vậy hả tời. Thế thì bỏ quển sách đó đi vào GPE mà học

Sách của tác giả Phan Tự Hướng. em thấy đọc sách này hay mà. nhưng cái vị dụ này không biết sao bị lỗi ở chỗ code đó.. Bac có cách khác sửa không. sửa hộ em với.

 

[be_09]

em đang học cái userfrom. đây chỉ là ví dụ để em làm cho thành thạo thôi.. em viết theo Bài
tập trong sách thì bị lỗi............................em đang học cái userfrom. đây là bài tập trong sách. em làm theo thì bị lỗi.

Học theo sách chỉ là cái cơ bản, còn thực tế có thể ứng biến theo từng công việc.

Theo tôi, một cách học nhanh nhất là căn cứ vào File thực tế (File trên chỉ là giả định khi bạn áp dụng vào thực tế là cả một vấn đề khác) và trước mắt bạn hỏi cái cần thiết. Nội dung công việc thực tế thì bạn đã nằm lòng, việc còn lại là xem cách người ta vận hành code thế nào, sau đó tự ứng biến thêm và tự hỏi, tại sao cũng code như thế nhưng sửa chỗ này nó ra kết quả khác, sửa chỗ kia nó ra kết quả khác, khi đã hiểu cách vận hành thì tự khắc sẽ thuộc nằm lòng cách làm.

 

[♫ђöล♥ßล†♥†µ♫]

Sách của tác giả Phan Tự Hướng. em thấy đọc sách này hay mà. nhưng cái vị dụ này không biết sao bị lỗi ở chỗ code đó.. Bac có cách khác sửa không. sửa hộ em với.

Thầy @PhanTuHuong mà biết bạn làm như vậy thì thể nào Thầy cũng mắng cho bạn 1 trận cũng nên . Bạn thử mô tả ý tưởng xem sao

 

[lasxd15492018]

Thầy @PhanTuHuong mà biết bạn làm như vậy thì thể nào Thầy cũng mắng cho bạn 1 trận cũng nên . Bạn thử mô tả ý tưởng xem sao

ý tưởng của em là. lọc vài tên trong danh dách cột A rồi chuyển danh sách sang cột D . thì e đang học mà. Sai lỗi cũng bình thường thì mới hỏi mọi người mà..

Bài đã được tự động gộp: 12/6/18

Học theo sách chỉ là cái cơ bản, còn thực tế có thể ứng biến theo từng công việc.

Theo tôi, một cách học nhanh nhất là căn cứ vào File thực tế (File trên chỉ là giả định khi bạn áp dụng vào thực tế là cả một vấn đề khác) và trước mắt bạn hỏi cái cần thiết. Nội dung công việc thực tế thì bạn đã nằm lòng, việc còn lại là xem cách người ta vận hành code thế nào, sau đó tự ứng biến thêm và tự hỏi, tại sao cũng code như thế nhưng sửa chỗ này nó ra kết quả khác, sửa chỗ kia nó ra kết quả khác, khi đã hiểu cách vận hành thì tự khắc sẽ thuộc nằm lòng cách làm.

Cảm ơn bác góp ý. em đang mới học những cái cơ bản mà. kia cũng là bài bài tập giả định để em làm theo ..

 

[PhanTuHuong]

Sách tôi không có dòng lệnh bạn gạch chân đó nhé, dữ liệu thêm vào list phải đứng sau AddItem chứ.

 

[batman1]

Sách của tác giả Phan Tự Hướng. em thấy đọc sách này hay mà. .

Nhưng sách chỉ có những ví dụ cụ thể, người đọc học thuộc lòng như vẹt hay có trình bày khái niệm đối tượng, hình dung được "cấu trúc" về mặt đối tượng của tập tin, các tập tin, cách truy cập tới từng đối tượng cụ thể?

Lập trình tương tác với bảng tính là và chỉ là:" truy cập tới đối tượng cần quan tâm rồi gọi phương thức, đọc và ghi thuộc tính của nó". Thế thôi và chỉ thế thôi.

Vd. sau khi đọc xong sách thì người đọc có hiểu Sheets("sheet2") là cái gì không? Có hiểu được "a = b" ý nghĩa là gì không? Nếu vẫn không biết đó là gì thì sách đã không nói tới. Mà đó là cơ bản.

Bài đã được tự động gộp: 14/6/18

Sách tôi không có dòng lệnh bạn gạch chân đó nhé, dữ liệu thêm vào list phải đứng sau AddItem chứ.

Nếu sau AddItem không có gì thì trong ListBox sẽ là dòng trống - thêm mục có giá trị là chuỗi rỗng. Tức không đúng ý tác giả, nhưng về phương diện code không phải là lỗi.

Thậm chí có bê dòng dưới lên trên thì cũng vẫn sẽ có lỗi. Vì lỗi chính ở đoạn

Sheets("sheet2") = Cells(row, 2)

@lasxd1549201:

Thực ra về phương diện code thì lỗi không ở dòng AddItem.
Bạn hãy thay bằng code

Private Sub UserForm_Initialize()
    Dim row As Integer
    For row = 2 To 17
    UserForm3.ListDanhsach.AddItem "Them de cho co muc khong bi rong"
    Sheets("sheet2") = Cells(row, 1)
    Next
End Sub

Thì lỗi vẫn y nguyên. Vì về mặt code thì chỉ có dòng Sheets("sheet2") = Cells(row, 1) là lỗi.

Nhưng chắc là tôi đoán được dụng ý, tức

Private Sub UserForm_Initialize()
    Dim row As Integer
    For row = 2 To 17
    UserForm3.ListDanhsach.AddItem Sheets("sheet2").Cells(row, 2)
    Next
End Sub

Lưu ý: có lẽ là Cells(row, 2) chứ không Cells(row, 1) vì dữ liệu của bạn ở cột B. Bạn cũng có thể viết Cells(row, "B"). Dễ đọc hơn rất nhiều.

 

[lasxd15492018]

vâng. em cảm ơn ạ. em cũng mò mò ra được rồi ạ. cảm ơn mọi người ạ