请求开发可识别选定单元格区域的CAGR函数调用宏

嘿Paully B，刚好能帮你实现这个自动计算CAGR的宏！我会在你原有的CAGR函数基础上，加上一个可以自动识别选中区域的宏，还做了一些错误处理避免踩坑。

首先把这段代码和你已有的CAGR函数放在同一个VBA模块里：

' 你原有的CAGR计算函数
Public Function CAGR(First, Last, Periods)
    CAGR = ((Last / First) ^ (1 / Periods)) - 1
End Function

' 新增的自动计算宏
Sub CalculateCAGRFromSelection()
    Dim selectedRange As Range
    Dim firstValue As Double
    Dim lastValue As Double
    Dim periods As Integer
    Dim resultCell As Range
    
    ' 检查是否选中了有效的单元格区域
    On Error Resume Next
    Set selectedRange = Selection
    On Error GoTo 0
    
    If selectedRange Is Nothing Then
        MsgBox "请先选中包含首期值到末期值的连续单元格区域！", vbExclamation
        Exit Sub
    End If
    
    ' 确保选中的是单行或单列的连续区域（避免多行多列的歧义）
    If selectedRange.Areas.Count > 1 Or (selectedRange.Rows.Count > 1 And selectedRange.Columns.Count > 1) Then
        MsgBox "请选中单行或单列的连续单元格区域！", vbExclamation
        Exit Sub
    End If
    
    ' 获取首期值（最左/最上单元格）和末期值（最右/最下单元格）
    firstValue = selectedRange.Cells(1).Value
    lastValue = selectedRange.Cells(selectedRange.Cells.Count).Value
    
    ' 计算期数：单元格数量减1（比如3个单元格对应2期增长，符合CAGR逻辑）
    periods = selectedRange.Cells.Count - 1
    
    ' 验证数值有效性，避免除零或负数开方错误
    If firstValue <= 0 Or lastValue <= 0 Or periods <= 0 Then
        MsgBox "首期值、末期值必须为正数，且选中的单元格数量至少为2个！", vbCritical
        Exit Sub
    End If
    
    ' 让用户选择结果放置的单元格
    On Error Resume Next
    Set resultCell = Application.InputBox("请选择放置CAGR结果的单元格：", Type:=8)
    On Error GoTo 0
    
    If resultCell Is Nothing Then
        MsgBox "未选择结果单元格，计算取消。", vbInformation
        Exit Sub
    End If
    
    ' 调用CAGR函数计算并写入结果
    resultCell.Value = CAGR(firstValue, lastValue, periods)
    ' 可选：自动设置百分比格式，保留两位小数
    resultCell.NumberFormat = "0.00%"
    
    MsgBox "CAGR计算完成！结果已写入选中单元格。", vbInformation
End Sub

• 选中区域验证：先检查是否选中了区域，并且限制为单行或单列（避免多行多列的歧义），不符合条件会弹出提示。
• 首尾值获取：不管你选中的是横向还是纵向区域，selectedRange.Cells(1)会取第一个单元格（最左/最上），selectedRange.Cells(selectedRange.Cells.Count)取最后一个（最右/最下）。
• 期数计算：用单元格总数减1，这符合CAGR的逻辑——比如从第1年到第5年，共5个单元格，期数是4年。如果你的期数计算逻辑不同，直接把periods = selectedRange.Cells.Count - 1改成periods = selectedRange.Cells.Count即可。
• 错误处理：检查数值是否为正、期数是否有效，避免计算时出现除零或数学错误；还允许你选择结果放置的位置，更灵活。
• 格式优化：自动把结果单元格设为百分比格式，方便直接查看增长比例。

1. 打开Excel，按Alt + F11打开VBA编辑器。
2. 插入一个新模块（右键点击工作簿→插入→模块）。
3. 把上面的代码粘贴进去，保存工作簿为启用宏的格式（.xlsm）。
4. 回到Excel，选中包含首期到末期值的连续单元格（单行或单列都可以）。
5. 按Alt + F8，选择CalculateCAGRFromSelection宏并执行，跟着提示操作即可。

内容的提问来源于stack exchange，提问作者Paully B