File Add_Ins chuyên định dạng sổ kế toán chiết từ phần mềm kế toán Sông Đà (UNESCO) (1 người xem)

[hung2412]

Chào Quý vị và các bạn GPE!
Có vị nào đang làm kế toán ở các Công ty Sông Đà thuộc Tập đoàn Sông Đà như Công ty CP Sông Đà 2, Công ty CP Sông Đà 3,... thì không xa lạ gì phần mềm kế toán Sông Đà (Phần mềm kế toán UNESCO). Khi chiết sổ kế toán từ phần mềm kế toán đó ra Excel thì số sẽ bị lấp như #####, cột thừa, cột bị vỡ không khớp nội dung tương ứng,... => Phải định dạng lại sổ nên rất mất thời gian. Tôi có 1 File Add_Ins chuyên về định dạng sổ kế toán (Chỉnh lại số bị lấp như #####, xóa cột thừa, chỉnh lại cột bị vỡ cho khớp nội dung tương ứng,...). Tất nhiên là phải cộng File Add_Ins đó vào Excel thì mới sử dụng được.
Cách dùng: Khi chiết sổ từ phần mềm kế toán đó ra Excel (Mới toanh, chưa đả động gì đến File Excel đó) => nhấn Ctrl + q => Xong.
Trân trọng!
P/s: Có 01 File Add_Ins đính kèm. Dùng cho đủ loại sổ kế toán. Dùng cho mọi Version Excel.

 

[nhungdoahoaphudung]

tải file về ko bit sd, ko chạy bâm ctr q ko thấy j

 

[hung2412]

tải file về ko bit sd, ko chạy bâm ctr q ko thấy j

Quý vị làm ở Sông Đà ư? File đó là Add_Ins nên phải cộng Add_Ins thì mới sử dụng được.

 

[vanle33]

tải file về ko bit sd, ko chạy bâm ctr q ko thấy j

Bạn đã biết Enable marco chưa?
Cộng thêm cách add thêm file add in vào excel chưa?

 

[nhungdoahoaphudung]

Enable macro? em để Security ở Low nên ko hỏi --> OK enable;
Addin đã add thêm.
Thử với 1 file mới, nhập số vào rồi kéo cột cho nhỏ lại để hiện #### sau đó bấm Ctrl+Q thấy nháy 1 cái, kết quả vẫn... #### ko có gì thay đổi, ko bít làm sai ở chỗ nào

 

[hung2412]

Enable macro? em để Security ở Low nên ko hỏi --> OK enable;
Addin đã add thêm.
Thử với 1 file mới, nhập số vào rồi kéo cột cho nhỏ lại để hiện #### sau đó bấm Ctrl+Q thấy nháy 1 cái, kết quả vẫn... #### ko có gì thay đổi, ko bít làm sai ở chỗ nào

Quý vị có phần mềm nào có trùng phím tắt Ctrl + q không? Nếu tiện thì tôi hướng dẫn qua teamview cho. Quý vị cứ nhắn tin trên đề tài này, tôi online suốt.

 

[nhungdoahoaphudung]

e đã ktra, không có phần mềm gì cả. à bác sang http://www.giaiphapexcel.com/forum/showthread.php?98155-Help!-Tự-fill-cell-có-điều-kiện/page2 giúp em phân tích làm code này với

 

[hung2412]

e đã ktra, không có phần mềm gì cả. à bác sang http://www.giaiphapexcel.com/forum/showthread.php?98155-Help!-Tự-fill-cell-có-điều-kiện/page2 giúp em phân tích làm code này với

Vô lý, không thể nào. Quý vị thử kiểm tra xem:
- Có phải Quý vị đang làm kế toán có phần mềm kế toán như giao diện sau?:

- Quý vị thử chiết sổ TK 1111 rồi nhấn Ctrl + q xem sao.
- Có phải Quý vị cài từ bộ cài kế toán năm 2006 và năm 2007?
- Có phải Quý vị xài Excel 2010?

 

[love04]

Em áp dụng code của anh với sổ chi tiết TK 131 thì nó bị mất dòng anh ạ. Anh xem lại giúp em nhé.

Chào Quý vị và các bạn GPE!
Có vị nào đang làm kế toán ở các Công ty Sông Đà thuộc Tập đoàn Sông Đà như Công ty CP Sông Đà 2, Công ty CP Sông Đà 3,... thì không xa lạ gì phần mềm kế toán Sông Đà (Phần mềm kế toán UNESCO). Khi chiết sổ kế toán từ phần mềm kế toán đó ra Excel thì số sẽ bị lấp như #####, cột thừa, cột bị vỡ không khớp nội dung tương ứng,... => Phải định dạng lại sổ nên rất mất thời gian. Tôi có 1 File Add_Ins chuyên về định dạng sổ kế toán (Chỉnh lại số bị lấp như #####, xóa cột thừa, chỉnh lại cột bị vỡ cho khớp nội dung tương ứng,...). Tất nhiên là phải cộng File Add_Ins đó vào Excel thì mới sử dụng được.
Cách dùng: Khi chiết sổ từ phần mềm kế toán đó ra Excel (Mới toanh, chưa đả động gì đến File Excel đó) => nhấn Ctrl + q => Xong.
Trân trọng!
P/s: Có 01 File Add_Ins đính kèm. Dùng cho đủ loại sổ kế toán. Dùng cho mọi Version Excel.

 

[hung2412]

Em áp dụng code của anh với sổ chi tiết TK 131 thì nó bị mất dòng anh ạ. Anh xem lại giúp em nhé.

Bạn dùng File Add_Ins này xem.

 

[love04]

Code này đổi được cả font hay quá anh ạ. Nhưng Sổ cái vẫn bị mất dòng như code trước anh ạ, với lại chạy xong thì file excel chỉ còn lại 1 sheet duy nhất, các sheet khác của em đều bị xóa anh ạ.

