求指导，日期按钮联动自动实现累加累减

天（小白一个）

小白求助求指导，非常感谢
如图和附件，按动增加按钮，日期增加，则库存J5+G5（日期更新后的G5）
按动减少按钮，日期倒退，则库存J5-G5（日期更新前的G5）
这代码该如何写，请求指导，谢谢

ncow

不知是不是你想要的效果，不太明白你的结果是怎么计算的。
Private Sub SpinButton1_SpinDown()
Dim x, y
x = Sheets(1).Cells(5, 10)
y = Sheets(1).Cells(5, 7)
Sheets(1).Cells(5, 10) = x - y
End Sub

Private Sub SpinButton1_SpinUp()
Dim x, y
x = Sheets(1).Cells(5, 10)
y = Sheets(1).Cells(5, 7)
Sheets(1).Cells(5, 10) = x + y
End Sub

天（小白一个）

ncow 发表于 2022-12-21 16:21
不知是不是你想要的效果，不太明白你的结果是怎么计算的。
Private Sub SpinButton1_SpinDown()
Dim x, y ...

大神，膜拜，就是我想要，完美，非常感谢

天（小白一个）

ncow 发表于 2022-12-21 16:21
不知是不是你想要的效果，不太明白你的结果是怎么计算的。
Private Sub SpinButton1_SpinDown()
Dim x, y ...

老师，这个我用久了，发现一个BUG，比如说2022/12/20，每日合计702，库存10000，倒退一天至2022/12/19，每日合计1320，库存=10000-702=9298，这是我要的正确的，同理在前进一天，2022/12/20，每日合计702，库存=9298+702=10000，这是我要的正确的
在此处多操作几次就会出BUG，同样再次操作倒退一天至2022/12/19，每日合计1320，库存=10000-1320=8680，这不是我要的，求助这代码要怎么改才能得到我想要的呢
也就是日期减少，2022/12/19的库存=2022/12/20的库存 - 2022/12/20的每日合计，
         日期增加，2022/12/20的库存=2022/12/19的库存 + 2022/12/20的每日合计，
才是我要的