Cộng các ô Merge & center

[nammkn02]

Á à là cái bạn có cái bài mà mình bỏ thời gian ngồi code cho xong không í ới gì hết đây à

trời, giờ mình mới thấy bài trả lời của bạn. Thật tuyệt vời, quá đúng ý mình. Cảm ơn Anh @Nhattanktnn rất nhiều!!!!

 

[Hoàng Tuấn 868]

Có cách nào để bấm vào macro là tự động chạy code của anh ko; em toàn phải copy code của anh vào đây thì mới chạy được

Phải chuột vào sheet, chọn insert, modul rồi dán code vào thôi mà.

 

[Maika8008]

trời, giờ mình mới thấy bài trả lời của bạn. Thật tuyệt vời, quá đúng ý mình. Cảm ơn Anh @nhattan090909w rất nhiều!!!!

Cảm ơn người giúp mình mà tag cái tên cũng sai. Bó tay!

 

[nammkn02]

Cảm ơn người giúp mình mà tag cái tên cũng sai. Bó tay!

Mừng quá là có thật bác à! hic mấy đêm mấy ngày đầu óc cứ ngơ ngơ ngẩn ngẩn

 

[Lasderybi]

Mừng quá là có thật bác à! hic mấy đêm mấy ngày đầu óc cứ ngơ ngơ ngẩn ngẩn

Bạn có bài gì mà tâm đắc vậy? Mình tò mò quá

 

[nammkn02]

Bạn có bài gì mà tâm đắc vậy? Mình tò mò quá

Vấn đề về cộng các ô sau khi đã Merge & Center rắc rối quá ạ

 

[nammkn02]

Mọi người ngủ rồi ạ xem cho em file trên với

 

[Lasderybi]

Ý mình là bài mà bạn "trời, giờ mình mới thấy bài trả lời của bạn. " đây cơ, bạn nhờ gì?

 

[nammkn02]

Ý mình là bài mà bạn "trời, giờ mình mới thấy bài trả lời của bạn. " đây cơ, bạn nhờ gì?

bài đó là ở link https://www.giaiphapexcel.com/diend...rge-center-tự-xếp-các-hàng-giống-nhau.155703/

 

[Hoàng Tuấn 868]

Vấn đề về cộng các ô sau khi đã Merge & Center rắc rối quá ạ

Tự tùy biến nhé.

 

[Nhattanktnn]

VBA dành cho bạn:
Sub CongCellMerge()
Dim Rw As Long, Rws As Long, Col As Long

Application.ScreenUpdating = False
Range("B1").Activate
Col = ActiveCell.Column
Do Until ActiveCell.Offset(, -1) = ""
Rw = ActiveCell.Row
Rws = Selection.Rows.Count
ActiveCell = WorksheetFunction.Sum(Range(Cells(Rw, Col - 1), Cells(Rw + Rws - 1, Col - 1)))
ActiveCell.Offset(1).Activate
Loop
Application.ScreenUpdating = True
End Sub

Mà thực ra bài này thì thế này là đủ bác ạ:

Sub abc()
Dim Cll As Range
For Each Cll In Sheets("Sheet1").Range("B1:B26")
    Cll.Value = Application.WorksheetFunction.Sum(Cll.MergeArea.Offset(, -1).Resize(Cll.MergeArea.Rows.Count, 1))
Next
End Sub

Còn bài mới của thớt thì lười quá, thớt tự vận dụng vậy

 

[nammkn02]

Bạn thử dùng file.

Ngoài module anh đã tạo, anh có thể giải thích cho em đoạn code anh tạo trong sheet 1 được ko ạ. (Nhờ có đoạn code này mà em đỡ mất công F5 liên tục), tuy nhiên vì đặc thù công việc phải Import file excel ra liên tục, anh có thể đính kèm đoạn code này của anh vô trong marco hoặc gộp vô module luôn được không ạ?

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 And Target.Row <= Range("D65536").End(xlUp).Row And Target.Column > 12 And Target.Column < 17 Then
Range("R" & Target.Row) = WorksheetFunction.Sum(Range(Cells(Target.Row, 13), Cells(Target.Row, 16)))
End If
End Sub

Bài đã được tự động gộp: 28/5/21

