Xin hỗ trợ về hàm copy file

[beetune1991]

Xin chào anh chị,

Trong file em gửi hiện đang có 2 vấn đề là:
1. nó copy luôn là hàm mã code
2. nó không lưu đúng định đạng file gốc (nghĩa là bị xô lệch các ô khung)

các anh chị xem sửa giúp em sao cho

1. chỉ copy ra dạng text
2. lưu đúng theo khung theo hình dạng đã được setup ở file gốc ạ.

rất mong được anh chị hỗ trợ
em xin cám ơn ạ

 

[thnghiachau]

Bạn đang dùng bộ Office nào?

Dạ, bộ Office không được gì cả anh ạ

 

[beetune1991]

Bạn đang dùng bộ Office nào?

2016 anh ạ. sao không copy được ảnh ra ấy

 

[Maika8008]

2016 anh ạ. sao không copy được ảnh ra ấy

Lỗi này tôi chịu thua. Đã có người gặp lỗi này cũng với Excel 2016. Người ấy hỏi microsoft nhưng rốt cuộc vẫn không có câu trả lời. Bạn tìm kiếm thêm bằng tiếng Anh may ra gặp đúng thầy.

 

[beetune1991]

Lỗi này tôi chịu thua. Đã có người gặp lỗi này cũng với Excel 2016. Người ấy hỏi microsoft nhưng rốt cuộc vẫn không có câu trả lời. Bạn tìm kiếm thêm bằng tiếng Anh may ra gặp đúng thầy.

anh có bộ cài khác ko
cho em xin với

 

[beetune1991]

Được nhưng chia vùng chọn ra. Giờ tôi phải giả định vùng chứa hình của bạn là A1:A3 ở tất cả các sheet để đưa vào code. Lưu ý:
1. Hình phải nằm gọn trong vùng đó thì mới chép sang sheet đích được. (VD như sheet 2 là không chép được)
2. Các sheet từ 1 đến 5 phải thống nhất số dòng trống bên trên khối dữ liệu.

em sửa được rồi.
anh xem giúp em lại code cho vùng cope ảnh toàn bộ sheet đi ạ
vì ảnh không chỉ có logo mà còn nhiều ảnh nội dung nữa chạy toán loạn toàn sheet anh ạ.

 

[Maika8008]

em sửa được rồi.
anh xem giúp em lại code cho vùng cope ảnh toàn bộ sheet đi ạ
vì ảnh không chỉ có logo mà còn nhiều ảnh nội dung nữa chạy toán loạn toàn sheet anh ạ.

Bạn đưa lại các sheet thật thật tí mới biết đường mà làm

 

[beetune1991]

Bạn đưa lại các sheet thật thật tí mới biết đường mà làm

cái này bắt buộc phải làm vùng à anh.
vì ảnh nó không cố định bất kì vị trí nào cả.
ngay cả khi e thay đổi vị trí logo cũng cần phải cop được ấy ạ.

 

[Maika8008]

cái này bắt buộc phải làm vùng à anh.
vì ảnh nó không cố định bất kì vị trí nào cả.
ngay cả khi e thay đổi vị trí logo cũng cần phải cop được ấy ạ.

Thử chạy lại code xem.

 

[beetune1991]

Thử chạy lại code xem.

được rồi anh ạ
tuy nhiên không giữa lại được định dạng ảnh. méo mó a ạ

 

[Maika8008]

được rồi anh ạ
tuy nhiên không giữa lại được định dạng ảnh. méo mó a ạ

Vụ này thì chịu vì có định được vùng nào chứa ảnh và có xác định được kích thước ảnh cần chép đâu

 

[beetune1991]

Vụ này thì chịu vì có định được vùng nào chứa ảnh và có xác định được kích thước ảnh cần chép đâu

1. thế anh chỉ e đoạn code thay đổi hoặc thêm vị trí của ảnh với ạ

2. thêm một việc nữa.
em mới viết đoạn code này nhưng sử dụng nút ấn bên ngoài thôi không sử dụng trong list box thì copy được dịnh dạng theo ô chỉ định anh ạ.
anh xem có kết hợp giúp em được cả LB và copy ảnh được không.

