Tạo lựa chọn mã hàng hoá!

[yome]

Chào anh chị GPE!
Em đang theo dõi hàng hoá kho. Em đã thiết lập được cách theo dõi trong Excel. Nhưng có vấn đề là:
Em không là sao thiết kế được khi chọn mã hàng thì sẽ có 1 list vừa mã hàng và tên hàng. Do đó mà rất khó để chọn đúng sản phẩm được (nhiều hàng quá không thể nhớ hết được các mã).
Em đã dùng Validation nhưng chỉ hiện được mã thôi.
Vậy,qua GPE, em rất mong anh/chị chỉ dùm em để em hoàn thiện chương trình quản lý hàng hoá của em.
Em cám ơn anh/chị nhiều!

 

[Hai Lúa Miền Tây]

Chào anh chị GPE!
Em đang theo dõi hàng hoá kho. Em đã thiết lập được cách theo dõi trong Excel. Nhưng có vấn đề là:
Em không là sao thiết kế được khi chọn mã hàng thì sẽ có 1 list vừa mã hàng và tên hàng. Do đó mà rất khó để chọn đúng sản phẩm được (nhiều hàng quá không thể nhớ hết được các mã).
Em đã dùng Validation nhưng chỉ hiện được mã thôi.
Vậy,qua GPE, em rất mong anh/chị chỉ dùm em để em hoàn thiện chương trình quản lý hàng hoá của em.
Em cám ơn anh/chị nhiều!

Bạn xem file đính kèm nhé.

 

[yome]

Anh domfootwear ơi! Em không hiểu chỗ này:

ActiveCell = ComboBox1.Column(0)
ActiveCell.Offset(0, 1) = ComboBox1.Column(1)
ActiveCell.Offset(0, 2) = ComboBox1.Column(2)

Anh vui lòng giải thích dùm em nhé!
Thanks

 

[ndu96081631]

Anh domfootwear ơi! Em không hiểu chỗ này:

ActiveCell = ComboBox1.Column(0)
ActiveCell.Offset(0, 1) = ComboBox1.Column(1)
ActiveCell.Offset(0, 2) = ComboBox1.Column(2)

Anh vui lòng giải thích dùm em nhé!
Thanks

Bạn không hiểu chổ Offset(x,y) hay chổ ComboBox1.Column(z)?
Kinh nghiệm của tôi: Chổ nào không hiểu thì ở 1 chừng mức nào đó ta có thể thí nghiệm, bằng cách thay số rồi rút ra kết luận
(Vì như thế mới là cơ hội để... LỚN KHÔN)

 

[yome]

Bạn không hiểu chổ Offset(x,y) hay chổ ComboBox1.Column(z)?
Kinh nghiệm của tôi: Chổ nào không hiểu thì ở 1 chừng mức nào đó ta có thể thí nghiệm, bằng cách thay số rồi rút ra kết luận
(Vì như thế mới là cơ hội để... LỚN KHÔN)

Em không hiểu chỗ ComboxBox1.Clumn(0),ComboxBox1.Clumn(1) và cả ComboxBox1.Clumn(2).

 

[ndu96081631]

Em không hiểu chỗ ComboxBox1.Clumn(0),ComboxBox1.Clumn(1) và cả ComboxBox1.Clumn(2).

Giải thích cả đóng không bằng bạn 1 lần tự mình thí nghiệm!
Đầu tiên bạn sang sheet DMHH và thêm dữ liệu vào cột C nhé, xong ta tiến hành thí nghiệm
- Trong đoạn code dưới đây:

Private Sub ComboBox1_Change()
  ActiveCell = ComboBox1.Column(0)
  ActiveCell.Offset(0, 1) = ComboBox1.Column(1)
  ActiveCell.Offset(0, 2) = ComboBox1.Column(2)
End Sub

- Bạn xóa bớt, chừa lại 1 dòng như vầy thôi:

Private Sub ComboBox1_Change()
  ActiveCell = ComboBox1.Column(0)
End Sub

- Ra bảng tính, chọn đại 1 Item trong ComboBox xem nó ra kết quả gì?
- Tiếp theo lại vào sửa lại code thành:

 Private Sub ComboBox1_Change()
   ActiveCell = ComboBox1.Column(1)
 End Sub

- Lại bảng tính, chọn đại 1 Item trong ComboBox xem nó ra kết quả gì?
- Tiếp tục sửa code trên thành:

  Private Sub ComboBox1_Change()
    ActiveCell = ComboBox1.Column(2)
  End Sub

Và... thí nghiệm tiếp
Đến đây mà còn không rút ra được kết luận gì thì... Ẹc... Ec... TÔI THUA!

 

[sealand]

Mình gủi file ví dụ của mình bạn tham khảo thêm (Mới viết cho lệnh bàn phím):
-Chỉ dòng trên có dữ liệu thì dòng dưới mới mở được.
-Cứ di chuyển vào cột là tự động mở.
-Chọn và thoát nhấn Enter.
-Thoát không chọn nhấn tab hay Esc.