Question

我试图在Excel中制作一个简单的预算，我想要一个宏来查看我更改了哪个类别，然后将更改添加到该类别中使用的资金的总体概览中。

那就是我在表格的顶部有一个类别＆＃34; Food＆＃34;的单元格。在下面的表格中我放入以下内容：日期;类别;使用的金额。

我的代码一直被按钮使用到现在。按钮检查左边的单元格5是否具有值＆＃34; Dagligvare＆＃34;然后在工作表中的其他位置更改值。我的问题是，有时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以确保用户具有正确的activecell

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

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

1 个答案: