单元格相对于活动单元格在名为范围内的单个列内设置值

问题描述：

我已经将以下代码写入较大的子例程，以设置单元格相对于活动单元格的值，已经在活动单元格内完成。单元格相对于活动单元格在名为范围内的单个列内设置值

ActiveCell.Offset(0, 5).Value = "CLV 7"

虽然这个作品，我可能需要在未来将列添加到我的工作，这提出了一个问题，由于需要它的值被设置单元格位置的变化，并通过协会每次添加新列时都需要重写代码。

在考虑这个变量时，我研究了结果，为每个列定义了一个范围名称，需要在其中设置值。我想我可以确定变量&活动行和命名范围列之间的可重新定位的相交点，并将其定义为需要设置值的单元格。

在此之后我研究的方法来定义这个变量交集，并试图设置以下交替代码：

ActiveCell.Offset(0, 0).Range("BusinessStudies").Value = CLV 7

，希望它会做的伎俩

，但遗憾的是它没有。我看过其他帖子，看不到任何成功的情况下如何调整它，因为我看不到任何类似的请求。我希望任何人都能提供帮助。提前致谢！

答

尝试相交（）函数在VBA

Debug.Print Intersect(Rows(ActiveCell.Row), Range("MyRange")).Value

编辑：适用于您的情况，假设你想要的字符串 “CLV 7” 进入细胞：

Intersect(Rows(ActiveCell.Row), Range("BusinessStudies")).Value = "CLV 7"

感谢@ teylyn。我认为这需要“MyRange”的定义？我想我已经看到，这需要一些代码才能在子例程的早些时候执行，但我对此没有把握。你能否指点我正确的方向，以便我可以完成该部分？ – ManbyRiver

在进一步思考时，是否将“MyRange”替换为已定义的范围名称？另外，我是否简单地使用此代码替换当前代码并在末尾添加“=”CLV 7“？因此，新代码将如下所示：编辑：我刚刚尝试过，它不是工作。你能否提出其他调整或替代方案？ – ManbyRiver

是的。您可以轻松将其应用于您的情况。 '相交（行（ActiveCell.Row），范围（“BusinessStudies”））。值=“任何”'。你需要用任何你想在单元中取代“无论”。我编辑了我的帖子。 – teylyn