Tạo user form

[Quynhau]

Anh chị xem giúp giùm em cái mã code sai gì mà em tạo user form không được.
Em cám ơn nhiều.

 

[NguyenthiH]

Hiện rồi nè bạn.

 

[SA_DQ]

Cái UserForm của bạn chưa có ListBox nào; cho nên câu lệnh báo lỗi đang đượcđánh dấu như trong macro dưới đây:

Private Sub UserForm_Activate()
    Dim lr As Long
    With Sheets("KhoCF19-20")
       lr = .Range("C" & Rows.Count).End(xlUp).Row
       arr = .Range("B7:D" & lr).Value
       ListBox1.List = arr      '?      '
    End With
End Sub

 

[Quynhau]

Cái UserForm của bạn chưa có ListBox nào; cho nên câu lệnh báo lỗi đang đượcđánh dấu như trong macro dưới đây:

Private Sub UserForm_Activate()
    Dim lr As Long
    With Sheets("KhoCF19-20")
       lr = .Range("C" & Rows.Count).End(xlUp).Row
       arr = .Range("B7:D" & lr).Value
       ListBox1.List = arr      '?      '
    End With
End Sub

Anh giúp em sửa được không ạ

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

Hiện rồi nè bạn.

Bị lỗi bạn ơi

 

[NguyenthiH]

Bạn xóa cái TextBox2 trong form đi, vẽ cái ListBox1, bỏ khoảng trắng trong tên sheet!KHOCF 19-20.

 

[Quynhau]

Bạn xóa cái TextBox2 trong form đi, vẽ cái ListBox1, bỏ khoảng trắng trong tên sheet!KHOCF 19-20.

Nó chỉ hiện 1 cột mã thôi ko hiện cột tên mặt hàng với ĐVT

 

[NguyenthiH]

Trong Properties của ListBox1 bạn cho ColumnCount = 3

 

[SA_DQ]

Anh giúp em sửa được không ạ

Bạn đang làm những điều ngược ngạo; Tại sao mình nói như vậy:
(*) Phải có dữ liệu, chí ít 1 số dòng, ta mới xây dựng Form
Trong macro Private Sub UserForm_Activate(); & khi mở Form bạn sẽ làm việc với trang tính 'KhoCF19-20'
Trong trang tính này, bạn chưa có dòng dữ liệu nào thì mình chả dám nêu vấn đề gì
Có thây cột [Tên] là mô tê gì đâu; Là tên hàng hay tên gì & tên hàng hóa thì kèm với nó & không thể thiếu được đó là mã HH

& có vẻ như trang tính này cần thiết kế lại đề xài lâu dài & không bị lỗi

Riêng mình, sẽ không thể giúp gì tiếp cho bạn với thiết kế trang tính như thế.

Nói thêm: Cột 'ĐVT' cũng cần có danh mục để lựa chọn tiện & nhanh khi nhập liệu vô Form, thế mà bạn chưa có nữa & lại bắt vô làm Form thì giống như cái kiểu sinh con rồi mới sinh cha! Xin thua với bạn luôn!

 

[Quynhau]

Trong Properties của ListBox1 bạn cho ColumnCount = 3

Hi vẫn chưa được bạn ơi, bạn sửa giùm m đc ko

Bạn đang làm những điều ngược ngạo; Tại sao mình nói như vậy:
(*) Phải có dữ liệu, chí ít 1 số dòng, ta mới xây dựng Form
Trong macro Private Sub UserForm_Activate(); & khi mở Form bạn sẽ làm việc với trang tính 'KhoCF19-20'
Trong trang tính này, bạn chưa có dòng dữ liệu nào thì mình chả dám nêu vấn đề gì
Có thây cột [Tên] là mô tê gì đâu; Là tên hàng hay tên gì & tên hàng hóa thì kèm với nó & không thể thiếu được đó là mã HH

& có vẻ như trang tính này cần thiết kế lại đề xài lâu dài & không bị lỗi

Riêng mình, sẽ không thể giúp gì tiếp cho bạn với thiết kế trang tính như thế.

Nói thêm: Cột 'ĐVT' cũng cần có danh mục để lựa chọn tiện & nhanh khi nhập liệu vô Form, thế mà bạn chưa có nữa & lại bắt vô làm Form thì giống như cái kiểu sinh con rồi mới sinh cha! Xin thua với bạn luôn!

Dạ cám ơn anh tại em mới tập làm thôi nên không rành lắm mong anh thông cảm vì đã phiền anh

 

[NguyenthiH]

Bạn xem hình

 

[be_09]

Anh chị xem giúp giùm em cái mã code sai gì mà em tạo user form không được.
Em cám ơn nhiều.

Góp ý cho bạn: Bạn đang làm ngược với quy trình.
1/ Trước tiên phải có 1 sheet chứa danh mục hàng hóa, DVT, đơn giá.
2/ Nếu không rành thì điều đầu tiên là thiết kế 1 sheet theo dõi đồng thời nêu rỏ ràng, cụ thể cái việc mình muốn làm rồi nhờ các thành viên sửa giúp cho phù hợp với cái mình muốn thực hiện.
3/ Cái cuối cùng mới đến việc nhờ các thành viên xây dựng UserForm., việc theo dõi của bạn đang theo dõi theo chiều ngang nên áp dụng cho công việc thật là khó khăn.