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?
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?