Xin trợ giúp cộng theo nhóm (1 người xem)
- Thread starter nncb2008
- Ngày gửi
Người dùng đang xem chủ đề này
- Tham gia
- 8/6/06
- Bài viết
- 14,693
- Được thích
- 23,049
- Nghề nghiệp
- U80
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!)
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!)
PHP:
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
Mã:
[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]
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,972
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
Upvote
0
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.
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.
Upvote
0
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.
Upvote
0
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,588
- Giới tính
- Nam
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.
Lần chỉnh sửa cuối:
Upvote
0
Upvote
0
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 ạ?
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 ạ?
Lần chỉnh sửa cuối:
Upvote
0
Dạ đây bác Ba Tê giúp em với. Em cảm ơn bác nhiều ạ.
Upvote
0
