Tìm cách rút trích dữ liệu từ Sổ Nhật Ký Chung sang Sổ Cái trong kế toán?

[thanhphuongvip]

Nghiên cứu nhiều lắm rồi mà vẫn ko được, bạn nào cao thủ giúp mình với, mình gửi file đính kèm, bạn nào có nhã ý giúp mình, mình xin gửi card điện thoại 50k coi như là hậu tạ

Kết quả trong đó mình làm thủ công mới ra được, bạn tư vấn cho mình có cách nào làm, quan trọng nhất là tìm ra số trang trong Nhật ký chung của dòng nghiệp vụ đó.

Xin cảm ơn rất nhiều

 

[doveandrose]

.............................................

 

[befaint]

.............................................

Chắc do bác tải file bị lỗi thôi, chứ t mở ra hoàn toàn bình thường đó.

 

[chuot0106]

Nghiên cứu nhiều lắm rồi mà vẫn ko được, bạn nào cao thủ giúp mình với, mình gửi file đính kèm, bạn nào có nhã ý giúp mình, mình xin gửi card điện thoại 50k coi như là hậu tạ

Kết quả trong đó mình làm thủ công mới ra được, bạn tư vấn cho mình có cách nào làm, quan trọng nhất là tìm ra số trang trong Nhật ký chung của dòng nghiệp vụ đó.

Xin cảm ơn rất nhiều

Không mờ được File bạn ạ! Nếu có thể bạn đính kèm lại File khác được không?

 

[doveandrose]

Không mờ được File bạn ạ! Nếu có thể bạn đính kèm lại File khác được không?

up lại cho những ai không mở được file #1

 

[chuot0106]

Nghiên cứu nhiều lắm rồi mà vẫn ko được, bạn nào cao thủ giúp mình với, mình gửi file đính kèm, bạn nào có nhã ý giúp mình, mình xin gửi card điện thoại 50k coi như là hậu tạ

Kết quả trong đó mình làm thủ công mới ra được, bạn tư vấn cho mình có cách nào làm, quan trọng nhất là tìm ra số trang trong Nhật ký chung của dòng nghiệp vụ đó.

Xin cảm ơn rất nhiều

Bạn mở File, nhập "SỐ HIỆU" vào ô C10 xem kết quả!

 

[thanhphuongvip]

Hàm thì làm cũng được. nhưng mà cái số trang.............làm sao biết dòng đó nằm nó nằm ở trang nào mà làm???

Vậy mới khó đó bạn ơi!! Mình rối quá

 

[thanhphuongvip]

Bạn mở File, nhập "SỐ HIỆU" vào ô C10 xem kết quả!

Cảm ơn Bạn rất nhiều!
Bạn ơi, mỗi số hiệu tài khoản mình trích ở cột "tkn" (Tài khoản Nợ) và cả cột "tkc" (Tài khoản Có) luôn. Trong file mình gửi trước mình chỉ ví dụ ở tkn thôi (vì tkc nhiều quá mình ko ví dụ hết được).

Bạn xem giúp mình nhé!

 

[chuot0106]

Cảm ơn Bạn rất nhiều!
Bạn ơi, mỗi số hiệu tài khoản mình trích ở cột "tkn" (Tài khoản Nợ) và cả cột "tkc" (Tài khoản Có) luôn. Trong file mình gửi trước mình chỉ ví dụ ở tkn thôi (vì tkc nhiều quá mình ko ví dụ hết được).

Bạn xem giúp mình nhé!

Tôi chưa hiểu ý bạn lắm!

 

[linhlan6789]

Bạn Làm từ sổ Nhật Ký chung ra sổ chi tiết như vậy thì nhìn rất rối và dễ chạy sai dữ liệu. Mình thiết kế sổ của mình như vậy. Bạn tham khảo nha. Mình chỉ cắt một phần sổ của mình làm thôi. Bạn chỉ cần nhập một sheet Nhật Ký chung sẽ ra hết Tát cả các sổ cần thiết cho kế toán.
Lâu rồi không lên diễn đàn từ 2010 đến nay , nên sinh nhật GPE lần này rất vui được gặp lại các bạn. Đt : 0909337513 - user name: linhlan6789

 

[doveandrose]

Hàm thì làm cũng được. nhưng mà cái số trang.............làm sao biết dòng đó nằm nó nằm ở trang nào mà làm???

thích dùng hàm chứ gì ? muốn biết nằm trang nào thì chế bảng
ở sheet NKC chọn vùng B1:O150 -> set Print Area
dòm xuống thấy có 2 dòng ngang kẻ mờ : 56 và 110 . vậy khi dữ liệu ổn định thì 1 trang có 54 dòng
chế bảng thôi =))

 

