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]

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é.

Tôi đang bí đoạn đó đấy. Bạn thử nghiên cứu xem.

 

[love04]

hic, e sửa lại cái code đấy thành thế này là được, không biết có vấn đề gì không:

Sub Chua_loi_Font_bi_hoi_cham()
Dim TenFilegoc As String
Dim Duongdan As String
TenFilegoc = ActiveWorkbook.Name
Duongdan = ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:="" & Duongdan & "\" & TenFilegoc & "", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Tôi đang bí đoạn đó đấy. Bạn thử nghiên cứu xem.

 

[hung2412]

hic, e sửa lại cái code đấy thành thế này là được, không biết có vấn đề gì không:

Sub Chua_loi_Font_bi_hoi_cham()
Dim TenFilegoc As String
Dim Duongdan As String
TenFilegoc = ActiveWorkbook.Name
Duongdan = ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:="" & Duongdan & "\" & TenFilegoc & "", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Bạn thử chạy Code xong rồi thì Close File đó đi rồi bật lại xem có bị lỗi Font hay không?

 

[love04]

Không bị lỗi đâu anh. Nhưng có điều nó đổi font tất cả các sheet trong file luôn, mà em chỉ muốn đổi font và định dạng sheet đang mở thôi.

Bạn thử chạy Code xong rồi thì Close File đó đi rồi bật lại xem có bị lỗi Font hay không?

 

[hung2412]

Không bị lỗi đâu anh. Nhưng có điều nó đổi font tất cả các sheet trong file luôn, mà em chỉ muốn đổi font và định dạng sheet đang mở thôi.

Ah, đúng là nó đổi Font hết các Sheet (Không thay đổi được đâu).
Chắc là bạn đang dùng office 2003 phải không?

 

[love04]

E đang dùng Office 2010 anh ạ

Ah, đúng là nó đổi Font hết các Sheet (Không thay đổi được đâu).
Chắc là bạn đang dùng office 2003 phải không?

 

[hung2412]

E đang dùng Office 2010 anh ạ

Uhm, vậy thì cứ theo File sửa mà xài thôi.

 

[love04]

Khi code " Chua_loi_Font_bi_hoi_cham()" chạy thìCode bên trên nếu chọn No hoặc Cancel thì nó hiện ra cái bảng báo lỗi gì đó. Khi code " Chua_loi_Font_bi_hoi_cham()" chạy, em muốn nếu chọn Yes thì nó thay còn Chọn No hoặc Cancel thì nó không thực hiện gì cả thì phải sửa code thế nào anh nhỉ.

Uhm, vậy thì cứ theo File sửa mà xài thôi.

 

[hung2412]

Khi code " Chua_loi_Font_bi_hoi_cham()" chạy thìCode bên trên nếu chọn No hoặc Cancel thì nó hiện ra cái bảng báo lỗi gì đó. Khi code " Chua_loi_Font_bi_hoi_cham()" chạy, em muốn nếu chọn Yes thì nó thay còn Chọn No hoặc Cancel thì nó không thực hiện gì cả thì phải sửa code thế nào anh nhỉ.

Bạn thử Download cái này xem.

 

[love04]

Ơ, code này là code xóa tất cả các sheet chỉ để lại sheet 1 đấy chứ anh.

Bạn thử Download cái này xem.

 

[hung2412]

Ơ, code này là code xóa tất cả các sheet chỉ để lại sheet 1 đấy chứ anh.

Bạn nhầm rồi. Code này giữ nguyên tất cả các Sheet và có cả chuyển Font. Bạn thao tác lại thử xem.

 

[love04]

vâng, để e thử lại xem

Bạn nhầm rồi. Code này giữ nguyên tất cả các Sheet và có cả chuyển Font. Bạn thao tác lại thử xem.

 

[hung2412]

vâng, để e thử lại xem

Đã được chưa bạn ơi?

 

[hung2412]

vâng, để e thử lại xem

File Add-Ins đó bỏ qua lệnh " Chua_loi_Font_bi_hoi_cham()"

 

[love04]

Code đó e dùng vậy là ổn rồi anh ạ. Còn vụ Code để chạy Pivot Table nữa. Anh qua Topic này xem giúp em cách làm nhé:
http://www.giaiphapexcel.com/forum/...de-VBA-để-tạo-Pivot-table&p=732156#post732156

File Add-Ins đó bỏ qua lệnh " Chua_loi_Font_bi_hoi_cham()"

 

[hung2412]

Code đó e dùng vậy là ổn rồi anh ạ. Còn vụ Code để chạy Pivot Table nữa. Anh qua Topic này xem giúp em cách làm nhé:
http://www.giaiphapexcel.com/forum/...de-VBA-để-tạo-Pivot-table&p=732156#post732156

Pivot Table thì tôi chịu rồi.