分解SingleCellExtract，并添加一个限制

Question

我正在创建一个费用表，想知道是否有办法根据两个单元格来限制人们每天可以申请的金额，一个单元格有费用名称(即餐费(，另一个单元格是日期。根据规定，员工每天在食品上的花费不能超过60美元。费用表的当前设置是，每个条目都是不同的收据。

这是我用来把所有相同费用加起来的公式

Function SingleCellExtract(LookupValue As String, LookupRange As Range, ColumnNumber As Integer, Char As String)
'Updateby Extendoffice
Dim I As Long
Dim xRet As String
For I = 1 To LookupRange.Columns(1).Cells.Count
If LookupRange.Cells(I, 1) = LookupValue Then
If xRet = "" Then
xRet = LookupRange.Cells(I, ColumnNumber) & Char
Else
xRet = xRet & "" & LookupRange.Cells(I, ColumnNumber) & Char
End If
End If
Next
SingleCellExtract = Left(xRet, Len(xRet) - 1)
End Function

但我不知道如何按天细分和/或限制60美元。

Answer 1

如果我是你，我会有隐藏列，它们最终会变成一个包含空字符串或错误消息的隐藏列。如果你有"；类别"日期"；，以及"；金额"把它变成一个表格(插入-表格(，让你自己更容易获得公式，然后

1. 添加标题为CatDateSubtotal、公式为=SUMIFS([Amt],[Category],[@Category],[Date],[@Date])的新列(在表中，[ColumnTitle]表示所有值，[@ColumnTitle]表示当前行的列值。(

2. 添加另一个标题为Msg、公式为=IF(AND([@Category]="Food",[@CatDateSubtotal]>60),"Too much food for this day!","")的新列

然后，如何使用/呈现此列取决于您。