Code đánh số thứ tự có điều kiện

[LeHang.93]

Em có file như trên, giờ muốn đánh phiếu tự động thì code thế nào được, giúp em với ạ

 

[Hong.Van]

Nếu mõi năm chạy một lần thì số phiếu phải có cái gì đó để xác định năm.
Ví dụ: PT2020001 hoặc PT20.001

Thường thì em đánh số phiếu trên tháng cho dễ nhận diện và thuận lợi sau này giả sử : PT001/03

 

[LeHang.93]

Cái này tôi chưa hiểu
Không biết là bạn làm dịch vụ như thế nào?
Nhận hồ sơ các cty về làm hay lập file kế toán theo yêu cầu rồi chuyển cho họ tự làm?

Của e thuộc trường hợp nhận hồ sơ về làm. Tuy nhiên số lượng nhiều mà nhân viên kế toán không phải ai cũng biết về VBA, vậy khi họ sử dụng e cố gắng một số cái tùy biến được cho mỗi công ty mà bản thân các bạn ấy có thể sửa được

 

[Hong.Van]

Của e thuộc trường hợp nhận hồ sơ về làm. Tuy nhiên số lượng nhiều mà nhân viên kế toán không phải ai cũng biết về VBA, vậy khi họ sử dụng e cố gắng một số cái tùy biến được cho mỗi công ty mà bản thân các bạn ấy có thể sửa được

Nếu bạn nhận về làm thì:
Thì bạn phải thống nhất hệ thống kế toán như Tiền mặt là 1111 chứ không dùng 111
Trừ những cty đặc thù thì sẽ thêm gì gì ...
Bạn là đầu tàu thì bạn phải chỉnh sửa code trước khi giao cho nhân viên chứ họ làm sao biết
Nếu bạn đúng số tuổi như đã ghi trên diễn đàn thì vui lòng đừng xưng hô là "em"

 

[HieuCD]

Vẫn được ạ, nhưng trong trường hợp chuyển sang công ty mới, stk khác thì sẽ rất khó khăn cho việc update lại. Thứ 2 là dẫn đến các hàm và báo cáo

Dạ cái này dùng cho dịch vụ kế toán ạ, sau cả năm làm cuối năm chạy lại phiếu để in chứng từ ạ

Dịch vụ kế toán mà có những hạch toán với diễn giải, định khoản và loại chứng từ ngộ vậy

Thu tiền bán hàng CH Adler ngày 2/3	156	1111	nhap
Thu tiền bán hàng CH Vas CMT8 ngày 2/3	156	1111	nhap
Thu tiền bán hàng CH Cat NT ngày 2/3	131	156	xuat
Thu tiền bán hàng CH Vas CQ ngày 2/3	131	156	xuat
Thu tiền bán hàng CH Vas LVS ngày 2/3	131	156	chi
Thu tiền bán hàng CH Vas NDC ngày 2/3	131	153	xuat

 

[LeHang.93]

Cái này tôi chưa hiểu
Không biết là bạn làm dịch vụ như thế nào?
Nhận hồ sơ các cty về làm hay lập file kế toán theo yêu cầu rồi chuyển cho họ tự làm?

Vì bên e nhận hồ sơ các công ty khác về làm, nên mỗi công ty đặc thù định khoản và tk sẽ có 1 chút khác biệt. ( đôi khi số liệu cũ của kh thì tk cũng sẽ khác). Thứ 2 trình độ nhân viên kế toán mỗi người là khác nhau nên mỗi khi update công ty mới thì ko thể ngồi cài lại VBA được mà để bên ngoài cho các bạn tùy chỉnh ạ

Bài đã được tự động gộp: 23/9/20

Dịch vụ kế toán mà có những hạch toán với diễn giải, định khoản và loại chứng từ ngộ vậy

