Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如何自动增加单元格的输入值_Excel_Automation_Vba - Fatal编程技术网

Excel 如何自动增加单元格的输入值

Excel 如何自动增加单元格的输入值,excel,automation,vba,Excel,Automation,Vba,我想要的是自动增加输入的单元格值 假设我在单元格中输入了3,但我希望它自动递增50,新值为53 你知道我该怎么做吗?这只是cellB9的一个例子。在工作表代码区域安装以下宏: 我看到了@Gary的学生答案,值得考虑。我只是描述另一种方法。选择远离工作区域的区域。说R2:R100,然后用工作表填充系列函数以所需的增量填充它。 您的R2…R5单元格将有7、14、21等值。现在在单元格A2中使用=Row()+R2,并根据您的要求填写。你的A2,A3,A4。。。现在的值为9,17,24。。。。您可以隐藏

我想要的是自动增加输入的单元格值

假设我在单元格中输入了3,但我希望它自动递增50,新值为53
你知道我该怎么做吗?

这只是cellB9的一个例子。在工作表代码区域安装以下宏:


我看到了@Gary的学生答案,值得考虑。我只是描述另一种方法。选择远离工作区域的区域。说
R2:R100
,然后用工作表填充系列函数以所需的增量填充它。
您的R2…R5单元格将有7、14、21等值。现在在单元格A2中使用
=Row()+R2
,并根据您的要求填写。你的A2,A3,A4。。。现在的值为9,17,24。。。。您可以隐藏R列,使其不可见。

一个单元格或多个单元格???@Gary的学生谢谢您的vba代码工作正常谢谢:)
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Intersect(Target, Range("B9")) Is Nothing Then Exit Sub
  If IsNumeric(Target.Value) Then
    Application.EnableEvents = False
      Target.Value = Target.Value + 50
    Application.EnableEvents = True
  End If
End Sub