Nhờ hỗ trợ Macro của file Quản lý cửa hàng bán lẻ dạng cực đơn giản (1 người xem)

[nonut]

Dear các bác, đầu tiên mình xin trình bày như sau:

Nhà mình có mở 1 cửa hàng tạp hóa nho nhỏ có vài chục sản phẩm, phần mềm miễn phí nhiều nhưng phức tạp quá, mình chỉ cần rất rất đơn giản thôi (xin download file đính kèm, đã sửa tên sheet thành tiếng Việt không dấu). Mã sản phẩm đọc bằng BarCode nên hơi dài, không ảnh hưởng tới thao tác.

Các vấn đề mình muốn nhờ các bác giúp đỡ:

I/ Tạo macro ghi lại giao dịch:

1/ Tại sheet: Bán Hàng Khách Lẻ:
Sau khi nhập tên KH, Mã Hàng, số lượng, Giảm giá bán (dòng này đang bị hide)

Mình muốn tạo Macro để khi click: Ghi giao dịch lại thì dữ liệu này sẽ nhảy sang sheet Xuất Hàng, để tránh bị ấn double hoặc triple thì phải có thêm 1 cửa sổ, điền vào chữ: "ok" hoặc 1 vài ký tự kiểu "mật khẩu" thì mới được phép ghi lại giao dịch

