Excel VBA技术咨询：自定义函数无法获取选中单元格的问题排查

你的这个问题其实是Excel自定义函数（UDF）的一个常见限制——UDF不能依赖Selection这类外部交互状态，原因主要有两点：

1. Excel的计算引擎不会把Selection的变化视为UDF的依赖项，所以即便你切换选中的单元格，UDF也不会自动重新计算，始终沿用之前计算时的Selection值；
2. 更关键的是，当Excel在后台计算UDF时，Selection的指向可能根本不是你手动选中的单元格——比如批量计算多个单元格时，Selection可能会临时指向公式所在的单元格，这就导致你总是得到公式单元格偏移后的值。

根据你的需求，有两种可行的解决思路：

思路一：用工作表事件自动响应选中变化 #

通过Worksheet_SelectionChange事件，每次选中单元格变化时触发UDF所在单元格的重新计算，确保UDF能获取最新的选中状态：

1. 按Alt+F11打开VBA编辑器，找到你要使用该函数的工作表（比如左侧工程窗口里的Sheet1）；
2. 粘贴以下事件代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 重新计算包含SelectedRange函数的单元格，可根据实际修改范围
    ' 如果要重新计算整个工作表，就用Me.Calculate
    Me.Range("A1").Calculate
End Sub

3. 给原函数加个错误处理（避免无选中时出错）：

Function SelectedRange(Optional ShiftRow As Long = 0, Optional ShiftColumn As Long = 0) As Range
    On Error Resume Next ' 处理未选中单元格的情况
    Set SelectedRange = Selection.Offset(ShiftRow, ShiftColumn)
    On Error GoTo 0
End Function

这样每次你切换选中的单元格，指定的公式单元格就会自动重新计算，返回最新选中单元格的偏移值。

思路二：给函数加触发参数手动更新 #

如果你不想用事件代码，可以给UDF加一个无关的触发参数，让Excel认为这个函数依赖于某个变化项，从而在你需要更新时触发计算：

Function SelectedRange(Optional ShiftRow As Long = 0, Optional ShiftColumn As Long = 0, Optional Trigger As Variant) As Range
    On Error Resume Next
    Set SelectedRange = Selection.Offset(ShiftRow, ShiftColumn)
    On Error GoTo 0
End Function

使用公式时可以这样写：=SelectedRange(0,0,TODAY())，或者引用一个你会手动修改的单元格（比如=SelectedRange(0,0,A1)）。每次你需要更新值时，按F9重新计算，或者修改触发参数即可。

• 如果选中的是多个单元格，Offset会返回对应范围的偏移区域，此时公式可能会显示#VALUE!错误，你可以在函数里判断Selection.Cells.Count = 1来处理这种情况；
• UDF返回Range对象时，Excel会自动显示该单元格的值，这是正常行为。

内容的提问来源于stack exchange，提问作者Mario Palumbo