Xin trợ giúp cộng theo nhóm (1 người xem)

[nncb2008]

Chào các anh, chị.
Em có một file gồm 2 cột: Nhóm và số lượng. Nay muốn nhờ các anh, chị viết cho 1 đoạn code để thêm dòng cộng vào cuối mỗi nhóm và tổng cộng cuối. Em gửi dữ liệu trong file đính kèm.

 

[SA_DQ]

Bạn xem trong file đính kèm

Chú í thêm khi dùng:
Trong file có kèm 1 macro để Copy từ trang tính lưu sang trang tính vận hành
Các macro đã gài sẵn các phím tắc để chúng ta tiện sử dụng

(Xin cảm ơn!)

Option Explicit
Sub CongNhom()
 Dim jJ As Long, Zz As Long, eRw As Long, sSum As Long, aSum As Double
 Dim Temp As String
 
 jJ = 1:                               eRw = [A65500].End(xlUp).Row
 Do
   jJ = jJ + 1
   
   If jJ > 2 * eRw Then
      With [b65500].End(xlUp).Offset(2)
         .Value = aSum:                .Offset().Interior.ColorIndex = 39
         Format .Offset(), False
      End With
      Exit Sub
   End If
   If Cells(jJ, "A").Value <> Cells(jJ, "A").Offset(-1).Value And _
      Cells(jJ, "A").Offset(-1).Value <> "" Then
      If jJ = 2 Then
         Zz = 1:                       sSum = sSum + Cells(jJ, "A").Offset(, 1).Value
      Else
         With Cells(jJ, "A")
            .EntireRow.Insert
            With .Offset(-1, 1)
               .Value = sSum:          Zz = 0
               .Interior.ColorIndex = 35
               aSum = aSum + sSum:     sSum = 0
               Format .Offset()
            End With
         End With
      End If
   Else
      Zz = Zz + 1:                     sSum = sSum + Cells(jJ, "A").Offset(, 1).Value
   End If
 Loop
End Sub

[B]Sub Format(Rng As Range, Optional BTh As Boolean = True)[/B]
    Rng.Font.Bold = True:            Rng.NumberFormat = "#,##0"
    If Not BTh Then Rng.HorizontalAlignment = xlCenter
[B]End Sub[/B]

 

[ndu96081631]

Chào các anh, chị.
Em có một file gồm 2 cột: Nhóm và số lượng. Nay muốn nhờ các anh, chị viết cho 1 đoạn code để thêm dòng cộng vào cuối mỗi nhóm và tổng cộng cuối. Em gửi dữ liệu trong file đính kèm.

Chọn toàn bộ dử liệu rồi vào menu Data\Subtotals ---> Bấm OK 1 nhát thử xem
Với loại bài toán này, MS đã cho ta sẳn công cụ để ta xài.. vậy có cần phải viết code không? Mà viết thì chắc gì đã "ngon" bằng cái đang có sẳn

 

[ybvba]

Các bác giúp em viết code cộng theo nhóm nhưng thể hiện kết quả lên trên từng nhóm...

Các bác giúp đỡ em làm thế nào để đưa kết quả lên trên từng nhóm, đánh số thứ tự trong mỗi nhóm (Em mô tả trong file đính kèm)
Xim trân trọng cảm ơn các bác.

 

[Ba Tê]

Các bác giúp đỡ em làm thế nào để đưa kết quả lên trên từng nhóm, đánh số thứ tự trong mỗi nhóm (Em mô tả trong file đính kèm)
Xim trân trọng cảm ơn các bác.

"Quánh" STT vừa số LAMA, vừa số "thường",
Chú tiểu đang tụng kinh mà ngủ gục, click vào chú tiểu 1 cái thử xem kết quả có vừa ý không.

 

[ybvba]

Em cảm ơn chú tiểu rất nhiều, quá chuẩn luôn chú tiểu ạ. Chú tiểu gõ mõ mà làm được như thế này thì em muốn gõ mõ suốt.

 

[ybvba]

"Quánh" STT vừa số LAMA, vừa số "thường",
Chú tiểu đang tụng kinh mà ngủ gục, click vào chú tiểu 1 cái thử xem kết quả có vừa ý không.

