add giá vật tư

[AnhTuan-Hacinco]

Cột sheet2 mình có cột tên vật tư và giá vật tư
bây giờ ở sheet1 cũng có cột tên vật tư và cột giá vật tư

Mình muốn nhập vật tư vào cột tên vật tư thì cột giá vật tư sẽ tự động nhập giá của vật tư đó mà nếu định dạng tên khác không phải tên vật tư thì không chạy.

Mình định dùng vlookup ở cột giá vật tư và combobox ở cột nhập tên vật tư nhưng do trình độ có hạn vẫn chưa biết cách làm và không biết có cách nào khác hay hơn không.

Kính nhờ cao kiến của các cao thủ.

 

[cadafi]

Cột sheet2 mình có cột tên vật tư và giá vật tư
bây giờ ở sheet1 cũng có cột tên vật tư và cột giá vật tư

Mình muốn nhập vật tư vào cột tên vật tư thì cột giá vật tư sẽ tự động nhập giá của vật tư đó mà nếu định dạng tên khác không phải tên vật tư thì không chạy.

Mình định dùng vlookup ở cột giá vật tư và combobox ở cột nhập tên vật tư nhưng do trình độ có hạn vẫn chưa biết cách làm và không biết có cách nào khác hay hơn không.

Yêu cầu này dùng Validation với Name động và Vlookup là được! Bạn xem file đính kèm.

 

[AnhTuan-Hacinco]

Yêu cầu này dùng Validation với Name động và Vlookup là được! Bạn xem file đính kèm.

Cảm ơn bạn rất nhiều. file rất đúng ý mình.
Chúc bạn thành công trong cuộc sống.

Mình có câu hỏi thêm là:

làm thế nào để điều chỉnh độ dài, rộng của khung list vừa tạo.

 

[ndu96081631]

Mình có câu hỏi thêm là:

làm thế nào để điều chỉnh độ dài, rộng của khung list vừa tạo.

- Độ rộng của list thì phụ thuộc vào độ rộng của cột --> Nới rộng cột ra thì độ rộng của list cũng mở rộng theo
- Độ dài của List: Không có cách chỉnh ---> Nếu muốn, chỉ còn cách dùng ComboBox mà thôi ---> Xem file đính kèm ---> Hãy chỉnh sửa lại thêm nếu chưa đúng yêu cầu

 

[Lệnh Hồ Đại Hiệp]

Bác Ndu cải tiến thêm chút nữa :
- Khi nhấn các mũi tên lên, xuống, phải, trái thì các Cell được chọn sẽ chạy theo
- Khi các Cell được chọn đã có giá trị thì Combobox sẽ lấy giá trị đó
- Khi nhấn nút Del thì giá trị của Cell hiện tại và các Cell liên quan sẽ bị xóa đi

--CV--

 

[ndu96081631]

Bác Ndu cải tiến thêm chút nữa :
- Khi nhấn các mũi tên lên, xuống, phải, trái thì các Cell được chọn sẽ chạy theo
- Khi các Cell được chọn đã có giá trị thì Combobox sẽ lấy giá trị đó
- Khi nhấn nút Del thì giá trị của Cell hiện tại và các Cell liên quan sẽ bị xóa đi

--CV--

Vâng! Các tính năng đó tôi có nghĩ qua, nhưng mà:
- Làm vội, chưa có thời gian cài tiến
- Muốn cho code ngắn gọn để các bạn dể theo dỏi (cái này quan trọng nhất)
- Khi các bạn có nhu cầu cải tiến, mình cập nhật code thì đồng thời các bạn cũng "ngộ" ra được rất nhiều thứ (hơn là làm 1 lần hoàn chỉnh thì chẳng biết đâu mà lần)
===> Vậy các bạn cứ xài, có yêu cầu cải tiến ta sẽ bàn tiếp nhé
(Nhớ lại ngày trước, mấy đoạn code của sư phụ thường làm tôi choáng váng... Ẹc... Ẹc...)
--------------------
Ah... riêng phần này:

- Khi nhấn các mũi tên lên, xuống, phải, trái thì các Cell được chọn sẽ chạy theo

Nhờ sư phụ làm giúp (tôi không biết)

 

[Lệnh Hồ Đại Hiệp]

Vâng! Các tính năng đó tôi có nghĩ qua, nhưng mà:
- Làm vội, chưa có thời gian cài tiến
- Muốn cho code ngắn gọn để các bạn dể theo dỏi (cái này quan trọng nhất)
- Khi các bạn có nhu cầu cải tiến, mình cập nhật code thì đồng thời các bạn cũng "ngộ" ra được rất nhiều thứ (hơn là làm 1 lần hoàn chỉnh thì chẳng biết đâu mà lần)
===> Vậy các bạn cứ xài, có yêu cầu cải tiến ta sẽ bàn tiếp nhé
(Nhớ lại ngày trước, mấy đoạn code của sư phụ thường làm tôi choáng váng... Ẹc... Ẹc...)
--------------------
Ah... riêng phần này:

Nhờ sư phụ làm giúp (tôi không biết)

Cái này của Tuân đại hiệp :

Hiện nay khi đặt con trỏ vào vùng validation thì tự động bật list chọn. Để đóng lại, người dùng phải dùng chuột nháy sang ô bên cạnh. Vậy để tăng sự tiện dụng, khi hiện List chọn, nhấn phím Tab-không chọn; Enter-chọn thì con trỏ nhảy sang cột bên cạnh (cùng dòng).

Có thể nghiên cứu, nếu người dùng không dùng chuột để chọn giá trị mà dùng bàn phím (các phím mũi tên để chọn, phím Enter để nhận).

Can thiệp vào bán phím, dùng thủ tục

Private Sub CBViDu_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

'KeyCode:
'38 = Mui ten len tren
'40 = Mui ten xuong duoi
'37 = Mui ten sang trai
'39 = Mui ten sang phai
'9 = Phim Tab
'13 = Phim Enter
'27 = Phim ESC

-- Chúc vui--