Xin nhờ giúp chèn 1 dòng tổng cho mỗi nhân viên (7 người xem)

[vovietkhanh]

Trong file này ở sheet 6 , mình cầm có thêm dòng SUM tổng tiền cho từng công nhân , nhờ các bác giúp ! trân trọng

 

[SA_DQ]

Bạn nên tóm gọn nội dung bài viết thành tiêu đề
& đưa tiêu đề vô thành nội dung bài viết!
Chúc toàn thể các bạn ngày cuối tuần vui vẻ!

 

[ptm0412]

Làm thủ công trong khoảng 1 phút. Nếu bạn sửa tiêu đề thì tôi sẽ hướng dẫn.

 

[huynh phuc9]

Xem thử cái này xem có giúp được gì bạn không.

 

[Hoàng Tuấn 868]

Xem thử cái này xem có giúp được gì bạn không.
View attachment 276590

Có vẻ không ổn vì khi cộng tổng tất cả thì sẽ không còn đúng nữa.

 

[ptm0412]

Xem thử cái này xem có giúp được gì bạn không.

- Người ta cần 1 dòng tổng cho từng công nhân, không phải cột
- Nguyên bảng từ cột A đến hết, là kết quả của code, nên hạn chế chèn cột. Khi chạy lại code sẽ mất hết công thức. (nghe đồn là 125 cột)

 

[VetMini]

Làm thủ công trong khoảng 1 phút. Nếu bạn sửa tiêu đề thì tôi sẽ hướng dẫn.
....

Một phút lận? Eo ơi, sao mà chậm tiến quá.

Nhờ viết code "bấm một phát" chỉ dưới 1 giây. Lỡ đợi trên 1 giây thì lại xin "nhờ tối ưu code và tăng tốc". Thời buổi GPE đói bài, thiếu gì người xung phong làm giùm.

 

[SA_DQ]

Việc thêm dòng cho mỗi người đã mất gần 3" rồi:

Sub InsertRowsForStaffCode()
 Dim Tmr As Double

 Tmr = Timer
 Sheet1.Select:                 Range("A8").Select
 ActiveCell.Offset(1, 0).Select
 While ActiveCell.Value <> ""
    If ActiveCell.Value <> ActiveCell.Offset(-1, 0).Value Then
        ActiveCell.EntireRow.Insert
        ' . . .'
        ActiveCell.Offset(2, 0).Select
    Else
        ActiveCell.Offset(1, 0).Select
        ' . . . . . '
    End If
 Wend
 [I1].Value = Timer - Tmr
End Sub

[Cũng có thể có cách khác nhanh hơn, 1 khi chủ bài đăng thực hiện theo chỉ đạo. . . ]

 

[ptm0412]

Một phút lận? Eo ơi, sao mà chậm tiến quá.

Nhờ viết code "bấm một phát" chỉ dưới 1 giây. Lỡ đợi trên 1 giây thì lại xin "nhờ tối ưu code và tăng tốc". Thời buổi GPE đói bài, thiếu gì người xung phong làm giùm.

Việc thêm dòng cho mỗi người đã mất gần 3" rồi:
[Cũng có thể có cách khác nhanh hơn, 1 khi chủ bài đăng thực hiện theo chỉ đạo. . . ]

Có code rồi. Viết mới lâu chứ nhấn chạy thì nhanh.

 

[VetMini]

[Cũng có thể có cách khác nhanh hơn, 1 khi chủ bài đăng thực hiện theo chỉ đạo. . . ]

Bạn nghĩ mình ở diễn đàn nào vậy?
Ở GPE chỉ có bên giúp "thực hiện theo chỉ đạo" của bên nhờ. Chứ bảo bên nhờ thì còn phya.

 

[ptm0412]

Nghía nghía thấy tiêu đề đã sửa, lại nghía thấy lão "xực cẩu tặc" viết Do Loop từ trên xuống cũng ngứa tay. Vấn đề là mọi người quen lợi dụng VBA, lợi dụng hàm công thức khủng nên quên hoặc không hề biết chức năng sub total có sẵn từ cả 2 chục năm trước. Nhấn, đánh dấu, nhấn ok chưa tới 1 phút là có thật.



Nếu có tùy chọn số ngày tùy ý căn cứ vào from - to ở B1:B2, sinh ra số lượng cột khác nhau thì mới phải dùng VBA: Ai lại dùng Do Với For!

