Question

我想在excel中用VBA代码实现以下功能

在B1中输入1月或2月又或3月，C1的计算结果则显示在相应的B列中，并且不会因为C1的数值变化而随之改变．（用函数IF是出现C1的数值变化而改变的）
如：B1输入1，C1的计算结果为100，则B2显示为100，B1输入2，C1的计算结果为200，则B3显示为200，同时B2的数值100不会因为C1的数值变化而变为0．
－－－－－－－－－－－－－
A列　　B列　　C列
收支　　　1　　计算结果
1月　
2月
3月

Answer 1

'右击工作表标签，查看代码，把下面的代码贴到打开的VBA窗口。这就足够多。只要改动B1，就会导致你要的结果。不要还不行~~~

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B1" Then Target.Offset(Target.Value, 0) = [c1]
End Sub

追问

非常感谢您的回答
请问 If Target.Address(0, 0) = "B1" Then Target.Offset(Target.Value, 0) = [c1]
这句是什么意思？

追答

如果你改的是 B1 单元格，那么，从B1向下偏移，你写了几就走几个，然后偏移的单元格的值等于C1

Answer 2

VBA这个不难实现（个人觉得这样处理很无聊和没必要），还不如在B列上输入公式，然后拖动鼠标自动向下填充公式来得更快。