Sum có điểm dừng (3 người xem)

yen_truy_van · 13/3/08

Nhờ Anh Chị giúp lập dùm công thức: tổng trong cột nhưng có điểm dừng (file đính kèm).

hoangdanh282vn · 13/3/08

yen_truy_van đã viết:
Nhờ Anh Chị giúp lập dùm công thức: tổng trong cột nhưng có điểm dừng (file đính kèm).

Bạn dùng hàm Sumif là được.
B5=SUMIF(A:A,A5,B:B)
C9=SUMIF(A:A,A9,B:B)
….
Không biết sao gủi file ko được
Bạn nhớ điền mã CV(AAA..) vào tất cả những dòng liên quan đến CV đó
VD từ dòng A5 đến A8 là AAA

anhtuan1066 · 13/3/08

Với bài toán này thì dùng công thức ko hay bằng VBA.. vì nếu tính 1 cách tổng quát thì ta phải làm công thức cho toàn bộ cột C, với điều kiện cột A khác rổng thì sẽ SUMIF theo cột A... như vậy sẽ quá phí...
Bạn xong file này dùng vòng lập nhé.. (Hãy sửa code lại cho đúng với thực tế)
ANH TUẤN

yen_truy_van · 14/3/08

Mấy anh chỉ em, em không hiểu gì hết, vì em chưa biết nhiều về công thức cũng như VBA. Xin các anh giúp trực tiếp trên file em đã gởi kèm. Cám ơn các anh nhiều, cám ơn diễn đàn luôn !!!

BinhTam · 14/3/08

bc1: bạn mở excel rồi chọn tool-macro-security rồi bạn click vào mục "medium" đóng chương trình excel lại .
b2.bạn mở file đính kèm của anhtuan1066, khi hiện bảng thông báo"bạn click nút "enable". sau đó click nút tổngcộng trong file excel nó sẽ tự tính.

yen_truy_van đã viết:
Mấy anh chỉ em, em không hiểu gì hết, vì em chưa biết nhiều về công thức cũng như VBA. Xin các anh giúp trực tiếp trên file em đã gởi kèm. Cám ơn các anh nhiều, cám ơn diễn đàn luôn !!!

hoangdanh282vn · 15/3/08

yen_truy_van đã viết:
Nhờ Anh Chị giúp lập dùm công thức: tổng trong cột nhưng có điểm dừng (file đính kèm).

Bạn xem thêm ở đây
http://www.giaiphapexcel.com/forum/showthread.php?t=8663

Dauthivan · 3/12/11

anhtuan1066 đã viết:
Với bài toán này thì dùng công thức ko hay bằng VBA.. vì nếu tính 1 cách tổng quát thì ta phải làm công thức cho toàn bộ cột C, với điều kiện cột A khác rổng thì sẽ SUMIF theo cột A... như vậy sẽ quá phí...
Bạn xong file này dùng vòng lập nhé.. (Hãy sửa code lại cho đúng với thực tế)
ANH TUẤN

Thưa thày có cách nào dùng VBA mà kết quả sau khi chạy xong, tại ô kết quả nó là công thức chứ không phải là giá trị (Value). Em ví dụ sau khi chạy VBA thì ô C11 xuất hiện công thức (=)A6+A7+A8 không ah.

ndu96081631 · 4/12/11

Dauthivan đã viết:
Thưa thày có cách nào dùng VBA mà kết quả sau khi chạy xong, tại ô kết quả nó là công thức chứ không phải là giá trị (Value). Em ví dụ sau khi chạy VBA thì ô C11 xuất hiện công thức (=)A6+A7+A8 không ah.

Code cũ là:

PHP:

Sub TongCong()
  Dim Er As Integer, iM As Integer
  Er = Range("B10000").End(xlUp).Row
  Range("C5:C" & Er).ClearContents
  For i = Er To 5 Step -1
    iM = iM + Cells(i, 2).Value
    If Cells(i, 1) <> "" Then
       Cells(i, 3).Value = iM
       iM = 0
    End If
  Next i
End Sub

Sửa lại tí thôi:

PHP:

Sub TongCong()
  Dim Er As Integer, iM As String
  Er = Range("B10000").End(xlUp).Row
  Range("C5:C" & Er).ClearContents
  For i = Er To 5 Step -1
    If iM = "" Then iM = Cells(i, 2).Address(0, 0)
    If Cells(i, 1) <> "" Then
       Cells(i, 3).Value = "=SUM(" & Cells(i, 2).Address(0, 0) & ":" & iM & ")"
       iM = ""
    End If
  Next i
End Sub

Dauthivan · 4/12/11

ndu96081631 đã viết:

Sửa lại tí thôi:

PHP:

Sub TongCong()
  Dim Er As Integer, iM As String
  Er = Range("B10000").End(xlUp).Row
  Range("C5:C" & Er).ClearContents
  For i = Er To 5 Step -1
    If iM = "" Then iM = Cells(i, 2).Address(0, 0)
    If Cells(i, 1) <> "" Then
       Cells(i, 3).Value = "=SUM(" & Cells(i, 2).Address(0, 0) & ":" & iM & ")"
       iM = ""
    End If
  Next i