- Mã giao dịch K1 và Tên khách hàng C4 (tên người mua) tự nhảy lên các dòng D và H trong sheet Xuất Hàng (các dòng chưa có dữ liệu
- Mã hàng ở B6:B14 tự nhảy vào cột F (các dòng còn trống) trong sheet Xuất Hàng
- Số lượng cột E và Thành tiền cột H nhảy vào các cột J và K tại sheet Xuất hàng
- Tại cột H sheet Xuất Hàng: tự điền mã KL (khách lẻ)

2/ Tại Sheet Bán hàng Trả Chậm: cũng tương tự, nhưng sẽ lưu mã KH trả chậm

II/ Tạo macro để in phiếu bán hàng

Xin cám ơn các bác.

P/s: nếu bác nào có thừa khả năng nhưng không muốn giúp miễn phí thì cứ inbox cho mình báo giá. Nếu hợp lý mình sẽ trả vì macro mình nhờ cũng không phải loại đơn giản. Mồ hôi công sức của mọi người học hành cả chứ không phải tự nhiên mà giỏi.

 

[nonut]

Hic, vẫn chưa thấy cao thủ nào rảnh để giúp mình, đặt dép lót đít ngồi hóng tiếp

 

[SA_DQ]

Mình có vài í góp với bạn trong việc xây dựng CSDL nè:

Tên trang tính của bạn quá lê thê; Thay vì DMHH thì lại 'DanhMụcHàng'; Nội chuyện này cũng tốn không ít thời gian của bạn để gõ chữ rồi; Những mong bạn gõ xong thì khách hàng vẫn còn đợi bạn trong giao dịch.

Vấn đề tiếng Việt có dấu không nên xài trong các tên trang tính. Nhất là bạn đang bước vô VBA. Ví dụ 'Nhap' thay cho 'NhậpHàng',. . .

Vài lời ngõ hầu bạn không giận!


Mã mặt hàng của bạn dài hơn cả tên (!) Vậy thì riêng chuyên này mã làm gì cho mệt; cứ tên mà wính còn tượng hình hơn mấy con số vô tri vô giác kia!
Mã để tăng tốc độ truy xuất, tìm kiếm cũng như đỡ gõ nhằm; Vì vậy mình thấy mọi người hay xài ngắn gọn, xúc tích

Theo mình thì LB00 => Bia 333; LB01 chỉ ra loại bia Sài gòn xanh, . . .
LN00 => nước tinh khiết V; LN01 nước ngọt Chương dương giả dụ,. . .
LR01 đế Gò đen; LR03 Đế Làng Vân,. .
. . . .

 

[le_vis]

Vấn đề mã và tên trang tính bạn HYen17 đã góp ý với bạn rồi
Theo tôi : Nên thiết kế theo dạng nhập liệu vào Form => Lưu dữ liệu vào Data => xuất dữ liệu ra Phiếu nhập, phiếu xuất . Đồng thời kết chuyển sang các báo cáo mình cần
- Như vậy để cho gọn ta bố trí 03 Form (Nhập - Xuất - Thu chi); Dữ liệu được lưu lại trong 03 trang Data.

Hỏi thêm bạn : Khách công nợ TK131 nhiều hay ít;TK331 có không nhiều hay ít, Hàng hóa có tới khoảng 1000 mã hàng không ? gồm bao nhiêu nhóm hàng ví dụ : Nhóm bánh, Nhóm bia, Nhóm Rượu, Nhóm kẹo .... phải xác định nhóm trước khi đặt mã sẽ tiện cho việc lọc tìm kiếm sau này bạn ạ
Tôi cũng chỉ vọc vạch đôi chút và qua thực tế làm việc nên có Mấy lời cùng bạn - Chúc thành công

 

[nonut]

Mình xin ghi nhận tất cả các góp ý của 2 bạn, mình đã sửa lại toàn bộ tên thành tiếng Việt không dấu hết để có thể dùng VBA và reup lên post trên cùng.

Còn mã hàng là máy quét đọc bạn ạ. Barcode scanner nên bạn khỏi phải lo, dài ngắn ko thành vấn đề, tất cả hàng mình bán đều có mã vạch hết.

Tiện đây hỏi luôn là bạn nào có danh mục các sản phẩm bằng mã vạch sẵn thì share cho mình database luôn với, đỡ phải gõ lại các loại sản phẩm thông dụng.

 

[SA_DQ]

Bạn thử nghiệm với macro đầu tiên & cho í kiến sau đó, nha.

 

[nonut]

Bạn thử nghiệm với macro đầu tiên & cho í kiến sau đó, nha.

Cám ơn bạn, chỉ còn 2 chỗ mình muốn nhờ bạn làm cho là perfect rồi:

1/ Add thêm tên người mua và Mã người mua nữa là đủ: Tên người mua lấy từ Cell C4, Mã người mua thì lấy ký tự "KL" (khách lẻ) là xong.
2/ Bạn kết hợp với Macro "Xóa Dữ Liệu" của mình đã viết sẵn thì sẽ xóa hết thông tin mặt hàng. Chứ như hiện tại thì chỉ xóa khoảng 50% dữ liệu, còn mã hàng, giảm giá hàng bán, tên khách hàng và số tiền KH đã trả vẫn chưa được xóa

Nếu bạn có có thể thì giúp mình customize luôn sheet Macro giống như vậy tại sheet Bán Hàng Trả Chậm luôn với, chỉ khác là Mã người mua sẽ lấy từ Cell F1 chứ ko phải là "KL" (khách lẻ).

Cám ơn bạn rất rất nhiều!!!

 

[SA_DQ]

Cám ơn bạn, chỉ còn 2 chỗ mình muốn nhờ bạn làm cho là perfect rồi:
1/ Add thêm tên người mua và Mã người mua nữa là đủ: Tên người mua lấy từ Cell C4, Mã người mua thì lấy ký tự "KL" (khách lẻ) là xong.
2/ Bạn kết hợp với Macro "Xóa Dữ Liệu" của mình đã viết sẵn thì sẽ xóa hết thông tin mặt hàng. Chứ như hiện tại thì chỉ xóa khoảng 50% dữ liệu, còn mã hàng, giảm giá hàng bán, tên khách hàng và số tiền KH đã trả vẫn chưa được xóa
(3) Nếu bạn có có thể thì giúp mình customize luôn sheet Macro giống như vậy tại sheet Bán Hàng Trả Chậm luôn với, chỉ khác là Mã người mua sẽ lấy từ Cell F1 chứ ko phải là "KL" (khách lẻ)!

(1) Sau dòng lệnh:

    Rng.Offset(, 2).Resize(Rws, 2).Value = [B6].Resize(Rws, 2).Value

Bạn thêm 2 dòng lệnh này vô & đừng lười đi nữa nha!

        Rng.Offset(, 4).Resize(Rws).Value = "KL"
        Rng.Offset(, 5).Resize(Rws).Value = [C4].Value

(2) Chuyện này chắc trong tầm tay của bạn mà, đừng ngại hư:

Thêm vô cuối macro của mình dòng lệnh réo gọi macro của bạn ra mà mần tiếp thôi!
(Như vậy có dòng lệnh trong macro của mình sẽ dư; Bạn vô hiệu hóa tạm thời đi vậy.

(3) Chuyện này nên giải quyết theo hướng macro cha gọi macro con & truyền cho nó tham biến nếu cần thiết; Sẽ làm nếu bạn đầu hàng chuyện này sau 18h0 chiều nay.

 

[nonut]

Ko phải lười bạn ơi, mình nói thật là mình ko biết làm. Cái macro xóa dữ liệu là mình dùng chức năng record chứ có biết cái gì đâu

Tuy nhiên, theo cách bạn ghi thì có lẽ mình sẽ làm được.

Bao giờ có bản final mình sẽ để lên đây cho ai cần thì cứ down mà dùng

Thanks bạn lần nữa!!!!

 

[SA_DQ]

Tạm thời tin bạn & xin gởi món quà này sớm đến bạn