在预算中根据类别更改单元格的值

我试图在Excel中做一个简单的预算，我想要一个macros来看看我已经做了哪些改变，然后把改变添加到这个类别中使用的资金的总体概况。

那就是我在表格的顶部有一个“Food”类别的单元格。 更进一步，我把以下内容写入date; 类别; 使用金额。

我的代码已被button使用，直到现在。button检查单元格5左边的位置是否具有值“Dagligvare”，然后更改表中的其他位置的值。 我的问题是，有时候Button会识别这个词，有时它不会。 所以我的问题是：有人可以看到为什么它只有有时即使我不改变任何东西？

Private Sub CommandButton1_Click() Dim celltxt As String celltxt = ActiveCell.Offset(0, -5).Text If InStr(1, celltxt, "Dagligvare") Then Range("C9") = 3 Else MsgBox ("Nope") End If End Sub 

Answer 1

您可以添加更多的msgbox以确保用户具有正确的活动单元

 Private Sub CommandButton1_Click() Dim celltxt As String if (activecell.column = 10) then '<<change 10 to appropriate column celltxt = ActiveCell.Offset(0, -5).Text If InStr(1, celltxt, "Dagligvare") Then Range("C9") = 3 Else MsgBox ("Nope") End If else MsgBox ("Oi! You need to have a cell in column 10 selected") end End Sub