在sumif公式中使用带有字符串函数变量的通配符

Question

我创建了一个追踪家庭消费的计划。如果计算，它基本上是一大笔钱。每个月我都会从我们的银行下载信用卡和借记卡费用，然后对我的宏进行排序，然后对每笔费用进行分类。

我正在努力使这个过程更容易，所以我的妻子和法律也可以使用该程序。

我正在尝试插入一个代码，该代码将输入一个输入到输入框中的变量，并将所述变量放入总和中。变量将是费用的名称。我希望我的妻子能够将标签输入到输入框（触发总和的字符串），然后将excel自动添加到我使用的费用数据库中。这需要附带一张外卡，因为我们的一些月费与其相关的计算机生成名称非常奇怪。

到目前为止，我已经提出了一个代码，通过我的研究它应该可行....但它没有。我在这里做错了什么？

Sub ab_formula()
'
'ab_formula Macro

'



Dim NameExpense As String
Dim TagForExpense As String

NameExpense = InputBox("Enter the name of the new expense", "New Expense", "Type Here", 0, 0)


 TagForExpense = InputBox("Enter the name of the new expense", "TagForExpense", "Type Here", 0, 0)


Range("J23:J2000").Select
ActivateCell.FormulaR1C1 = "SUMIF(C[-8]," * "&TagForExpense&" * ",C[-7])"

Range("I23").Select
ActiveCell.FormulaR1C1 = NameExpense

End Sub

如果我能说清楚的话，请告诉我。