End Sub

Em nghĩ thuật toán từ tối mà không được trong trường hợp em muốn kết quả tổng cộng đặt ngay tại cột B chứ không phải là cột C như bài cũ nữa (tức kết quả tổng tính được đặt ngay trên cùng cột với các thành phần của nó) thì trong trường hợp này code sửa thế nào ah?

Dauthivan · 5/12/11

Dauthivan đã viết:
Em nghĩ thuật toán từ tối mà không được trong trường hợp em muốn kết quả tổng cộng đặt ngay tại cột B chứ không phải là cột C như bài cũ nữa (tức kết quả tổng tính được đặt ngay trên cùng cột với các thành phần của nó) thì trong trường hợp này code sửa thế nào ah?

Các bác biết, xin làm giùm em với. Em đang rất cần học hỏi VBA

Hoàng Trọng Nghĩa · 5/12/11

Dauthivan đã viết:
Em nghĩ thuật toán từ tối mà không được trong trường hợp em muốn kết quả tổng cộng đặt ngay tại cột B chứ không phải là cột C như bài cũ nữa (tức kết quả tổng tính được đặt ngay trên cùng cột với các thành phần của nó) thì trong trường hợp này code sửa thế nào ah?

Nếu không có giá trị ở cột B để cho ra kết quả ở cột C, thì lấy giá trị nào để xuất kết quả ra cột B, mà ý của bạn lại là công thức hả bạn?

ndu96081631 · 5/12/11

Dauthivan đã viết:
Em nghĩ thuật toán từ tối mà không được trong trường hợp em muốn kết quả tổng cộng đặt ngay tại cột B chứ không phải là cột C như bài cũ nữa (tức kết quả tổng tính được đặt ngay trên cùng cột với các thành phần của nó) thì trong trường hợp này code sửa thế nào ah?

Cũng chỉ sửa có tí thôi:

PHP:

Sub TongCong()
  Dim Er As Integer, iM As String
  Er = Range("B10000").End(xlUp).Row
  Range("C5:C" & Er).ClearContents
  For i = Er To 5 Step -1
    If iM = "" Then iM = Cells(i, 2).Address(0, 0)
    If Cells(i, 2) = "" Then
       Cells(i, 2).Value = "=SUM(" & Cells(i + 1, 2).Address(0, 0) & ":" & iM & ")"
       iM = ""
    End If
  Next i
End Sub

Hoàng Trọng Nghĩa · 5/12/11

ndu96081631 đã viết:
Cũng chỉ sửa có tí thôi:
.....

À, thầy làm như vậy em hiểu rồi, tức là tổng của từng mục ghi lại công thức ở ô trống của cột B. Đúng là nếu chỉ vậy thì chỉnh chút xíu thiệt!

Dauthivan · 5/12/11

ndu96081631 đã viết:
Cũng chỉ sửa có tí thôi:

PHP:

.... Cells(i, 2).Value = "=SUM(" & Cells(i + 1, 2).Address(0, 0) & ":" & iM & ")"

cảm ơn thày, em đã tìm ra tại sao em không làm được rồi; tối hôm qua em cũng hình dung như vậy nhưng em quên là vòng lặp đi từ dưới lên trên (step-1) nên thay vì câu lệnh của thày em lại viết là
Cells(i, 2).Value = "=SUM(" & Cells(i -1, 2).Address(0, 0) & ":" & iM & ")" lên nó không ra.

Hoàng Trọng Nghĩa · 5/12/11

Dauthivan đã viết:
cảm ơn thày, em đã tìm ra tại sao em không làm được rồi; tối hôm qua em cũng hình dung như vậy nhưng em quên là vòng lặp đi từ dưới lên trên (step-1) nên thay vì câu lệnh của thày em lại viết là
Cells(i, 2).Value = "=SUM(" & Cells(i -1, 2).Address(0, 0) & ":" & iM & ")" lên nó không ra.

Còn một cái mà tôi thấy vẫn chưa ổn là nếu giá trị bên trong mà thêm mục vào thì mình Insert hàng, nếu insert ở giữa thì khì OK, nhưng nếu bắt buộc từng mục có số thứ tự thì công thức sẽ không cộng vào những mục vừa insert mà code cũng không chạy vì Kết quả đã không phải là rỗng.

VD:
Mục A
A1
A2
A3
Mục B
B1
B2
B3
Sau khi chạy code, thì kết quả là SUM(A1,A3)

Bây giờ ta thêm vào 2 hàng nữa:

Mục A
A1
A2
A3
A4
A5
Mục B
B1
B2
B3
Vì code đã có kết quả ở trên, tức là không rỗng, thì code chạy sẽ bỏ qua kết quả này, như vậy công thức sẽ không được cập nhật, trừ khi ta NHỚ sau khi insert thì xoá cái SUM ở mục đó để chạy lại code.

nguyenmanhnam · 5/12/11

