lập trình VBA

[Hoacomay96]

Nhờ các bác trên diễn đàn chỉ gíp em cách chèn 1 vùng dữ liệu hoặc 1 trang trắng (không có dữ liệu) vào vùng kín dữ liệu theo địa chỉ dòng xác định trong sheet bằng VBA trong excel ? ví dụ chèn trang trắng vào dòng thứ 230 của vùng dữ liệu.

 

[salam]

Nhờ các bác trên diễn đàn chỉ gíp em cách chèn 1 vùng dữ liệu hoặc 1 trang trắng (không có dữ liệu) vào vùng kín dữ liệu theo địa chỉ dòng xác định trong sheet bằng VBA trong excel ? ví dụ chèn trang trắng vào dòng thứ 230 của vùng dữ liệu.

Cái này bạn chỉ cần record macro chen dòng là xong.

 

[anhtuan1066]

Nghi ngờ quá! Có khi ko phải là chèn dòng... mà là chèn 1 trang, tức đúng 1 trang in ấy chứ...
Còn nữa... nếu muốn tùy biến hơn thì có 2 cách:
1> Chèn đúng ngay ActiveCell (hơi nguy hiểm nếu chèn nhầm.. vì cũng ko thể Undo)
2> Dùng InputBox để chọn
Tác giả cho biết ý chính xác xem
ANH TUẤN

 

[tigertiger]

Nhờ các bác trên diễn đàn chỉ gíp em cách chèn 1 vùng dữ liệu hoặc 1 trang trắng (không có dữ liệu) vào vùng kín dữ liệu theo địa chỉ dòng xác định trong sheet bằng VBA trong excel ? ví dụ chèn trang trắng vào dòng thứ 230 của vùng dữ liệu.

hic, nếu chèn dòng thì bình thường

còn muốn chèn lun 1 trang thì phải căn cứ vào HPageBreaks và bạn có thể tham khảo link sau

http://www.giaiphapexcel.com/forum/showpost.php?p=49059&postcount=24

 

[Hoacomay96]

em chèn đúng theo chẵn số lượng trang trắng các anh ạ, số trang trắng này phụ thuộc vào tổng số trang của dữ liệu cơ (=20% tổng trang dữ liệu). nhờ các bác chỉ giúp.

ý em là muốn làm macro để nó tự đếm tổng số trang của từng vùng dữ liệu và tính 20% tổng số trang để chèn thêm trang trắng vào cuối vùng dữ liệu đó.sheet dữ liệu gồm nhiều vùng dữ liệu liền nhau nó và được phân biệt từng vùng theo số thứ tự của cột A. các bác giúp em với.

Định dạng cao dòng, cột là như nhau trong toàn shheet. em có file ví dụ kèm theo , các bác xem và lập giúp em nhé.

 

[connhangheo]

cho em hỏi muốn xem cell nào đó có dữ liệu hay ko thì code thế nào nhỉ (if ...... )
(em hỏi mỗi 1 câu nên ko tiện tạo 1 topic mới, các bác thông cảm)

 

[SA_DQ]

cho em hỏi muốn xem cell nào đó có dữ liệu hay ko thì code thế nào nhỉ (if ...... )

Sẽ hiện lên địa chỉ ô trong vùng sử dụng chưa có dữ liệu

Sub BlankCells()
 Dim Clls As Range, Rng As Range
 
 Set Rng = Range("A1").CurrentRegion
 For Each Clls In Rng
4    If Clls = "" Then MsgBox Clls.Address, , "GPE"
 Next Clls
End Sub

Còn muốn xem giá trị chứa trong tất cả các ô sử dụng thì thay câu lệnh 4 bằng câu:

     MsgBox Clls.Value, , "SaDQ"