Thu tiền bán hàng CH Adler ngày 2/3	156	1111	nhap
Thu tiền bán hàng CH Vas CMT8 ngày 2/3	156	1111	nhap
Thu tiền bán hàng CH Cat NT ngày 2/3	131	156	xuat
Thu tiền bán hàng CH Vas CQ ngày 2/3	131	156	xuat
Thu tiền bán hàng CH Vas LVS ngày 2/3	131	156	chi
Thu tiền bán hàng CH Vas NDC ngày 2/3	131	153	xuat

dạ cái này e coppy làm mẫu thôi ạ, nên nội dung hơi tào lao ạ

Bài đã được tự động gộp: 23/9/20

Nếu bạn nhận về làm thì:
Thì bạn phải thống nhất hệ thống kế toán như Tiền mặt là 1111 chứ không dùng 111
Trừ những cty đặc thù thì sẽ thêm gì gì ...
Bạn là đầu tàu thì bạn phải chỉnh sửa code trước khi giao cho nhân viên chứ họ làm sao biết
Nếu bạn đúng số tuổi như đã ghi trên diễn đàn thì vui lòng đừng xưng hô là "em"

Dạ vâng, việc xử lý code lại nếu là vài chục thì ok, nếu lên tới cả trăm và đôi khi còn theo năm thì mỗi lần giao lại sửa thì ko đủ thời gian. Mình đã update nhập dữ liệu nhanh rồi, kế toán chỉ cần tùy biến bên ngoài thì nó tự động hiện loại phiếu vào sổ ghi.
Ngoài ra việc bổ sung loại nghiệp vụ rất có lợi cho việc tích hợp lập sổ NXT cho bên mình

 

[HieuCD]

Vì bên e nhận hồ sơ các công ty khác về làm, nên mỗi công ty đặc thù định khoản và tk sẽ có 1 chút khác biệt. ( đôi khi số liệu cũ của kh thì tk cũng sẽ khác). Thứ 2 trình độ nhân viên kế toán mỗi người là khác nhau nên mỗi khi update công ty mới thì ko thể ngồi cài lại VBA được mà để bên ngoài cho các bạn tùy chỉnh ạ

Bài đã được tự động gộp: 23/9/20

dạ cái này e coppy làm mẫu thôi ạ, nên nội dung hơi tào lao ạ

Bài đã được tự động gộp: 23/9/20

Trong 1 ngày chi tạm ứng và chi lương sẽ có mấy phiếu chi? nếu 2 phiếu làm sao phân biệt?

 

[LeHang.93]

Trong 1 ngày chi tạm ứng và chi lương sẽ có mấy phiếu chi? nếu 2 phiếu làm sao phân biệt?

Em sẽ dựa vào nội dung phiếu để phân biệt ạ

 

[HieuCD]

Em sẽ dựa vào nội dung phiếu để phân biệt ạ

Bạn phải gởi dữ liệu gần với thực tế và tương đối đầy đủ các tình huống mới viết code được, lưu ý các định khoản cuối kỳ như phân bổ kết chuyển ...

 

[Hong.Van]

Trong 1 ngày chi tạm ứng và chi lương sẽ có mấy phiếu chi? nếu 2 phiếu làm sao phân biệt?

Với tôi, trong Data có cột hóa đơn/ chứng từ thì ghi thêm là BL, UL01 ... thì code tự động xác nhận là 2 phiếu khác nhau

 

[LeHang.93]

Bạn thử.

Sub danhso()
    Dim arr, i As Long, lr As Long, kq, so As Long, dic As Object, dk As String, dks As String
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("data")
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         arr = .Range("D2:J" & lr).Value
         ReDim kq(1 To UBound(arr), 1 To 1)
         For i = 1 To UBound(arr)
             If arr(i, 7) = "chi" Then
                dk = "PC"
             ElseIf arr(i, 7) = "thu" Then
                dk = "PT"
             ElseIf arr(i, 7) = "nhap" Then
                dk = "PN"
             ElseIf arr(i, 7) = Empty Then
                dk = "PKT"
             Else
                dk = Empty
             End If
             If dk <> Empty Then
                   dks = dk & "#" & arr(i, 1) & "#" & arr(i, 2)
                If Not dic.exists(dk) Then
                   dic.Add dk, 1
                   dic.Item(dks) = 1
                   kq(i, 1) = dk & Format(1, "000")
                Else
                   so = dic.Item(dk)
                   If Not dic.exists(dks) Then
                      so = so + 1
                      dic.Add dks, ""
                   End If
                   kq(i, 1) = dk & Format(so, "000")
                   dic.Item(dk) = so
               End If
           End If
      Next i
         .Range("C2:C" & lr).Value = kq
