excel利用VBA选择已定义名称的区域

excel利用VBA选择已定义名称的区域

如果活动单元格位于某个已定义名称的区域中，可以用下面的VBA代码来选择这个区域，同时在状态栏中给出提示。

Public Sub SelectRange()Dim RngName As StringDim R As RangeSet R = ActiveCellDim Msg As StringMsg = "活动单元格不在已定义名称的区域中"RngName = CellInNamedRange(R)If RngName <> "" ThenRange(RngName).SelectMsg = "已选择的区域名称： " + RngNameEnd IfApplication.StatusBar = MsgEnd Sub

Public Function CellInNamedRange(Rng As Range) As StringDim N As NameDim C As RangeDim TestRng As RangeOn Error Resume NextFor Each N In ActiveWorkbook.NamesSet C = NothingSet TestRng = N.RefersToRangeSet C = Application.Intersect(TestRng, Rng)If Not C Is Nothing ThenCellInNamedRange = N.NameExit FunctionEnd IfNext NCellInNamedRange = ""End Function

如果活动单元格位于多个已定义名称的区域中，将按照名称框下拉列表中的顺序选择第一个名称区域。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。