Xin chỉ giáo form nhập liệu trong excel (1 người xem)

[tuanvd]

Tôi có file đính kèm muốn nhờ các cao thủ sửa giúp cho tôi theo các yêu cầu như sau (cao thủ nào sửa giúp sẽ được giảm giá 10% khi mua hàng tại shop quần áo Made in Việt Nam 15 Nguyễn Quý Đức-Thanh Xuân-Hà Nội)
1. tại sheet Data:
Có thể dùng form nhập hoặc không cần, khi nhập mã nếu mã đó đã có thì thông báo là đã tồn tại và không cho nhập nữa.
2. Tại sheet Ban hang:
Nhấn tổ hợp phím Ctrl+m để mở form bán hàng(đã làm)
Khi nhập mã thì bên cột tên chủng loại sẽ lấy tên tương ứng với mã bên sheet Data(thực hiện luôn mình dùng hàm vlookup thì sau khi nhập mã nhấn ctrl+s thì tên chủng loại mới trả lại đúng tên).
Cao thủ nào có thể sửa giúp mình trong form ban hang thì ô số lượng chỉ cho nhập số và khi nhập mã nó sẽ trả lại tên chủng loại ngay tức thì.
Chân thành cảm ơn.

 

[Let'GâuGâu]

Tôi có file đính kèm muốn nhờ các cao thủ sửa giúp cho tôi theo các yêu cầu như sau (cao thủ nào sửa giúp sẽ được giảm giá 10% khi mua hàng tại shop quần áo Made in Việt Nam 15 Nguyễn Quý Đức-Thanh Xuân-Hà Nội)
1. tại sheet Data:
Có thể dùng form nhập hoặc không cần, khi nhập mã nếu mã đó đã có thì thông báo là đã tồn tại và không cho nhập nữa.
2. Tại sheet Ban hang:
Nhấn tổ hợp phím Ctrl+m để mở form bán hàng(đã làm)
Khi nhập mã thì bên cột tên chủng loại sẽ lấy tên tương ứng với mã bên sheet Data(thực hiện luôn mình dùng hàm vlookup thì sau khi nhập mã nhấn ctrl+s thì tên chủng loại mới trả lại đúng tên).
Cao thủ nào có thể sửa giúp mình trong form ban hang thì ô số lượng chỉ cho nhập số và khi nhập mã nó sẽ trả lại tên chủng loại ngay tức thì.
Chân thành cảm ơn.

Tôi thấy cái Form bất tiện quá, nên bỏ rồi,,,,,,
ở sheet bán hàng, bạn cứ việc chọn Mã hàng ở cột A, nó sẻ lấy số liệu bên sheet data qua cho bạn

------------
p/s, nếu thấy ưng ý thì thông báo sớm nha, để tôi còn book vé máy bay ra HN mua hàng giảm giá..........hihihih

 

[tuanvd]

Cám ơn bạn Let'GâuGâu
OK bạn lúc nào cũng wellcome bạn
Nhưng mình còn mấy vấn đề mong bạn giúp.
1. Sheet Data: mỗi lần chọn mã hàng bên sheet bán hàng, sau đó sang sheet Data mà nhấn ctrl+s(hoặc nhấn nút save) lúc này nó sẽ paste như trong sheet Data.
2. Sheet Data: khi nhập số lượng thì cột số lượng(là tổng số hàng các ngày nhập)không tự động nhảy số mà phải nhấn ctrl+s thì nó mới nhảy số lượng tổng.
3.Sheet Ban hang: khi nhập số lượng mua thì cột thành tiền không tự động nhảy số, tương tự với cột số tiền giảm giá cũng vậy, phải nhấn ctrl+s thì nó mới trả lại kết quả đúng.
Rất mong nhận được sự giúp đỡ của bạn.
Trân trọng

 

[Let'GâuGâu]

Cám ơn bạn Let'GâuGâu
OK bạn lúc nào cũng wellcome bạn
Nhưng mình còn mấy vấn đề mong bạn giúp.
1. Sheet Data: mỗi lần chọn mã hàng bên sheet bán hàng, sau đó sang sheet Data mà nhấn ctrl+s(hoặc nhấn nút save) lúc này nó sẽ paste như trong sheet Data.
2. Sheet Data: khi nhập số lượng thì cột số lượng(là tổng số hàng các ngày nhập)không tự động nhảy số mà phải nhấn ctrl+s thì nó mới nhảy số lượng tổng.
3.Sheet Ban hang: khi nhập số lượng mua thì cột thành tiền không tự động nhảy số, tương tự với cột số tiền giảm giá cũng vậy, phải nhấn ctrl+s thì nó mới trả lại kết quả đúng.
Rất mong nhận được sự giúp đỡ của bạn.
Trân trọng

thiệt ra thì tôi ko làm gì với sự kiện before save, nhưng đúng là mỗi lần save là có macro chạy???
----------------------------------------

Không rỏ lắm như hình như có vấn đề khi tôi sử dụng listfillrange là name.

còn ba có vụ nó ko tính toán, khi save thì nó mới tính là do file của bạn để ở chế độ calculate manual

 

[tuanvd]

Cám ơn bạn Let'GâuGâu nhé, file đấy ok rồi, tuy vậy vẫn còn 1 vấn đề là khi xóa một mã nào đó bên sheet Ban hang thì các thông tin tương ứng của mã hàng đó chưa bị xóa mất, vậy có cách nào để xóa thong tin của mã đó khi xóa mã hàng không?

 

[Let'GâuGâu]

Cám ơn bạn Let'GâuGâu nhé, file đấy ok rồi, tuy vậy vẫn còn 1 vấn đề là khi xóa một mã nào đó bên sheet Ban hang thì các thông tin tương ứng của mã hàng đó chưa bị xóa mất, vậy có cách nào để xóa thong tin của mã đó khi xóa mã hàng không?

chép thêm đoạn code này vào sheet1 "bán hàng",,,,,,nói trước là nó chỉ có tác dụng khi bạn xoá từng dòng thôi nha,,,,,,
muốn có tác khi xoá nhiều dòng,,,,,tui chưa làm được,hihhii--------------------

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A2:A60000]) Is Nothing And IsEmpty(Target) Then
Target.Resize(, 5).ClearContents
Target.Offset(, 6).ClearContents
End If
End Sub

 

[tuanvd]

Thanks, như vậy là ok rồi. Xin hỏi bạn ở Sài Gòn à? cho mình thong tin khi nào mình vào sài gòn sẽ hậu tạ sau.

 

[tuanvd]

Hix hix bạn Let'GâuGâu ơi, hôm nay mở ra làm việc bên sheet bán hàng, khi nhập mã thì các thông tin ở cột khác ko hiển thị, chỉ hiển thị khi chọn trong danh sách hiện ra thôi.
Mình gửi lại file bạn xem giúp mình nhé.

 

[Let'GâuGâu]

Hix hix bạn Let'GâuGâu ơi, hôm nay mở ra làm việc bên sheet bán hàng, khi nhập mã thì các thông tin ở cột khác ko hiển thị, chỉ hiển thị khi chọn trong danh sách hiện ra thôi.
Mình gửi lại file bạn xem giúp mình nhé.

sao bạn ko xài code bài #4? bài đó tôi đã sửa code nạp combobox,