Question

对不起，这是非常基本的，我不是很擅长VBA。我想要的只是有一个按钮，当点击时存储一个整数，然后从另一个值中减去该值。例如，如果value1 = 100，则单击该框并输入一个数字，然后从100减去该数字。所以，让我们说你输入30，数字应该变为70，如果你再次这样做，它应该去一旦100用完，显示一个msgbox。它只是我努力奋斗的项目的一部分。

Answer 1

这可能会给你一些想法。在标准代码模块中输入：

Public balance As Long

Sub Deposit()
   'adds to the current amount
    balance = balance + InputBox("Please enter a value")
End Sub

Sub Withdraw()
    Dim v As Long

    v = InputBox("Enter a value, maximum of " & balance)

    If balance < v Then

        MsgBox "Sorry, that value is too big"
    Else
        balance = balance - v
    End If

    If balance = 0 Then MsgBox "Amount is exhausted"
End Sub

将这两个子附加到按钮上，看看它们是如何工作的。

关于公共变量的警告 - 如果某些事情导致您的项目重置，那么您就会丢失数据。在单元格中存储值并不会产生同样的问题（但您必须确定将它们放在何处而不会使工作表混乱）。

更新值并从中减去

1 个答案: