Chỉnh độ rộng cột, hàng, định dạng nhiều trang theo một trang bằng mã lệnh trong VBA

[hhh333]

Dữ liệu của em được trình bày trong sheet1. Em muốn viết mã lệnh trong VBA sao cho khi thực hiện ở sheet2 em có 50 trang cũng được trình bày giống như trang 1 của sheet1. Nghĩa là cũng có 50 dòng và 14 cột với độ rộng cột, chiều cao hàng như trang 1 của sheet1. Định dạng trang ( lề trên, dưới, trái, phải) như trang 1 của sheet1. Các trang được bố trí từ trên xuống dưới, từ trái qua phải. Em xin chân thành cảm ơn

 

[vu_tuan_manh_linh]

VBA làm gì cho rắc rối hả bạn. Bạn tạo 1 file mẫu với công thức sẵn có. Vùng nào ghi dữ liệu đầu vào thì bạn bỏ trống. Bạn vào sheet mẫu đó, chọn toàn bộ sheet bằng cách bấm chuột trái vào điểm giao giữa Row Header và Column header, rồi copy, paste toàn bộ sang sheet2 là xong (chú ý khi paste sang sheet2 thì cần đặt con trỏ vào ô A1 nhé).

 

[hhh333]

Cảm ơn anh nhưng không phải vậy anh a. Em là giáo viên, anh xem file của em rồi thì anh biết mục đích của em. Em đang dùng VBA để tạo một tiện ích làm sổ công tác tự động, nghĩa là người dùng nhập tuần, thời khóa biểu vào thì tiện ích sẽ cho tên bài vào sổ công tác. Em đã làm được điều đó nhưng vấn đề là sau mỗi tuần em muốn lưu lại, một năm có 37 tuần em muốn lưu lại cả 37 tuần theo mẫu như trang 1 của sheet 1. Em có một chút kiến thức về lập trình nhưng VBA thì em không thạo, Cách như anh em hoàn toàn làm được nhưng vấn đề là em muốn làm bằng VBA cơ. Xin các anh chị chỉ giúp em xin chân thành cảm ơn.

 

[dhn46]

bạn thủ cái này xem

Sub Copy()    
      Sheet1.Cells.Copy    
      Sheet2.Cells.PasteSpecial Paste:=xlPasteAll
End Sub