[Help] Nhấp enter sẽ tự động xuống dòng và copy toàn bộ định dạng hàng trên. (1 người xem)

[steven.karbit]

Em xin chào các bác ạ, em có một vài vấn đề mong các bác giúp đỡ em ạ.
Em có một bảng thống kê bán hàng (tên mặt hàng, số lượng, đơn giá, thành tiền). EM đã tự mày mò tìm được cách tạo danh sách chọn cho cột tên mặt hàng và tạo một dòng tính tổng ở cuối bàng.
Vấn đề của em là: em muốn thêm dòng vào bảng bằng cách nhấp enter. Tức là khi em nhấp enter thì sẽ tự chèn thêm một dòng mới vào trên dòng tính tổng cuối cùng (dòng tính tổng luôn luôn ở cuối cùng) và dòng mới sẽ tự động copy các hàm và cài đặt của dòng trên (đặc biệt là cái danh sách chọn).
Em có gửi kèm theo đây bảng mà em đã làm được.
Mong các bác giúp em với ạ.

 

[phulien1902]

Em xin chào các bác ạ, em có một vài vấn đề mong các bác giúp đỡ em ạ.
Em có một bảng thống kê bán hàng (tên mặt hàng, số lượng, đơn giá, thành tiền). EM đã tự mày mò tìm được cách tạo danh sách chọn cho cột tên mặt hàng và tạo một dòng tính tổng ở cuối bàng.
Vấn đề của em là: em muốn thêm dòng vào bảng bằng cách nhấp enter. Tức là khi em nhấp enter thì sẽ tự chèn thêm một dòng mới vào trên dòng tính tổng cuối cùng (dòng tính tổng luôn luôn ở cuối cùng) và dòng mới sẽ tự động copy các hàm và cài đặt của dòng trên (đặc biệt là cái danh sách chọn).
Em có gửi kèm theo đây bảng mà em đã làm được.
Mong các bác giúp em với ạ.

Bạn thử với:

Sub abc()
    ActiveCell.EntireRow.Insert Shift:=xlDown
    ActiveCell.Offset(-1, 0).EntireRow.Copy
    ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlPasteFormulas
End Sub

 

[steven.karbit]

Bạn thử với:

Sub abc()
    ActiveCell.EntireRow.Insert Shift:=xlDown
    ActiveCell.Offset(-1, 0).EntireRow.Copy
    ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlPasteFormulas
End Sub

Bác có thể chỉ cho em cách cài hàm này không ạ, em ko biết cách set mấy cái này ạ.

 

[phulien1902]

Bác có thể chỉ cho em cách cài hàm này không ạ, em ko biết cách set mấy cái này ạ.

Bạn làm như sau:
1. Mở File của bạn ra
2.Gõ Alt + F11
3. Vào Insert ---> Module
4. Copy Code bài#2 vào Module
5. Alt +Q để trở lại bảng tính
6.Tạo nút bấm và gán Code nút.....
Tóm lại bạn cần tìm hiểu 1 chút về Macro, rồi mới tính đến tự động bạn à.

 

[steven.karbit]

Bạn làm như sau:
1. Mở File của bạn ra
2.Gõ Alt + F11
3. Vào Insert ---> Module
4. Copy Code bài#2 vào Module
5. Alt +Q để trở lại bảng tính
6.Tạo nút bấm và gán Code nút.....
Tóm lại bạn cần tìm hiểu 1 chút về Macro, rồi mới tính đến tự động bạn à.

Em cảm ơn bác đã giúp đỡ em ạ.
Em đã làm được rồi nhưng không đúng ý em cho lắm ạ. Ý em là khi nhấp enter ở bất kỳ ô nào tại dòng cuối của bảng (trên dòng tổng) thì sẽ có thêm một dòng mới ngay bên dưới dòng em vửa nhấp enter. Em làm theo cách của bác thì nó lại tự động copy tất cả các cột của dòng đó. Nếu mà có một bảng khác bên cạnh nữa thì sẽ báo lỗi ạ. Và phải chọn cột đầu tiên của dòng rồi nhấp nút thì mới không bị lỗi.
Em gửi kèm đây file của em, bác xem hộ em xem em sai ở đâu ạ.
Em cảm ơn bác.

 

[phulien1902]

Em cảm ơn bác đã giúp đỡ em ạ.
Em đã làm được rồi nhưng không đúng ý em cho lắm ạ. Ý em là khi nhấp enter ở bất kỳ ô nào tại dòng cuối của bảng (trên dòng tổng) thì sẽ có thêm một dòng mới ngay bên dưới dòng em vửa nhấp enter. Em làm theo cách của bác thì nó lại tự động copy tất cả các cột của dòng đó. Nếu mà có một bảng khác bên cạnh nữa thì sẽ báo lỗi ạ. Và phải chọn cột đầu tiên của dòng rồi nhấp nút thì mới không bị lỗi.
Em gửi kèm đây file của em, bác xem hộ em xem em sai ở đâu ạ.
Em cảm ơn bác.

+> Vậy thì chỉ cần 2 dòng:

ActiveCell.EntireRow.Insert Shift:=xlDown
    ActiveCell.Offset(-1, 0).EntireRow.Copy

Bây giờ tại dòng "Total" bạn chọn 1 Cell tùy ý, bấm nút.
+> 1 vấn đề nữa là hàm Vlookup trong File bị sai, bạn phải sửa:

=VLOOKUP(A2,Table1,2)

thành:

=VLOOKUP(A2,Table1,2,0)