Nhờ giúp thiết kế Sổ theo dõi cửa hàng sửa chữa xe máy nhỏ

[hahajura]

Chẳng là e có Ông anh làm sửa chữa xe máy.
Ông ây nhờ lem thiết kế cho cái sổ để theo dõi sửa chữa như sau:

Biển số, ngày sửa xe, các mục tên hàng, số lượng, đơn giá, khuyến mại, thành tiền
Khi cần kiểm tra xem khách đấy có phải là khách quen thì chỉ cần nhập biển số xe và tìm kiếm thì sẽ liệt kê chi tiết tất cả các lần sửa của xe đó tại cửa hàng.

Ông ấy nhờ khá lâu rồi, nhưng em nghĩ mãi mà không biết làm kiểu gì được!
Mong Các cao thủ trợ giúp

Xin chân thành Cảm ơn!

 

[hahajura]

Mong mọi người nghiên cứu giúp

 

[hahajura]

hic hic không có ai giúp mình à?

 

[phucbugis]

chào bạn, cho mình hỏi:

- Tên hàng có cần phải chia theo nhóm ko?
- Phiếu sửa chữa có cần điền thông tin của khách hàng (Tên khách hàng, số điện thoại ...) ?
- còn quy luật biển số xe thì mình định tách làm 2 ô (ô 1: vùng, ô 2: là số)?



- File bạn mình định bố trí thành 3 sheet:
Danhsach -> chứa tên hàng, đơn giá
NhapLieu -> làm Phiếu sửa chữa
LuuTru -> số liệu của sheet NhapLieu sẽ được lưu ở đây.

'- - -
bạn có yêu cầu nào muốn thêm nữa ko?

 

[hahajura]

Cảm ơn bạn rất nhiều, các mục tên hàng, đơn giá, biển số để tự nhập thủ công cũng được (Bởi vì cửa hàng nhỏ lẻ nên chỉ sửa trong 1 vùng xung quanh thôi.
Vì là cửa hàng nhỏ nên đơn giá là không cố định (ví dụ như tùy từng khách, có thể khách quen thì sẽ giá sẽ thấp hơn, và một số khách thì giá cao hơn) Miễn làm sao đến lúc muốn tìm kiếm thì chỉ cần nhập biển số xe vào là tổng hợp được ngày nào xe này đã sửa ở cửa hàng và sửa những gì!
Mục đích chính là để theo dõi xem khách nào đã từng sửa ở đây và cộng tiền tự động thôi, chứ không cần phải phức tạp.
còn phần thông tin khách hàng nếu có họ tên số điện thoại thì càng tốt, còn không thì chỉ cần biển số xe là được.
Một lần nữa cảm ơn bạn rất nhiều, mong được bạn giúp đỡ!

 

[phucbugis]

Cảm ơn bạn rất nhiều, các mục tên hàng, đơn giá, biển số để tự nhập thủ công cũng được (Bởi vì cửa hàng nhỏ lẻ nên chỉ sửa trong 1 vùng xung quanh thôi.
Vì là cửa hàng nhỏ nên đơn giá là không cố định (ví dụ như tùy từng khách, có thể khách quen thì sẽ giá sẽ thấp hơn, và một số khách thì giá cao hơn) Miễn làm sao đến lúc muốn tìm kiếm thì chỉ cần nhập biển số xe vào là tổng hợp được ngày nào xe này đã sửa ở cửa hàng và sửa những gì!
Mục đích chính là để theo dõi xem khách nào đã từng sửa ở đây và cộng tiền tự động thôi, chứ không cần phải phức tạp.
còn phần thông tin khách hàng nếu có họ tên số điện thoại thì càng tốt, còn không thì chỉ cần biển số xe là được.
Một lần nữa cảm ơn bạn rất nhiều, mong được bạn giúp đỡ!

- bạn tải file đính kèm về xem nhé, cho chạy Macro !
(hehe, nếu ko phức tạp lần đầu thì các lần sau khó mà khoẻ được ... )

Link: https://www.mediafire.com/?pryqjot8djsaboi

 

[hahajura]

Tại sao khi sửa chữa thông tin như biển số hoặc tên, hoặc hàng hóa thì có lúc được có lúc lại toàn bị lỗi bạn nhỉ?
Lỗi: Run-time error "6" Overflow
và nếu như mình lưu nhầm hóa đơn thì xóa bình thường hay như thế nào
Cảm ơn vì tinh thần giúp đỡ, giúp cho chót nhé

 

[phucbugis]

Tại sao khi sửa chữa thông tin như biển số hoặc tên, hoặc hàng hóa thì có lúc được có lúc lại toàn bị lỗi bạn nhỉ?
Lỗi: Run-time error "6" Overflow
và nếu như mình lưu nhầm hóa đơn thì xóa bình thường hay như thế nào
Cảm ơn vì tinh thần giúp đỡ, giúp cho chót nhé

hic,
- mình đã thử trên 2 phiên bản 2003 và 2013 + thao tác hàng chục lần --> chẳng mò được lỗi đó .
- cụ thể thác tác nào vậy bạn, nó báo lỗi ở dòng code nào?

 

[hahajura]

Mình thử rồi, nhưng không hiểu sao, có lúc bị lỗi, có lúc lại thấy chạy bình thường
lỗi như ảnh mình gửi kèm

 

[phucbugis]

Mình thử rồi, nhưng không hiểu sao, có lúc bị lỗi, có lúc lại thấy chạy bình thường
lỗi như ảnh mình gửi kèm

hehe,

mình đã xem 2 Pic đó --> vẫn chưa hiểu là lỗi nằm do thao tác nào mà nó bị như vậy.

Lỗi số 1: Lúc bị lúc ko,
- bạn tạm thời điều chỉnh Sub DemBienSoXe() như sau: di chuyển đoạn On Error GoTo Stop1 lên trên đoạn Arr = Sheets("LuuTru").Range("B5:F65000")
Sub đó sẽ trở thành:

Sub DemBienSoXe() 'ho~ tro. su* kien Worksheet_Change tai sheet NhapLieu
Dim dic As Object, obj As Object
Dim Arr As Variant, i As Long

    Set dic = CreateObject("Scripting.Dictionary")
    Set obj = ActiveSheet.Shapes("solanKHdensua")

[COLOR=#ff0000]On Error GoTo Stop1[/COLOR]
    Arr = Sheets("LuuTru").Range("B5:F65000")
    
    For i = 1 To UBound(Arr)
    If Not IsEmpty(Arr(i, 1)) And Not dic.exists(Arr(i, 1)) Then 'ko add trung`
        If Arr(i, 4) = Range("C5") And Arr(i, 5) = Range("C6") Then
            dic.Add Arr(i, 1), Nothing
        End If
    End If
    Next
    
    obj.TextFrame.Characters.Text = Application.WorksheetFunction.CountA(dic.keys)
    GoTo Thoat
Stop1:
    obj.TextFrame.Characters.Text = ","
Thoat:
    Set dic = Nothing: Set obj = Nothing: Set Arr = Nothing
End Sub

Lỗi số 2: xuất hiện 2 lần cùng 1 nội dung
có thể do bạn đã bấm 2 lần nút Lưu, đối với code cho nút Lưu do mình chưa cài điều kiện trùng.

'- - - - -
- bạn cứ thử tiếp, xem còn có yêu cầu nào cần thêm vào nữa ko ?
- xem qua ảnh, hình như bạn đang dùng Excel 2003 , nếu có thể bạn thử file đó ở các phiên bản Excel 2007, 2010, 2013 xem sao?