Mới
 Cộng đồng

Làm cho Sum by ColorFunction tự động

  Excel
MrRemodel
  MrRemodel
  Thứ năm, 05 tháng 1 2023
  1 Trả lời
  3.7 nghìn lượt truy cập
0
Bình chọn
Undo
Cảm ơn trước cho bất kỳ sự giúp đỡ về điều này mà bạn có thể cung cấp.

Với sự trợ giúp của trang web này, tôi đã tạo chức năng sau;

Chức năng ColorFunction(rColor As Range, rRange As Range, SUM tùy chọn dưới dạng Boolean)
Dim rCell As Range
Dim lCol Càng Dài
Làm mờ vResult
lCol = rColor.Interior.ColorIndex
Nếu SUM = Đúng thì
Đối với mỗi rCell trong rRange
Nếu rCell.Interior.ColorIndex = lCol Thì
vResult = WorksheetFunction.SUM(rCell, vResult)
Cuối Nếu
rCell tiếp theo
Khác
Đối với mỗi rCell trong rRange
Nếu rCell.Interior.ColorIndex = lCol Thì
vResult = 1 + vResult
Cuối Nếu
rCell tiếp theo
Cuối Nếu
ColorFunction = vResult
Cuối Chức năng


Trong mỗi ô mục tiêu mà tôi muốn tổng của tất cả các ô trong hàng đó có chứa màu của ô đã chỉ định;
=hàm màu(AR4,H5:AP5,TRUE)

Làm cách nào tôi có thể cập nhật mục tiêu bán khi bất kỳ ô nào khác trong hàng (H5:AP5) đổi màu?
0
Cũ nhất trước  
Amanda Lee
Amanda Lee
1 năm trước
·
#3338
0
Bình chọn
Undo
Chào bạn,

Bạn có thể thêm mã: Ứng dụng.Tính toán = xlAutomatic cho chức năng của bạn:

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)

Dim rCell As Range

Dim lCol As Long

Dim vResult

Application.Calculation = xlAutomatic

lCol = rColor.Interior.ColorIndex

If SUM = True Then

For Each rCell In rRange

If rCell.Interior.ColorIndex = lCol Then

vResult = WorksheetFunction.SUM(rCell, vResult)

End If

Next rCell

Else

For Each rCell In rRange

If rCell.Interior.ColorIndex = lCol Then

vResult = 1 + vResult

End If

Next rCell

End If

ColorFunction = vResult

End Function


Hãy thử nó.

Amanda
  • Trang :
  • 1
Không có câu trả lời cho bài viết này.