Em có hai vấn đề cần hỏi chú tiểu. Chú tiểu chỉ giúp tiếp cho em với.
- Em có số liệu như trên nhưng từng nhóm a,b,c .. không theo thứ tự,. Em muốn sắp xếp theo thứ tự tăng dần theo nhóm sao đó mới cộng nhóm thì làm thế nào?
- Em mới tập tọe môn này nên không hiểu phần khai báo mảng trong code, mong chú tiểu chỉ cho. Cũng ví dụ trên nhưng cột số liệu của em nằm ở cột D thì em phải khai báo mảng như thế nào để cộng được số liệu.
Em xin trân trọng cảm ơn.

 

[Ba Tê]

Em có hai vấn đề cần hỏi chú tiểu. Chú tiểu chỉ giúp tiếp cho em với.
- Em có số liệu như trên nhưng từng nhóm a,b,c .. không theo thứ tự,. Em muốn sắp xếp theo thứ tự tăng dần theo nhóm sao đó mới cộng nhóm thì làm thế nào?
- Em mới tập tọe môn này nên không hiểu phần khai báo mảng trong code, mong chú tiểu chỉ cho. Cũng ví dụ trên nhưng cột số liệu của em nằm ở cột D thì em phải khai báo mảng như thế nào để cộng được số liệu.
Em xin trân trọng cảm ơn.

Bạn không thể nói giống nhưng khác...
Đưa file dữ liệu của bạn lên, kết quả muốn có ra sao... thì sẽ có người giúp, không có "chú tiểu" cũng có "ni cô" mà.
Nói chung chung như bạn ai mà "ở không" giả lập dữ liệu đúng ý bạn được.

 

[ybvba]

Bạn không thể nói giống nhưng khác...
Đưa file dữ liệu của bạn lên, kết quả muốn có ra sao... thì sẽ có người giúp, không có "chú tiểu" cũng có "ni cô" mà.
Nói chung chung như bạn ai mà "ở không" giả lập dữ liệu đúng ý bạn được.

Em xin lỗi. Em upload file lên các bác giúp em với ạ.
Cảm ơn các bác.

 

[Ba Tê]

Em xin lỗi. Em upload file lên các bác giúp em với ạ.
Cảm ơn các bác.

Xem file này. Bỏ cột Nhóm là sao không hiểu, nếu không cần thì ẩn nó đi, chứ cột D chứa cái gì đây?

 

[ybvba]

Em cảm ơn bác Ba Tê
Dạ bỏ cột nhóm bởi chúng đã được thể hiện ở cột A dòng tổng cộng rồi ạ nên không cần thiết. Em nhập nhầm cột D, theo dữ liệu của em cột này là cột tiếp theo của cột nhóm ạ.
Bác bỏ dòng tổng cộng bên dưới bây giờ em muốn thêm thì làm thế nào ạ?

 

[Ba Tê]

Em cảm ơn bác Ba Tê
Dạ bỏ cột nhóm bởi chúng đã được thể hiện ở cột A dòng tổng cộng rồi ạ nên không cần thiết. Em nhập nhầm cột D, theo dữ liệu của em cột này là cột tiếp theo của cột nhóm ạ.
Bác bỏ dòng tổng cộng bên dưới bây giờ em muốn thêm thì làm thế nào ạ?

Nói vậy ai hiểu, đưa lại file có cấu trúc thật lên đây đi.

 

[ybvba]

Nói vậy ai hiểu, đưa lại file có cấu trúc thật lên đây đi.

Dạ đây bác Ba Tê giúp em với. Em cảm ơn bác nhiều ạ.

 

[Ba Tê]

Dạ đây bác Ba Tê giúp em với. Em cảm ơn bác nhiều ạ.

Vẫn chưa rõ, Nguyễn Văn A bán thép 30 ngày cho 30 người, 30 HĐ, 30 số HĐ, 30 địa chỉ,... thì sao? ghi luôn 30 dòng?
HÌnh như bạn chưa làm thử cái mẫu mà bạn muốn có.

 

[ybvba]

Dạ đúng vậy, chi tiết theo từng hoá đơn bác ạ.

 

[Ba Tê]

Dạ đúng vậy, chi tiết theo từng hoá đơn bác ạ.

Vậy thì làm 1 lần theo ý này, thay đổi ý kiến nữa thì "thua" nghe.

 

[ybvba]

Khà khà em cảm ơn bác nhiều nhé. Em làm được rồi ạ.