Sub XuatSheetLoai1()
Application.ScreenUpdating = False
Dim j As Integer
Sheets(Array(Sheet1.Name, Sheet2.Name, Sheet3.Name, Sheet4.Name, Sheet5.Name, Sheet6.Name, Sheet7.Name, Sheet8.Name, Sheet9.Name, Sheet10.Name, Sheet11.Name, Sheet12.Name, Sheet13.Name, Sheet14.Name, Sheet15.Name, Sheet16.Name, Sheet17.Name, Sheet18.Name, Sheet19.Name, Sheet20.Name, Sheet21.Name, Sheet22.Name, Sheet23.Name, Sheet24.Name, Sheet25.Name, Sheet26.Name, Sheet27.Name, Sheet28.Name, Sheet29.Name, Sheet30.Name, Sheet31.Name, Sheet32.Name, Sheet33.Name)).Copy
For j = 1 To Sheets.Count
Sheets(j).Activate
[A1:BG50].Copy
[A1:BG50].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = True
Range("B3").Select
Next
Application.ScreenUpdating = True
End Sub

 

[Maika8008]

1. thế anh chỉ e đoạn code thay đổi hoặc thêm vị trí của ảnh với ạ

2. thêm một việc nữa.
em mới viết đoạn code này nhưng sử dụng nút ấn bên ngoài thôi không sử dụng trong list box thì copy được dịnh dạng theo ô chỉ định anh ạ.
anh xem có kết hợp giúp em được cả LB và copy ảnh được không.

Sub XuatSheetLoai1()
Application.ScreenUpdating = False
Dim j As Integer
Sheets(Array(Sheet1.Name, Sheet2.Name, Sheet3.Name, Sheet4.Name, Sheet5.Name, Sheet6.Name, Sheet7.Name, Sheet8.Name, Sheet9.Name, Sheet10.Name, Sheet11.Name, Sheet12.Name, Sheet13.Name, Sheet14.Name, Sheet15.Name, Sheet16.Name, Sheet17.Name, Sheet18.Name, Sheet19.Name, Sheet20.Name, Sheet21.Name, Sheet22.Name, Sheet23.Name, Sheet24.Name, Sheet25.Name, Sheet26.Name, Sheet27.Name, Sheet28.Name, Sheet29.Name, Sheet30.Name, Sheet31.Name, Sheet32.Name, Sheet33.Name)).Copy
For j = 1 To Sheets.Count
Sheets(j).Activate
[A1:BG50].Copy
[A1:BG50].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = True
Range("B3").Select
Next
Application.ScreenUpdating = True
End Sub

1. Vị trí của ảnh ở ô nào là do bạn chép vào đó bằng tay, kích thước cũng do bạn chỉnh bằng tay. Tôi hỏi ở trên rồi mà bạn nói ảnh nó không cố định bất kì vị trí nào cả nên tôi chịu.
2. Đoạn code đó chỉ copy và dán giá trị ([A1:BG50].PasteSpecial Paste:=xlPasteValues) ngay trên từng sheet có tên trong array chứ có làm cái gì đâu giữa sheet cần xuất và sheet mới trên file xuất ra đâu.

 

[beetune1991]

1. Vị trí của ảnh ở ô nào là do bạn chép vào đó bằng tay, kích thước cũng do bạn chỉnh bằng tay. Tôi hỏi ở trên rồi mà bạn nói ảnh nó không cố định bất kì vị trí nào cả nên tôi chịu.
2. Đoạn code đó chỉ copy và dán giá trị ([A1:BG50].PasteSpecial Paste:=xlPasteValues) ngay trên từng sheet có tên trong array chứ có làm cái gì đâu giữa sheet cần xuất và sheet mới trên file xuất ra đâu.

nghĩa là không còn cách nào để giữa form ảnh đúng ko ạ

 

[Maika8008]

nghĩa là không còn cách nào để giữa form ảnh đúng ko ạ

Tôi không hiểu bạn hỏi gì!