VBA 定义SHDCAL函数计算选中的区域的最大值

在VBA中，如果你想要创建一个名为`SHDCAL`的函数来计算选定工作表区域内的最大值，可以这样做：

Function SHDCAL(RangeAddress As Range) As Variant
    Dim maxValue As Variant
    ' 检查范围是否为空或者错误
    If RangeAddress Is Nothing Or Not RangeAddress.Columns.Count <> 1 Or RangeAddress.Rows.Count = 0 Then
        SHDCAL = CVErr(xlErrValue)
        Exit Function
    End If
    
    ' 如果范围不是一列，则转换为单列
    Set maxValueRange = RangeAddress.Resize(RangeAddress.Columns.Count, 1).EntireColumn
    ' 计算最大值
    maxValue = maxValueRange.Max
    
    ' 返回最大值
    SHDCAL = maxValue
End Function

这个函数接收一个`Range`对象作为参数，即你想检查其最大值的单元格区域。它首先检查范围的有效性，然后计算整个范围的一维数组中的最大值，并将其存储在`maxValue`变量中。最后，函数返回找到的最大值。

使用这个函数时，例如获取A1到D4区域的最大值，可以这样调用：

Dim rng As Range
Set rng = Selection ' 或者直接指定一个范围
Dim maxVal As Variant
maxVal = SHDCAL(rng)
MsgBox "最大值是: " & maxVal