minhthien321 đã viết:
Còn một cái mà tôi thấy vẫn chưa ổn là nếu giá trị bên trong mà thêm mục vào thì mình Insert hàng, nếu insert ở giữa thì khì OK, nhưng nếu bắt buộc từng mục có số thứ tự thì công thức sẽ không cộng vào những mục vừa insert mà code cũng không chạy vì Kết quả đã không phải là rỗng.

VD:
Mục A
A1
A2
A3
Mục B
B1
B2
B3
Sau khi chạy code, thì kết quả là SUM(A1,A3)

Bây giờ ta thêm vào 2 hàng nữa:

Mục A
A1
A2
A3
A4
A5
Mục B
B1
B2
B3
Vì code đã có kết quả ở trên, tức là không rỗng, thì code chạy sẽ bỏ qua kết quả này, như vậy công thức sẽ không được cập nhật, trừ khi ta NHỚ sau khi insert thì xoá cái SUM ở mục đó để chạy lại code.

Theo em cái này cũng đơn giản thôi, thêm câu lệnh xóa để thực hiện nguyên tắc dòng nào mà cột A có số thứ tự sẽ lập tức xóa nội dung cột B của dòng đó đi (cho ô B trở về rỗng như bài toán gốc), sau khi xong thao tác này mới thực hiện lện như thày ndu ở trên.

Hoàng Trọng Nghĩa · 5/12/11

nguyenmanhnam đã viết:
Theo em cái này cũng đơn giản thôi, thêm câu lệnh xóa để thực hiện nguyên tắc dòng nào mà cột A có số thứ tự sẽ lập tức xóa nội dung cột B của dòng đó đi (cho ô B trở về rỗng như bài toán gốc), sau khi xong thao tác này mới thực hiện lện như thày ndu ở trên.

OK, vậy thì code sửa một chút nữa như vầy:

PHP:

Sub TongCong()
    Dim Rng As Range, Er As Long, i As Long, iM As String
    Range([B5], [B65536].End(xlUp)).Font.Bold = False
    For Each Rng In Range([A5], [A65536].End(xlUp))
        If Rng <> vbNullString Then Rng.Offset(, 1).ClearContents
    Next
    Er = [B65536].End(xlUp).Row
    For i = Er To 5 Step -1
        With Cells(i, 2)
            If iM = vbNullString Then iM = .Address(0, 0)
            If .Value = vbNullString Then
                .Value = "=SUM(" & Cells(i + 1, 2).Address(0, 0) & ":" & iM & ")"
                .Font.Bold = True: iM = vbNullString
            End If
        End With
    Next i
End Sub

Vậy là xong!

nguyenmanhnam · 5/12/11

Bài này với những ai mới học VBA tiếp cận là hay, tuy nhiên nó chưa tổng quát lắm, bởi nhiều khi trong công việc các cột số thứ tự và cột cần tính tổng không cố định, năm ngoái em được thày concogia và thày ptm0412 giúp cho bài này http://www.giaiphapexcel.com/forum/...tính-tổng-có-thể-copy-nhanh-không-ạh/page3vào đúng đêm 30 tết năm ngoái, đến giờ em vẫn nhớ như in. Gửi bạn Dauthivan xem tham khảo bài này sẽ giúp cho bạn rất nhiều.

nguyenmanhnam · 5/12/11

Dauthivan đã viết:
cảm ơn thày, em đã tìm ra tại sao em không làm được rồi; tối hôm qua em cũng hình dung như vậy nhưng em quên là vòng lặp đi từ dưới lên trên (step-1) nên thay vì câu lệnh của thày em lại viết là
Cells(i, 2).Value = "=SUM(" & Cells(i -1, 2).Address(0, 0) & ":" & iM & ")" lên nó không ra.

Lúc này Cell(i-1,2) chưa xuất hiện thì làm sao mà tính được hả bạn.

ndu96081631 · 5/12/11

minhthien321 đã viết:
Vì code đã có kết quả ở trên, tức là không rỗng, thì code chạy sẽ bỏ qua kết quả này, như vậy công thức sẽ không được cập nhật, trừ khi ta NHỚ sau khi insert thì xoá cái SUM ở mục đó để chạy lại code.

Lúc trước ta quét từ dưới lên, khi gặp cell rổng thì gán công thức
Giờ ta thêm 1 điều kiện nữa: Quét ngược từ dưới lên, nếu gặp cell rổng hoặc cell chứa công thức thì sẽ gán công thức mới
(chẳng hạn là If Cells(i, 2) = "" Or Cells(i, 2).HasFormula Then)
Đơn giản thế thôi

Sum có điểm dừng (3 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

Nguyễn Cảnh Hoàng Danh

Thành viên gạo cội

File đính kèm

Thành viên mới

Thành viên thường trực

Nguyễn Cảnh Hoàng Danh

Thành viên tiêu biểu

Huyền thoại GPE

Thành viên tiêu biểu

Thành viên tiêu biểu

Chuyên gia GPE

Huyền thoại GPE

Chuyên gia GPE

Thành viên tiêu biểu

Chuyên gia GPE

Thành viên tiêu biểu

Chuyên gia GPE

Thành viên tiêu biểu

Thành viên tiêu biểu

Huyền thoại GPE

Đếm ngược thời gian