Cộng các ô Merge & center (7 người xem)

[nammkn02]

Nhờ mọi người giúp đỡ em tính tổng các ô ở cột A ra kết quả SUM ở ô B (đã được Merge & center) như file đính kèm với ạ

 

[Binbo2020]

Nhờ mọi người giúp đỡ em tính tổng các ô ở cột A ra kết quả SUM ở ô B (đã được Merge & center) như file đính kèm với ạ

Ô đã merge không giống nhau thì bạn coppy công thức kiểu gì được, muốn copy sang ô khác cũng phải vào từng ô một để paste. Công thức từ ô dưới cũng lên tùy bạn chọn

B19=SUM(INDIRECT(ADDRESS(ROW();1)):$A$26)-SUM(INDIRECT(ADDRESS(ROW()+1;2)):$B$26)
C19=SUM(A19:$A$26)-SUM(C20:$C$26)

 

[nammkn02]

Ô đã merge không giống nhau thì bạn coppy công thức kiểu gì được, muốn copy sang ô khác cũng phải vào từng ô một để paste. Công thức từ ô dưới cũng lên tùy bạn chọn

B19=SUM(INDIRECT(ADDRESS(ROW();1)):$A$26)-SUM(INDIRECT(ADDRESS(ROW()+1;2)):$B$26)
C19=SUM(A19:$A$26)-SUM(C20:$C$26)

View attachment 259387

ko thể VBA được ạ anh

 

[Maika8008]

ko thể VBA được ạ anh

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

 

[Nhattanktnn]

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

Application.ScreenUpdating = False
Col = ActiveCell.Column
Range("B1").Activate
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

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

 

[Maika8008]

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

Cảm ơn! Tôi nhầm to he.

 

[nammkn02]

Cảm ơn các Anh nhiều ạ; Sẵn tiện nhờ giúp em cộng các Merge & Center đây nữa với ạ

 

[Maika8008]

Cảm ơn các Anh nhiều ạ; Sẵn tiện nhờ giúp em cộng các Merge & Center đây nữa với ạ

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

Application.ScreenUpdating = False
Range("R2").Activate
Col = ActiveCell.Column
Do Until ActiveCell.Offset(, -14) = ""
Rw = ActiveCell.Row
ActiveCell = WorksheetFunction.Sum(Range(Cells(Rw, Col - 5), Cells(Rw, Col - 2)))
ActiveCell.Offset(1).Activate
Loop
Application.ScreenUpdating = True
End Sub

 

[nammkn02]

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

Application.ScreenUpdating = False
Range("R2").Activate
Col = ActiveCell.Column
Do Until ActiveCell.Offset(, -14) = ""
Rw = ActiveCell.Row
ActiveCell = WorksheetFunction.Sum(Range(Cells(Rw, Col - 5), Cells(Rw, Col - 2)))
ActiveCell.Offset(1).Activate
Loop
Application.ScreenUpdating = True
End Sub

có cách nào để khỏi phải refresh ko ạ. Tức thay đổi số liệu là tự động cộng luôn. Mặc định cột R là Sum hết chứ ko cần phải mất công bôi đen

 

[Maika8008]

có cách nào để khỏi phải refresh ko ạ. Tức thay đổi số liệu là tự động cộng luôn. Mặc định cột R là Sum hết chứ ko cần phải mất công bôi đen

Vậy thì phải dùng cách Worksheet_Change thôi

 

[nammkn02]

Nhờ anh giúp em với ạ

Vậy thì phải dùng cách Worksheet_Change thôi

 

[Maika8008]

Nhờ anh giúp em với ạ

Bạn thử dùng file.

 

[nammkn02]

Bạn thử dùng file.-

1. Nhờ anh *1.000đ vào ô giúp em với ạ. (hiển thị số nghìn đồng)
2. Nhờ anh mặc định hết cả cột R giúp em. Mặc định ô merge R = Tổng các ô Merge M + N + O + P
3. Cho em hỏi câu ngoài lề, có cách nào để liên kết Marco tự động copy và chạy module ko ạ
Cảm ơn và biết ơn các Anh ở group nhiều đã bỏ thời gian ra giải quyết các vấn đề công việc giúp em. Em muốn học về khai báo Dim Rw As Long, Col As Long ... thì học ở đâu ạ. Xin được hướng dẫn tài liệu giúp em ạ

 

[Maika8008]

1. Nhờ anh *1.000đ vào ô giúp em với ạ. (hiển thị số nghìn đồng)
2. Nhờ anh mặc định hết cả cột R giúp em. Mặc định ô merge R = Tổng các ô Merge M + N + O + P
3. Cho em hỏi câu ngoài lề, có cách nào để liên kết Marco tự động copy và chạy module ko ạ
Cảm ơn và biết ơn các Anh ở group nhiều đã bỏ thời gian ra giải quyết các vấn đề công việc giúp em. Em muốn học về khai báo Dim Rw As Long, Col As Long ... thì học ở đâu ạ. Xin được hướng dẫn tài liệu giúp em ạ

1. Không hiểu nhân 1000 sao phải nhờ?
2. Mặc định cả cột để làm gì? hiện tại mặc định cứ cột D có dữ liệu đến đâu thì code có tác dụng đến đó
3. Macro tự động copy nào? Muốn nói gì thì bày cái file ra đây!
Học trên mạng, search google đầy.

 

[nammkn02]

1. Không hiểu nhân 1000 sao phải nhờ?
2. Mặc định cả cột để làm gì? hiện tại mặc định cứ cột D có dữ liệu đến đâu thì code có tác dụng đến đó
3. Macro tự động copy nào? Muốn nói gì thì bày cái file ra đây!
Học trên mạng, search google đầy.

Anh cho em số zalo được ko ạ? Em cứ phải chờ nhiều thời gian để được trả lời lâu quá anh à

 

[Hoàng Tuấn 868]

Có bạn sắp thành Bác sĩ riêng rồi, thân chủ mà ới thì tới liền.

 

[nammkn02]

Anh @Hoàng Tuấn 868 cho em cái code mà làm khổ thằng em.
Code của anh ở link quá ok rồi, nhưng mỗi lần áp dụng cứ phải Alt + F11, sau đó copy code vào module mất công

Tự động merge & center tự xếp các hàng giống nhau

Nhờ các anh chị giúp mình vấn đề về merge & center tự xếp các hàng giống nhau như trong fileđính kèm vớiạ

www.giaiphapexcel.com

 

[Hoàng Tuấn 868]

Anh @Hoàng Tuấn 868 cho em cái code mà làm khổ thằng em.
Code của anh ở link quá ok rồi, nhưng mỗi lần áp dụng cứ phải Alt + F11, sau đó copy code vào module mất công

Mình không hiểu sao phải như vậy nhỉ, bạn có lưu file với định dạng xlsm không vậy.

 

[nammkn02]

Mình không hiểu sao phải như vậy nhỉ, bạn có lưu file với định dạng xlsm không vậy.

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

 

[Nhattanktnn]

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

Á à 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 à