End With
End Sub

Anh ơi em sd code của a rất ok, a có thể cho e địa chỉ liên lạc ko, em muốn bổ sung một vài tính năng có trả phí ạ

 

[HieuCD]

Với tôi, trong Data có cột hóa đơn/ chứng từ thì ghi thêm là BL, UL01 ... thì code tự động xác nhận là 2 phiếu khác nhau

Cột hóa đơn nếu còn dùng để xử lý vấn đề khác như lập bảng kê hóa đơn sẽ khá rối

 

[Hong.Van]

Cột hóa đơn nếu còn dùng để xử lý vấn đề khác như lập bảng kê hóa đơn sẽ khá rối

Thông thường thì Data tôi dùng để hạch toán tổng hợp các nghiệp vụ rồi từ Data này sẽ cho ra các phiếu và các sổ chi tiết
Còn bảng kê đầu ra đầu vào thì đã làm trước nên khi lập bảng kê tình hình sử dụng hóa đơn thì sẽ dùng nó

 

[LeHang.93]

Thông thường thì Data tôi dùng để hạch toán tổng hợp các nghiệp vụ rồi từ Data này sẽ cho ra các phiếu và các sổ chi tiết
Còn bảng kê đầu ra đầu vào thì đã làm trước nên khi lập bảng kê tình hình sử dụng hóa đơn thì sẽ dùng nó

Bảng kê đầu ra đầu vào nhập từ trước có nghĩa là công việc nhập liệu thành 2 lần. Bảng kê đầu ra đầu vào phải được xuất ra từ file nhập liệu.

Bài đã được tự động gộp: 23/9/20

Bạn thử.

Sub danhso()
    Dim arr, i As Long, lr As Long, kq, so As Long, dic As Object, dk As String, dks As String
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("data")
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         arr = .Range("D2:J" & lr).Value
         ReDim kq(1 To UBound(arr), 1 To 1)
         For i = 1 To UBound(arr)
             If arr(i, 7) = "chi" Then
                dk = "PC"
             ElseIf arr(i, 7) = "thu" Then
                dk = "PT"
             ElseIf arr(i, 7) = "nhap" Then
                dk = "PN"
             ElseIf arr(i, 7) = Empty Then
                dk = "PKT"
             Else
                dk = Empty
             End If
             If dk <> Empty Then
                   dks = dk & "#" & arr(i, 1) & "#" & arr(i, 2)
                If Not dic.exists(dk) Then
                   dic.Add dk, 1
                   dic.Item(dks) = 1
                   kq(i, 1) = dk & Format(1, "000")
                Else
                   so = dic.Item(dk)
                   If Not dic.exists(dks) Then
                      so = so + 1
                      dic.Add dks, ""
                   End If
                   kq(i, 1) = dk & Format(so, "000")
                   dic.Item(dk) = so
               End If
           End If
      Next i
         .Range("C2:C" & lr).Value = kq
End With
End Sub

Bác ơi cho e xin số liên lạc ạ

 

[Hong.Van]

Bảng kê đầu ra đầu vào nhập từ trước có nghĩa là công việc nhập liệu thành 2 lần. Bảng kê đầu ra đầu vào phải được xuất ra từ file nhập liệu.

Mỗi quý nhận hồ sơ 1 lần, để kịp báo cáo GTGT thì phải làm để báo cáo. Sau đó dùng các bảng kê này xử lý và ghép vào Data tổng hợp. Tôi làm kế toán khác các bạn khác, đi từ tổng hợp ra chi tiết
Không dùng form nhập liệu mà dùng form để kết dữ liệu