Nhờ sử file sổ cái CTGS

[son_winesco]

Chào các bạn,
Mình mới download được file sổ cái chứng từ ghi sổ theo mình thấy thì nó rất tuyệt. Mình muốn chỉnh sửa lại một chút nhưng vì file này có sử dụng CODE nên mình không biết làm. Nhờ các bạn trên diễn đàn giúp đỡ:

Tại sheet So Cai nhờ các bạn bỏ đi giúp phần:
"Sổ này có ... trang, được đánh từ trang số .. đến trang ...
Ngày mở sổ ...
Người lập sổ kế toán trưởng ngày tháng năm
Chủ doanh nghiệp"
Xin cám ơn!

 

[Ngoai Thanh]

Chào các bạn,
Mình mới download được file sổ cái chứng từ ghi sổ theo mình thấy thì nó rất tuyệt. Mình muốn chỉnh sửa lại một chút nhưng vì file này có sử dụng CODE nên mình không biết làm. Nhờ các bạn trên diễn đàn giúp đỡ:

Tại sheet So Cai nhờ các bạn bỏ đi giúp phần:
"Sổ này có ... trang, được đánh từ trang số .. đến trang ...
Ngày mở sổ ...
Người lập sổ kế toán trưởng ngày tháng năm
Chủ doanh nghiệp"
Xin cám ơn!

Bạn mở file, Bấm All+F11 vào cửa sổ VBA, chọn sheet5(So cai) kích đúp sẽ thấy code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, [C7]) Is Nothing Then
[A13:H2294].EntireRow.Hidden = False
[A13:H2294].ClearContents
SoTK = [C7]
If SoTK = "" Then Exit Sub
If [C7].Value < 1000 Then Call SCai1
If [C7].Value > 1000 And [C7].Value < 10000 Then Call SCai2
If [C7].Value > 10000 Then Call SCai3
[A13:A2294].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End If
If Intersect(Target, [C7]) Is Nothing Then
[C7].Select
End If
Application.ScreenUpdating = True
End Sub
Hãy xóa cụm từ Selection tôi bôi đỏ ở trên . sau đó bạn trở lại trang tính xóa những nơi cần xóa . Sau khi xóa xong, bạn đánh trả lại dòng lệnh trên như cũ là được.

 

[son_winesco]

Mình vừa làm thử theo hướng dẫn của bạn và đã sửa được
Cám ơn bạn rất nhiều.