Tính tổng 1 vùng cột sang cột khác? (1 người xem)

[haikimcuong]

Như tiêu đề em xin hỏi các anh chị cách tính tổng 1 khoảng trong cột A sang cột B như thế này:Em chọn Vùng A1:A5 hoặc có thể 1 vùng bất kỳ nào đó trong cột này, nếu bình thường thì chỉ cần ấn biểu tượng tính tổng thì nó sẽ hiện tổng xuống ô A6 tuy nhiên em không muốn hiện kết quả ở ô đó vì các con số cần tính vẫn phát sinh tiếp, mà lại tính ở ô B5 bên cạnh và cùng dòng với A5(trường hợp này thì cũng có thể dùng sum(A1:A5) nhưng bất tiện quá), và khi kéo xong vùng cần tính tổng nó sẽ hiện 1 msgbox có 2 button Yes và No
Nếu chọn yes thì sẽ hiện kết quả ở ô B và cùng dòng cuối cùng của hàng A đã chọn, còn No thì hủy vùng chọn không hiện kết quả.
Em gửi file cụ thể mong anh chị giúp đỡ.

 

[RoberLiem]

Như tiêu đề em xin hỏi các anh chị cách tính tổng 1 khoảng trong cột A sang cột B như thế này:Em chọn Vùng A1:A5 hoặc có thể 1 vùng bất kỳ nào đó trong cột này, nếu bình thường thì chỉ cần ấn biểu tượng tính tổng thì nó sẽ hiện tổng xuống ô A6 tuy nhiên em không muốn hiện kết quả ở ô đó vì các con số cần tính vẫn phát sinh tiếp, mà lại tính ở ô B5 bên cạnh và cùng dòng với A5(trường hợp này thì cũng có thể dùng sum(A1:A5) nhưng bất tiện quá), và khi kéo xong vùng cần tính tổng nó sẽ hiện 1 msgbox có 2 button Yes và No
Nếu chọn yes thì sẽ hiện kết quả ở ô B và cùng dòng cuối cùng của hàng A đã chọn, còn No thì hủy vùng chọn không hiện kết quả.
Em gửi file cụ thể mong anh chị giúp đỡ.

Làm kiểu khác khỏi Yes - No được không vậy bạn.
Chọn vùng xong, chắc ăn thì Right Click 1 cái thôi.

 

[haikimcuong]

Làm kiểu khác khỏi Yes - No được không vậy bạn.
Chọn vùng xong, chắc ăn thì Right Click 1 cái thôi.

cảm ơn bác nhiều ạ. giải pháp của bác rất tốt.

 

[haikimcuong]

bác ơi cho em hỏi thêm 1 chút?
Giờ em muốn cái khoảng kéo đó khi kick chuột phải thì nó sẽ tự động chuyện màu khác đc k ạ?!
tức là nếu từ A1:A3 thì nó màu xám, sau đó từ A4:a9 nó lại màu trắng tức là sẽ xen kẽ xám - trắng - xám - trắng ấy ạ?

 

[RoberLiem]

bác ơi cho em hỏi thêm 1 chút?
Giờ em muốn cái khoảng kéo đó khi kick chuột phải thì nó sẽ tự động chuyện màu khác đc k ạ?!
tức là nếu từ A1:A3 thì nó màu xám, sau đó từ A4:a9 nó lại màu trắng tức là sẽ xen kẽ xám - trắng - xám - trắng ấy ạ?

Bạn thay Sub này trong Module thử coi sao:

Public Sub Tong()
Dim DC As String, R As Long
With Selection
    DC = .Address
    R = .Rows.Count
    .Resize(1, 1).Offset(R - 1, 1).Value = "=Sum(" & DC & ")"
    If .Offset(-1).Resize(1, 1).Interior.ColorIndex <> 20 Then
        .Resize(, 2).Interior.ColorIndex = 20
    End If
End With
End Sub

 

[haikimcuong]

Tình hình là nó sẽ bôi hết tất tần tật chứ k bôi theo lệch nhau bác nhé mong bác fix lại giúp em

 

[phucbugis]

Tình hình là nó sẽ bôi hết tất tần tật chứ k bôi theo lệch nhau bác nhé mong bác fix lại giúp em

Mình dựa theo code của bạn RoberLiem nhé.

Option Explicit


Public Sub Tong()
Dim DC As String, R As Long
Dim AllClls As Range, Clls As Range
Set AllClls = Selection.SpecialCells(xlCellTypeVisible, xlNumbers)


With Selection
DC = .SpecialCells(xlCellTypeVisible).Address
R = .Rows.Count

.Resize(1, 1).Offset(R - 1, 1).Value = "=Sum(" & DC & ")"

If .Offset(-1).Resize(1, 1).Interior.ColorIndex <> 20 Then
For Each Clls In AllClls
Clls.Resize(, 2).Interior.ColorIndex = 20
Next
End If

End With


End Sub

 

[Ba Tê]

Tình hình là nó sẽ bôi hết tất tần tật chứ k bôi theo lệch nhau bác nhé mong bác fix lại giúp em

Tình hình là sao hông hiểu.
Với code trên của RoberLiem thì kết quả nó tô như vầy không đúng ý bạn sao?

 

[phucbugis]

Tình hình là sao hông hiểu.
Kết quả nó tô như vầy không đúng ý bạn sao?
View attachment 115293

theo mình hiểu ý của haikimcuong: khi có row đang ẩn thì nó fill color xen kẽ đó mà.

 

[haikimcuong]

Em xin lỗi mấy hôm bận k lên đc nhưng em không có row ẩn đâu anh nhé.