Bạn dùng File Add_Ins này xem.

 

[hung2412]

Code này đổi được cả font hay quá anh ạ. Nhưng Sổ cái vẫn bị mất dòng như code trước anh ạ, với lại chạy xong thì file excel chỉ còn lại 1 sheet duy nhất, các sheet khác của em đều bị xóa anh ạ.

Khoan nói tới các sheet khác bị xóa. Sổ cái không bị mất dòng đâu, ví dụ như là dòng 8 và dòng 9 có có cùng ký hiệu là DT01 thì gộp vào làm 1 dòng cho gọn (Tất nhiên số liệu cũng cộng lại với nhau tương ứng).

 

[love04]

Anh ơi, em biết là như vậy rồi, nhưng em cần giữ nguyên dòng như vậy, không được cộng các dòng anh ạ.

Khoan nói tới các sheet khác bị xóa. Sổ cái không bị mất dòng đâu, ví dụ như là dòng 8 và dòng 9 có có cùng ký hiệu là DT01 thì gộp vào làm 1 dòng (Tất nhiên số liệu cũng cộng lại với nhau tương ứng).

 

[hung2412]

Anh ơi, em biết là như vậy rồi, nhưng em cần giữ nguyên dòng như vậy, không được cộng các dòng anh ạ.

Nếu vậy bạn Download cái File Add_Ins ở dưới xem sao.

 

[sealand]

File này anh em đã chia sẻ thì ta cứ việc dùng (Trong code có Rem tên Hung nên chắc đây là code của chính chủ Topic rồi), đây là file gồm có 3 Module sử lý dữ liệu. Nói chung, code dang này thì yêu cầu file sử lý phải đúng mẫu nếu không nó đi đến đâu có trời biết. Để tùy biến ta có thể chỉnh sửa code bằng cách tải file này về máy rồi đổi đuôi .XLA thành .XLS là mở bình thường thôi. Với anh em GPE thì code này cũng có thể hoàn thiện thêm. Mình ví dụ đoạn code sau

'''''''''''''''''''''''''''''''''''''''''''
For Each Rng In Range("K7")
        If Evaluate("MOD(" & Rng.Address & ", 1)") = 0 Then
            Rng.NumberFormat = "#,##0"
        Else
            Rng.NumberFormat = "#,##0.0#"
        End If
    Next
''''''''''''''''''''''''''''''''''''''''''''

Nếu là tôi thì tôi sẽ viết:

Range("K7").NumberFormat=IIf(Mod(Range("K7"),1)=0, "#,##0","#,##0.0#")

Cám ơn bạn đã chia sẻ cống sức của mình, tiếc là mình không có điều kiện sử dụng.

 

[love04]

Code của anh rất hữu ích với e. Cảm ơn anh nhiều, nhưng anh có thể sửa hộ em 1 số chỗ được không ạ:
- Chỉ thực hiện định dạng sổ mà không xóa các sheet khác trong file.
- Không thực hiện Merge các ô.
- Với "Sổ cái tài khoản" thì thêm cột D, G, H, đồng thời đặt tên cột và công thức như trong file em đính kèm.

Nếu vậy bạn Download cái File Add_Ins ở dưới xem sao.

 

[hung2412]

Code của anh rất hữu ích với e. Cảm ơn anh nhiều, nhưng anh có thể sửa hộ em 1 số chỗ được không ạ:
- Chỉ thực hiện định dạng sổ mà không xóa các sheet khác trong file.
- Không thực hiện Merge các ô.
- Với "Sổ cái tài khoản" thì thêm cột D, G, H, đồng thời đặt tên cột và công thức như trong file em đính kèm.

Vấn đề 1 thì tôi nghĩ chưa ra. Còn Vấn đề 2 và 3 thì tôi làm được. Bạn Download File ở dưới nhé.

 

[love04]

Hic, code đầu bài anh up nó chỉ đổi định dạng còn các sheet khác vẫn giữ nguyên, đến code về sau anh gửi thì nó mới bị xóa các sheet khác thôi, em tưởng là anh viết thêm code gì đó vào code sau nên mới thế chứ. Em muốn giữ nguyên các sheet khác vì em muốn giữ lại sheet gốc ban đầu và trong quá trình làm còn copy các sheet khác vào nữa.
Anh nghiên cứu giúp em nhé.

Vấn đề 1 thì tôi nghĩ chưa ra. Còn Vấn đề 2 và 3 thì tôi làm được. Bạn Download File ở dưới nhé.

 

[hung2412]

Hic, code đầu bài anh up nó chỉ đổi định dạng còn các sheet khác vẫn giữ nguyên, đến code về sau anh gửi thì nó mới bị xóa các sheet khác thôi, em tưởng là anh viết thêm code gì đó vào code sau nên mới thế chứ. Em muốn giữ nguyên các sheet khác vì em muốn giữ lại sheet gốc ban đầu và trong quá trình làm còn copy các sheet khác vào nữa.
Anh nghiên cứu giúp em nhé.

Code đầu ở #1 thì không có vụ đổi Font. Còn Code sau thì có vụ đổi Font nhưng bị xóa Sheet.

 

[love04]

Nguyên nhân là do code "Sub Chua_loi_Font_bi_hoi_cham()" anh ạ. Code này copy sheet đầu tiên trong file ra 1 file mới sau đó save đè lên file trước đó. Thì giờ phải sửa thành copy tất cả sheet và chuyển định dạng đổi với sheet đang active anh ạ. Anh xem sửa lại code này hộ em nhé.

Code đầu ở #1 thì không có vụ đổi Font. Còn Code sau thì có vụ đổi Font nhưng bị xóa Sheet.