Mà thực ra bài này thì thế này là đủ bác ạ:

Sub abc()
Dim Cll As Range
For Each Cll In Sheets("Sheet1").Range("B1:B26")
    Cll.Value = Application.WorksheetFunction.Sum(Cll.MergeArea.Offset(, -1).Resize(Cll.MergeArea.Rows.Count, 1))
Next
End Sub

Còn bài mới của thớt thì lười quá, thớt tự vận dụng vậy

điền 1 con số lại phải bấm lệnh mới ra được đáp số nên mất công quá anh

 

[Maika8008]

Ngoài module anh đã tạo, anh có thể giải thích cho em đoạn code anh tạo trong sheet 1 được ko ạ. (Nhờ có đoạn code này mà em đỡ mất công F5 liên tục), tuy nhiên vì đặc thù công việc phải Import file excel ra liên tục, anh có thể đính kèm đoạn code này của anh vô trong marco hoặc gộp vô module luôn được không ạ?

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 And Target.Row <= Range("D65536").End(xlUp).Row And Target.Column > 12 And Target.Column < 17 Then
Range("R" & Target.Row) = WorksheetFunction.Sum(Range(Cells(Target.Row, 13), Cells(Target.Row, 16)))
End If
End Sub

Bài đã được tự động gộp: 28/5/21

điền 1 con số lại phải bấm lệnh mới ra được đáp số nên mất công quá anh

Việc chép đoạn code này vào trang code VBA mà không làm được sao bạn? Tuy nhiên đoạn này chỉ có giá trị với trang trong file tôi gửi, không chép chỗ khác được.

 

[nammkn02]

Việc chép đoạn code này vào trang code VBA mà không làm được sao bạn? Tuy nhiên đoạn này chỉ có giá trị với trang trong file tôi gửi, không chép chỗ khác được.

không chép chỗ khác được thì rốt cuộc cũng không giải quyết được vấn đề anh

 

[nammkn02]

Tự tùy biến nhé.

mỗi lần điền số xong lại phải bấm cộng rắc rối quá anh à. Em mong muốn đã là vba thì sẽ tự động đỡ được thao tác

 

[Hoàng Tuấn 868]

mỗi lần điền số xong lại phải bấm cộng rắc rối quá anh à. Em mong muốn đã là vba thì sẽ tự động đỡ được thao tác

Đề bài không ra ngay từ đầu, cứ thêm lắt nhắt nên không có hứng sửa.

 

[nammkn02]

Đổi
Col = ActiveCell.Column
Range("B1").Activate
thành
Range("B1").Activate
Col = ActiveCell.Column
mới đúng nhé anh

Sub CongCellMerge()
Dim Rw As Long, Rws As Long, Col As Long

Application.ScreenUpdating = False
Range("T1").Activate
Col = ActiveCell.Column
Do Until ActiveCell.Offset(, -1) = ""
Rw = ActiveCell.Row
Rws = Selection.Rows.Count
ActiveCell = WorksheetFunction.Sum(Range(Cells(Rw, Col - 1), Cells(Rw + Rws - 1, Col - 1)))
ActiveCell.Offset(1).Activate
Loop
Application.ScreenUpdating = True
End Sub



Mỗi lần em nhập số liệu lại phải mất công click chạy code thì mới ra được kết quả. Có cách nào để code trên tự động cộng khi mình nhập liệu không ạ

Bài đã được tự động gộp: 28/5/21

Đề bài không ra ngay từ đầu, cứ thêm lắt nhắt nên không có hứng sửa.

Hic anh cho em xin zalo được không ạ

 

[Hoàng Tuấn 868]

Hic anh cho em xin zalo được không ạ

Anh dùng điện thoại NOKIA bàn phím vật lý.

 

[nammkn02]

Anh dùng điện thoại NOKIA bàn phím vật lý.

vậy xin anh 10 phút ở group đây với ạ. Chỉnh cho em tự động cộng sau khi người dùng nhập liệu số với

 

[Hoàng Tuấn 868]

vậy xin anh 10 phút ở group đây với ạ. Chỉnh cho em tự động cộng sau khi người dùng nhập liệu số với

Mình không biết "group" là gì.