[doveandrose]

Buồn buồn...........ai đó ngồi kéo, hoặc dãn dòng 1 tí...........thì đi tây thiên á!

tôi thấy bạn chuot0106 cũng xài vậy mà .chỗ này nè

For i = 1 To UBound(Data, 1)
    If Data(i, 7) <> Empty Then
        If Val(Data(i, 7)) = Val(Sheet10.Range("C10")) Then
            tg = i + 13
            d = d + 1
            Kq(d, 1) = Data(i, 1)
            Kq(d, 2) = Data(i, 2)
            Kq(d, 3) = Data(i, 3)
            Kq(d, 4) = Data(i, 4)
[SIZE=4][B]          Kq(d, 5) = Int(tg / 54) + 1[/B][/SIZE]
            Kq(d, 6) = Data(i, 6)
            Kq(d, 7) = Data(i, 13)
            Kq(d, 8) = Data(i, 9)
            Kq(d, 9) = Data(i, 10)
        End If
    End If
Next i

còn nếu muốn chế bảng mà không biết các dòng có ổn định chiều cao hay không thì nó đây

Public Sub hello()
Dim ws As Worksheet, wsSC As Worksheet, lr As Long, r As Long, arr As Variant
Set ws = Worksheets("SO NKC")
Set wsSC = Worksheets("SO CAI 1")
Application.ScreenUpdating = False
lr = ws.Range("C1000000").End(xlUp).Row + 100
ws.PageSetup.PrintArea = "B1:J" & lr
ws.Activate
ActiveWindow.View = xlPageBreakPreview
ReDim arr(1 To ws.HPageBreaks.Count, 1 To 2)
arr(1, 2) = 1: arr(1, 1) = 1
For r = 1 To ws.HPageBreaks.Count Step 1
    arr(r + 1, 2) = r + 1
    arr(r + 1, 1) = ws.HPageBreaks(r).Location.Row
    If ws.Range("C" & arr(r + 1, 1)).Value = "" Then Exit For
Next
ActiveWindow.View = xlNormalView
ws.PageSetup.PrintArea = ""
wsSC.Activate
wsSC.Range("L9:M" & (99 + r)).ClearContents
wsSC.Range("L9:M" & (9 + r)).Value = arr
Application.ScreenUpdating = True
End Sub

 

[Hai Lúa Miền Tây]

tôi thấy bạn chuot0106 cũng xài vậy mà .chỗ này nè

For i = 1 To UBound(Data, 1)
    If Data(i, 7) <> Empty Then
        If Val(Data(i, 7)) = Val(Sheet10.Range("C10")) Then
            tg = i + 13
            d = d + 1
            Kq(d, 1) = Data(i, 1)
            Kq(d, 2) = Data(i, 2)
            Kq(d, 3) = Data(i, 3)
            Kq(d, 4) = Data(i, 4)
[SIZE=4][B]         Kq(d, 5) = Int(tg / 54) + 1[/B][/SIZE]
            Kq(d, 6) = Data(i, 6)
            Kq(d, 7) = Data(i, 13)
            Kq(d, 8) = Data(i, 9)
            Kq(d, 9) = Data(i, 10)
        End If
    End If
Next i

còn nếu muốn chế bảng mà không biết các dòng có ổn định chiều cao hay không thì nó đây

Public Sub hello()
Dim ws As Worksheet, wsSC As Worksheet, lr As Long, r As Long, arr As Variant
Set ws = Worksheets("SO NKC")
Set wsSC = Worksheets("SO CAI 1")
Application.ScreenUpdating = False
lr = ws.Range("C1000000").End(xlUp).Row + 100
ws.PageSetup.PrintArea = "B1:J" & lr
ws.Activate
ActiveWindow.View = xlPageBreakPreview
ReDim arr(1 To ws.HPageBreaks.Count, 1 To 2)
arr(1, 2) = 1: arr(1, 1) = 1
For r = 1 To ws.HPageBreaks.Count Step 1
    arr(r + 1, 2) = r + 1
    arr(r + 1, 1) = ws.HPageBreaks(r).Location.Row
    If ws.Range("C" & arr(r + 1, 1)).Value = "" Then Exit For
Next
ActiveWindow.View = xlNormalView
ws.PageSetup.PrintArea = ""
wsSC.Activate
wsSC.Range("L9:M" & (99 + r)).ClearContents
wsSC.Range("L9:M" & (9 + r)).Value = arr
Application.ScreenUpdating = True
End Sub

Đừng o ép thế. Cách tốt nhất là tạo 1 hàm để xác định số trang trên trang (Macro4).