hoàn thiện code nút lệnh cho mẫu sổ cái

[yome]

Anh chị ơi, thiết kế code lọc dữ liệu cho file kế toán này (file gửi kèm). Em đang rất cần để làm báo cáo! Thanks

 

[ThuNghi]

Anh chị ơi, thiết kế code lọc dữ liệu cho file kế toán này (file gửi kèm). Em đang rất cần để làm báo cáo! Thanks

Góp ý, đã gởi file hỏi mà còn pass, mất công bỏ quá. Rút kinh nghiệm, máy tôi không mở file được.
Xem bài của Hoangdanh282vn mới gởi hôm qua, hay là tìm bài của tôi trong phần Find, chỉ thay đổi lại cấu trúc NKC cho phù hợp là OK.

 

[Po_Pikachu]

Góp ý; Pass này chỉ cần bấm Exit -> bấm tiếp Cancel là vào được khỏi pass chi? Vậy cho hỏi lọc bên Sheet NKC là lọc cái gì ra vậy? Đâu thấy thông số Mã tài khoản bên Sheet NKC đâu mà lọc chứ? Bác phải thêm cột Mã tài khoản nữa thì mới lọc được. Thân.

 

[yome]

Em up lại nhờ chị ThuNghi và các anh chị thiết kế dùm em nhé! Thanks

 

[anhtuan1066]

Góp ý; Pass này chỉ cần bấm Exit -> bấm tiếp Cancel là vào được khỏi pass chi?
Vậy cho hỏi lọc bên Sheet NKC là lọc cái gì ra vậy? Đâu thấy thông số Mã tài khoản bên Sheet NKC đâu mà lọc chứ?
Bác phải thêm cột Mã tài khoản nữa thì mới lọc được.
Thân.

Bởi vậy mới nói: Có khi công cụ có sẳn (Password Open) ko xài ... Định làm cho nó "Pro..." thêm bằng Form đăng nhập ... Làm ko "tới bến" thành... tào lao
Tôi ko nghĩ đây là bài toán khó mà chỉ là KHÓ HIỂU đối với những ai ko phải chuyên ngành... Tôi đã xem qua mà chẳng hiểu LOC theo tiêu chí gì?
Nếu bạn muốn cho tất cả ai cũng hiểu vấn đề thì hãy đặt vào hoàn cảnh của người ko làm kế toán để nêu yêu cầu... Bằng ngược lại, chắc chỉ có ai làm kế toán mới giúp dc bạn mà thôi

 

[ThuNghi]

Rút kinh nghiệm nhé:
1/ Lần sau có pass thì không làm.
2/ Mr ThuNghi nhé.
Bạn xem lại nhé, file thì link tùm lum, tôi bỏ hết rồi. Đã VBA thì No formula nhé. Cố gắng lên!

 

[yome]

ThuNghi! Mình kiểm tra file TN làm cho minh rồi. Nhưng minh muốn khi chọn tài khoản nào thì nhấn vào "Tao so" sẽ được luôn TK đó. Nếu có thể chỉnh lại cho mình với! Thank you very much, ThuNghi!

 

[hoangdanh282vn]

Anh chị ơi, thiết kế code lọc dữ liệu cho file kế toán này (file gửi kèm). Em đang rất cần để làm báo cáo! Thanks

Bạn thử code này xem sao :

Dùng sự kiện Combobox_change để tạo sổ nha

Trong sheet So Cai :

Private Sub ComboBox1_Change()
Call TaoSoCai
End Sub

Trong module :

Sub TaoSoCai()
Dim r As Long, i As Long, FirstAddress As String
Dim Rng As Range, FoundCell As Range
Application.ScreenUpdating = False
Rows("14:1000").EntireRow.Hidden = False
[A14:G41].ClearContents
With Sheets("NKC")
r = .[A65536].End(xlUp).Row
Set Rng = .Range("F11:G" & r)
Set FoundCell = Rng.Find(what:=[D8] & "*", after:=.[F11], LookIn:=xlValues, _
                            LookAt:=xlWhole, searchorder:=xlByRows)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
i = 14
Do
Cells(i, 1).Resize(, 4) = .Cells(FoundCell.Row, 1).Resize(, 4).Value
Select Case FoundCell.Column
    Case 6
        Cells(i, 5) = FoundCell.Offset(, 1).Value
        Cells(i, 6) = FoundCell.Offset(, 2).Value
    Case 7
        Cells(i, 5) = FoundCell.Offset(, -1).Value
        Cells(i, 7) = FoundCell.Offset(, 2).Value
End Select
i = i + 1
Set FoundCell = Rng.FindNext(FoundCell)
Loop While FirstAddress <> FoundCell.Address
End If
If i > 14 Then Rows(i & ":1000").EntireRow.Hidden = True
End With
Set Rng = Nothing: Set FoundCell = Nothing
Application.ScreenUpdating = True
End Sub

Còn việc tìm số dư đầu kỳ và số dư cuối kỳ bạn dùng công thức điền vào nha