Sub RemoveSubTotal()
    lastrw = ActiveSheet.[B10000].End(xlUp).Row
    Lastcol = ActiveSheet.[A8].End(xlToRight).Column
    Range("A8").Resize(lastrw, Lastcol).RemoveSubTotal
End Sub

Sub AddSubTotal()
Application.DisplayAlerts = False
    lastrw = ActiveSheet.[B10000].End(xlUp).Row
    Lastcol = ActiveSheet.[A8].End(xlToRight).Column
    Range("A8").Resize(lastrw, Lastcol).Subtotal GroupBy:=2, Function:=xlSum, _
    TotalList:=(Evaluate("=Column(" & Range(Cells(8, 5), Cells(8, Lastcol)).Address & ")")) _
    , Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Application.DisplayAlerts = True
End Sub

Thứ tự chạy:
- RemoveSubTotal
- Code chính
- AddSubTotal

 

[VetMini]

.... Nhấn, đánh dấu, nhấn ok chưa tới 1 phút là có thật.

Đâu có ai cho rằng bạn nói phét. Nhưng đó là bạn làm.
Ở đây, tôi muốn nói rằng "bảo người hỏi bài chấp nhận 1 phút là chuyện không có thật"

 

[ptm0412]

Đâu có ai cho rằng bạn nói phét. Nhưng đó là bạn làm.
Ở đây, tôi muốn nói rằng "bảo người hỏi bài chấp nhận 1 phút là chuyện không có thật"

Tôi trả lời chung anh ạ. Câu trả lời 1 phút liên quan đến bài 3, và đến cái chức năng nhiều người chưa từng thấy hoặc đã lãng quên. Những cái tồn tại cả chục năm, 2 chục năm. Và tiếc rẻ 1 phút cuộc đời rồi đi hỏi đi nhờ cho tốn mấy ngày chờ đợi.

 

[vovietkhanh]

Có bác nào chép code vào file giúp em không ạ , vì file này do 1 người bạn làm giúp, bản thân thì mù tịt về code nên cần các bác giúp !!! trân trọng.

 

[ptm0412]

Có bác nào chép code vào file giúp em không ạ , vì file này do 1 người bạn làm giúp, bản thân thì mù tịt về code nên cần các bác giúp !!! trân trọng.

Vậy thì làm theo hướng dẫn "1 phút" không cần code

 

[VetMini]

Vậy thì làm theo hướng dẫn không cần code

Bạn chịu tôi chưa? Người ta có trăm vạn cách và cớ để tránh cái 1 phút của bạn. Nhìn câu hỏi từ đầu là đoán ra rồi.

Hướng dẫn: hình như tôi có nói ở bài #10 rồi. Ở GPE này hiếm có chuyện người hỏi chịu nghe theo "hướng dẫn"

 

[SA_DQ]

Đã là khách của GPE.COM là thượng đế luôn rồi mà: Các thợ code cầm tay chỉ việc ngay đi thôi!

 

[satthuvae]

Bạn chịu tôi chưa? Người ta có trăm vạn cách và cớ để tránh cái 1 phút của bạn. Nhìn câu hỏi từ đầu là đoán ra rồi.

Hướng dẫn: hình như tôi có nói ở bài #10 rồi. Ở GPE này hiếm có chuyện người hỏi chịu nghe theo "hướng dẫn"

Luôn lắng nghe Anh/Chị trên diễn đàn ạ, chắc do sự tương tác không phải trực tiếp nên chưa hiểu ý anh ạ

 

[ptm0412]

Bạn chịu tôi chưa? Người ta có trăm vạn cách và cớ để tránh cái 1 phút của bạn. Nhìn câu hỏi từ đầu là đoán ra rồi.

Hướng dẫn: hình như tôi có nói ở bài #10 rồi. Ở GPE này hiếm có chuyện người hỏi chịu nghe theo "hướng dẫn"

Tôi chịu anh lâu rồi. Tôi cũng thấy câu hỏi từ đầu, cũng biết yêu cầu là code, nhưng tôi cố tình trả lời "1 phút" ở bài 3. Code bài 11 là tôi viết mỗi Sub chỉ 1 dòng lệnh để cho thấy không cần suy nghĩ Do +1 dòng hay +2 như bài phía trên đó.