摘要： 如果活动单元格位于某个已定义名称的区域中，可以用下面的VBA代码来选择这个区域，同时在状态栏中给出提示。 Public Sub SelectRange()Dim RngName As StringDim R As RangeSet R = A...
如果活动单元格位于某个已定义名称的区域中，可以用下面的VBA代码来选择这个区域，同时在状态栏中给出提示。
Public Sub SelectRange()
Dim RngName As String
Dim R As Range
Set R = ActiveCell
Dim Msg As String
Msg = "活动单元格不在已定义名称的区域中"
RngName = CellInNamedRange(R)
If RngName <> "" Then
Range(RngName).Select
Msg = "已选择的区域名称： " RngName
End If
Application.StatusBar = Msg
End Sub
excel中利用VBA在受到保护的工作表中进行自动筛选
当在工作表中设置了自动筛选，而在保护工作表时没有选择允许“使用自动筛选”，那么自动筛选功能在保护工作表后无法使用。如果需要在不解除工作表保护的情况下能够使用自动筛选，可以用下面的VBA代码： 1.按Alt F11，打开VBA编辑器，在“工程”窗口中选择相应的工作表，在右侧
Public Function CellInNamedRange(Rng As Range) As String
Dim N As Name
Dim C As Range
Dim TestRng As Range
On Error Resume Next
For Each N In ActiveWorkbook.Names
Set C = Nothing
Set TestRng = N.RefersToRange
Set C = Application.Intersect(TestRng, Rng)
If Not C Is Nothing Then
CellInNamedRange = N.Name
Exit Function
End If
Next N
CellInNamedRange = ""
End Function
如果活动单元格位于多个已定义名称的区域中，将按照名称框下拉列表中的顺序选择第一个名称区域。
excel用自定义函数获取某月中指定日期的数量
如果我们要获取某月中指定日期的数量，例如，2009年1月中有几个星期一？用Excel内置的日期时间函数无法解决这个问题。我们可以用自定义函数的方法来解决。按Alt F11打开VBA编辑器，单击菜单“插入→模块”，在右侧的代码窗口中输入自定义函数： Function WeekDaysIn
