Tạo 1 sheet có tác dụng như from nhập liệu

[duynhat84]

Em coi hướng dẫn trên DĐ làm được 1 nút CM buttion khi nhấn vào đó tự động nhập liệu cho nhật ký chung nhưng các tài khoản ngoài bảng thì không được ví dụ TK 0081 thành 81 em gửi file kèm theo nhờ các Anh Chị chỉ giúp
Em xin cảm ơn nhiều.



Cảm ơn Anh Hoàng Nghĩa Phúc em nhập đoạn code của anh hướng dẫn thấy tuyệt lắm, mai mốt còn gì vướng mắc nhờ anh giúp đỡ nha

 

[nghiaphuc]

Em coi hướng dẫn trên DĐ làm được 1 nút CM buttion khi nhấn vào đó tự động nhập liệu cho nhật ký chung nhưng các tài khoản ngoài bảng thì không được ví dụ TK 0081 thành 81 em gửi file kèm theo nhờ các Anh Chị chỉ giúp
Em xin cảm ơn nhiều.

Bạn thử sửa code như sau:

Private Sub CommandButton1_Click()
    With [A9].CurrentRegion.Offset(1)
        Sheet2.[G65536].End(xlUp).Offset(1).Resize(.Rows.Count).NumberFormat = "@"
        Sheet2.[C65536].End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count).Value = .Value
    End With
End Sub

 

[sealand]

Mình tham gia 1 chút: Đây là vấn đề rắc rối trong khi sử lý mã tài khoản kế toán. Vì thường nó chứa toàn các ký tự số nên Excel hiểu đó là Number nên tự động chuyển nó thành Number. Trong quá trình sử lý mã TK không đồng nhất thì việc sai sót là khó tránh khỏi. Vậy để tránh vấn đề này ta thống nhất mã TK là dạng Text và khi nhập nên nhập theo dạng Nháy đơn (') +Mã TK. Như vậy, heej thống mã TK trên Data của bạn đồng nhất ổn định và hoàn toàn theo ý bạn.