Tạo dòng công chuyển cuối trang (1 người xem)

[hong1989]

Xin cho mình hỏi ở sheet "Socai" tại sao khi ắn nút "tạo dòng" thì phấn công chuyển cuối trang lại tràn hết sang cả sheet "Socai" vậy. mình gửi link đính kèm. Mọi người kiểm tra giúp sủa giúp mình nhé.
https://drive.google.com/file/d/0Bx6z3YcGDvh7MFd0Tnd4RGk2NDA/view?usp=sharing

 

[vanle33]

Xin cho mình hỏi ở sheet "Socai" tại sao khi ắn nút "tạo dòng" thì phấn công chuyển cuối trang lại tràn hết sang cả sheet "Socai" vậy. mình gửi link đính kèm. Mọi người kiểm tra giúp sủa giúp mình nhé.
https://drive.google.com/file/d/0Bx6z3YcGDvh7MFd0Tnd4RGk2NDA/view?usp=sharing

"phấn công chuyển cuối trang lại tràn hết sang cả sheet" nghĩa là sao nhỉ???
Bạn muốn chèn dòng? Vậy cứ Insert bình thường thôi, cứ dùng hết các chức năng có sẵn của excel đâu cần phải 'cót két' gì.

 

[hong1989]

"phấn công chuyển cuối trang lại tràn hết sang cả sheet" nghĩa là sao nhỉ???
Bạn muốn chèn dòng? Vậy cứ Insert bình thường thôi, cứ dùng hết các chức năng có sẵn của excel đâu cần phải 'cót két' gì.

Tạo dòng cộng chuyển trang sau ma bạn. excel bình thường làm sao làm được

 

[vanle33]

1) Tạo dòng cộng chuyển trang sau ma bạn.
2) excel bình thường làm sao làm được

1) Kết quả mà bạn muốn cho ý này là gì? Xem file của bạn mà không hiểu gì luôn toàn số 1 và 111 và 10 trong sheet "socai".
2) Đọc lại ý thứ 2 của #2 sẽ biết tại sao tôi nói "dùng chức năng có sẵn của excel".

 

[dovanhoc84]

Xin cho mình hỏi ở sheet "Socai" tại sao khi ắn nút "tạo dòng" thì phấn công chuyển cuối trang lại tràn hết sang cả sheet "Socai" vậy. mình gửi link đính kèm. Mọi người kiểm tra giúp sủa giúp mình nhé.
https://drive.google.com/file/d/0Bx6z3YcGDvh7MFd0Tnd4RGk2NDA/view?usp=sharing

Không phải là tràn ra mà cái nút lệnh đó có nghĩa là tạo thêm 1 trang ngay dưới trang hiện hành.
Nó sẽ dựa vào sheet Temp quy định dòng cuối của 1 trang, do vậy nó sẽ tự nhảy qua chứ không phải là thêm dòng như nút lệnh ghi.
Có thể đổi tên nút lệnh là "Thêm trang" thì chính xác hơn

SOKT1.Range("A" & iReE).Value = 1
SOKT1.Range("A" & iReE + 1 & ":A" & (iReE + nP * nRbt)).Formula = "=R[-1]C+1"

 

[befaint]

Tạo dòng cộng chuyển trang sau ma bạn. excel bình thường làm sao làm được

Đoạn này Rows(iRe).Insert xlShiftDown, True thì nó gán hết vào cả dòng rồi.
Bạn thay dòng:

Rows(iRe).Insert xlShiftDown, True

bằng đoạn này xem sao?

.Range("A" & iRe).PasteSpecial

 

[hong1989]

Đoạn này Rows(iRe).Insert xlShiftDown, True thì nó gán hết vào cả dòng rồi.
Bạn thay dòng:

Rows(iRe).Insert xlShiftDown, True

bằng đoạn này xem sao?

.Range("A" & iRe).PasteSpecial

Nếu sửa theo bạn khi mà số liệu nhiều hơn 1 trang sẽ bị lỗi thế này
iRe = SOKT1.HPageBreaks(iP).Location.Row - nRbt + 1
Minh gửi file lên bạn test lại thử nhé
https://drive.google.com/file/d/0Bx6z3YcGDvh7OUFDdVZZNi05cjQ/view?usp=sharing

 

[hong1989]

Không phải là tràn ra mà cái nút lệnh đó có nghĩa là tạo thêm 1 trang ngay dưới trang hiện hành.
Nó sẽ dựa vào sheet Temp quy định dòng cuối của 1 trang, do vậy nó sẽ tự nhảy qua chứ không phải là thêm dòng như nút lệnh ghi.
Có thể đổi tên nút lệnh là "Thêm trang" thì chính xác hơn

SOKT1.Range("A" & iReE).Value = 1
SOKT1.Range("A" & iReE + 1 & ":A" & (iReE + nP * nRbt)).Formula = "=R[-1]C+1"

Bạn có thể test thử và gửi file lên cho mình xem được không?

 

[befaint]

Nếu sửa theo bạn khi mà số liệu nhiều hơn 1 trang sẽ bị lỗi thế này
iRe = SOKT1.HPageBreaks(iP).Location.Row - nRbt + 1
Minh gửi file lên bạn test lại thử nhé
https://drive.google.com/file/d/0Bx6z3YcGDvh7OUFDdVZZNi05cjQ/view?usp=sharing

Dòng đó là bạn làm mà. Code chưa chạy tới dòng tôi gợi ý thay thế.

For iP = 1 To nP + 1
If iP <= nP Then
iRe = SOKT1.HPageBreaks(iP).Location.Row - nRbt + 1 'Lỗi tại dòng này. Bug: Subscript out of range.
TEMP.Range("CONGHETTRANG").Copy
Else
iRe = nP * nRbt + TEMP.Range("DongCuoiCung").Value + 1
TEMP.Range("CongTrangCuoi").Copy
End If
'.Range("A" & iRe).PasteSpecial 'Tạm bỏ dòng này rồi bạn chạy lại xem sao?

p/s: Tôi cũng không rõ mục đích yêu cầu của bạn là gì. Nhưng nếu chỉ thêm / xoá footer (có chèn vài công thức) thì có thể copy footer đã tạo >> xác định vị trí cần chèn rồi dán vào / gán mấy công thức vô là được. Phần thiết lập trang in thì set vùng có dữ liệu rồi in thôi.

 

[hong1989]

Dòng đó là bạn làm mà. Code chưa chạy tới dòng tôi gợi ý thay thế.

p/s: Tôi cũng không rõ mục đích yêu cầu của bạn là gì. Nhưng nếu chỉ thêm / xoá footer (có chèn vài công thức) thì có thể copy footer đã tạo >> xác định vị trí cần chèn rồi dán vào / gán mấy công thức vô là được. Phần thiết lập trang in thì set vùng có dữ liệu rồi in thôi.

Mình chỉ sưu tập code ở trên diễn đàn thôi bạn ạ. Mình đang muốn áp dụng để hoàn thiện file của mình