公式自动改变

Excel__Boy

我的理解如下，代码

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Application.EnableEvents = False
   
3.     If Target.Address = "$A$1" Then Target = "=Sheet2!A" & Split(Target.Formula, "!A")(1) + 1
   
4. Application.EnableEvents = True
   
5. End Sub

复制代码

效果为：
原来的公式为=Sheet2!A1，点击A1单元格后，公式变成=Sheet2!A2，再点击公式变成=Sheet2!A3，以此类推

excelvlookup

如果公式是=SUM(Sheet2!$A$1:$A$9)，有谁的代码符合楼主的要求？？？如果楼主自定义了单元名称1、2、3公式为=SUM(自定义名称1)，代码还符合要求吗？所以这个问题并不简单。我只是提出来讨论一下，不可能一个公式一个代码吧。