VBA Excel 2013 从 UD 函数返回数组的特定值答案

【问题标题】：VBA Excel 2013 returning specific values of an array from a UD FunctionVBA Excel 2013 从 UD 函数返回数组的特定值
【发布时间】：2015-12-21 11:40:19
【问题描述】：

我的目的是在以如下方式从函数调用时检索数组的特定值（静态或动态）

定义我的函数并在函数内部定义我的数组。比如

Function MonthNames()
  MonthNames = Array(“January”, “February”, “March”, _
   “April”, “May”, “June”, “July”, “August”, _
   “September”, “October”, “November”, “December”)
End Function

我想在单元格中输入然后

=monthnames(2) 在单元格中包含“March”。

这有可能吗？我试过了，但它不起作用。我怎样才能从该数组中检索特定值，方法是在各个单元格中多次使用相同的函数，并从数组中获取这些值？

欢迎提出任何建议。

注意：我不想使用子例程（如果可能的话），因为我失去了撤消的优势。

【问题讨论】：

标签： arrays function excel vba

【解决方案1】：

您的数组是从零开始的，因此您需要从索引中减去一个，并且您需要将其声明为参数：

Function MonthNames(lIndex As Long)
   MonthNames = Array("January", "February", "March", _
   "April", "May", "June", "July", "August", _
   "September", "October", "November", "December")(lIndex - 1)
End Function

【讨论】：

成功了！非常感谢！