Viết Code Insert Row (1 người xem)

[ngoducdung.hp]

Cho em hỏi,Trong bảng tính excel.Nếu muốn insert thêm 1 dòng vào dòng cuối cùng chứa dữ liệu.thì làm thế nào?

 

[hoangvuluan]

Cho em hỏi,Trong bảng tính excel.Nếu muốn insert thêm 1 dòng vào dòng cuối cùng chứa dữ liệu.thì làm thế nào?

Không cần phải viết code làm gì.
Nếu đang dùng Excel 2003 thì chọn vùng dữ liệu sau đó chuyển nó thành 1 list; nếu là E2007 thì chuyển thành table.
(Tìm đọc thêm thông tin trên diễn đàn)
Hoặc là download cuốn Ebook này của GPE về đọc:
http://www.giaiphapexcel.com/diendan/threads/92922.Ebook-Chuyển-đổi-Excel-2003-sang-Excel-2007-2010

 

[dongducnhiem]

Cho em hỏi,Trong bảng tính excel.Nếu muốn insert thêm 1 dòng vào dòng cuối cùng chứa dữ liệu.thì làm thế nào?

Không thích dùng List mà muốn code thì có code
VD: chọn dòng số 8 rồi bấm nút "InserRow"
Nguồn St GPE.

 

[ThuNghi]

Cho em hỏi,Trong bảng tính excel.Nếu muốn insert thêm 1 dòng vào dòng cuối cùng chứa dữ liệu.thì làm thế nào?

Mà dòng cuối rồi thì dưới còn dòng nào đâu mà insert làm gì. Cứ thế mà copy.

 

[Quang_Hải]

Cho em hỏi,Trong bảng tính excel.Nếu muốn insert thêm 1 dòng vào dòng cuối cùng chứa dữ liệu.thì làm thế nào?

Không biết ô nào có công thức nên copy chèn và copy nguyên dòng luôn, hỏng trúng thì làm tiếp

Khi bạn chon dòng cuối cột A thì sẽ tự đông chèn dòng và copy theo ý của bạn

 

[ngoducdung.hp]

Thank anh Quanghai.Đúng ý em rồi.

 

[concogia]

Thank anh Quanghai.Đúng ý em rồi.

Híc, xì- pam một phát
Trong file, bạn yêu cầu ........bấm cái nút nhưng ..........của anh Quang Hải hổng có cái nút nào
Vô tình cứ chọn trúng ô đó là......nó copy xuống mà cóc quan tâm lúc đó mình có muốn hay không nữa
Híc, khó hiểu quá

 

[Quang_Hải]

Anh Cò ơi em đã nói rồi, cứ làm đại, nếu tác giả thẩy có gì không ổn thì la lên mình sẽ sửa lại.
Um mà anh nói đúng thiệt đó, lẽ ra em nên gán sự kiện Double Click thì hợp lý hơn

To: Ngoducdung

Bạn thay code này vào thì sẽ tốt hơn. Khi nào cần thi chọn ô phía dưới ô cuối có dữ liệu của cột A và Double Click thì sẽ copy >>> tránh việc vô ý như anh Cò đã nhắc nhở

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If [a65536].End(3).Offset(1).Address = ActiveCell.Address Then
    ActiveCell.EntireRow.FillDown
End If
End Sub

 

[ngoducdung.hp]

Thank bác Cò đã góp ý cho em.
Do trình độ còn hơi kém nên,chưa nhận thấy hết được những bất cập đó,Hic..Còn phải học nhiều mà bác.

 

[manuchungtinh]

Anh Cò ơi em đã nói rồi, cứ làm đại, nếu tác giả thẩy có gì không ổn thì la lên mình sẽ sửa lại.
Um mà anh nói đúng thiệt đó, lẽ ra em nên gán sự kiện Double Click thì hợp lý hơn

To: Ngoducdung

Bạn thay code này vào thì sẽ tốt hơn. Khi nào cần thi chọn ô phía dưới ô cuối có dữ liệu của cột A và Double Click thì sẽ copy >>> tránh việc vô ý như anh Cò đã nhắc nhở

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If [a65536].End(3).Offset(1).Address = ActiveCell.Address Then
    ActiveCell.EntireRow.FillDown
End If
End Sub

Mình thì lại nghĩ tạo 1 cái nút Command Buttons sau đó gọi code thì hay hơn, tác giả đỡ phải mò mẫm Double Click trúng chỗ đó mới copy??? (mới toe nên ti toe )