如何从输入框创建变量

Question

我是 vba 的新手，我想为我的日常生活制作一个宏。在您的帮助下，我成功地管理了其中很大一部分，但我卡住了一个部分。

我想要什么：我有一个分析文件，它带有几个月，代码的开头我问文件中有多少个月，想知道其中的哪些。

    Sub Makro2()

howmanymonths= Application.InputBox(prompt:=ActiveSheet.Name & " how many months?", Type:=1)

For first = 1 To howmanymonths

nay = Application.InputBox(prompt:=ActiveSheet.Name & " First?", Type:=1)

Next first 

End Sub

例如，总共有 3 个月，我先回答“3”，然后下一个问题我回答“7”，所以 nay = 7，但是当它在循环中时，下一个将是“8”和“9”

但是我如何创建 nay1、nay2、nay3 或直到最后几个月。

也许是更好的解决方案？请帮帮我。

Answer 1

这是在字典中存储多个数据并使用它们的键检索它们的示例。

Dim dict As Object: Set dict = CreateObject("Scripting.Dictionary")
howmanymonths = Application.InputBox(prompt:=ActiveSheet.Name & " how many months?", Type:=1)

For first = 1 To howmanymonths
    'Key is nay + numberindex
    dict.Add "nay" & CStr(first), Application.InputBox(prompt:=ActiveSheet.Name & " First?", Type:=1)
Next first

MsgBox dict("nay1")
MsgBox dict("nay2")
MsgBox dict("nay3")

Answer 2

您不能在运行子程序时在子程序中创建新变量。一般来说，你不需要。如果您不知道需要多少个单元，您可以使用Array() 或List() 并向它们添加元素：

Sub TestMe()

    Dim howManyMonths As Long
    howManyMonths = Application.InputBox(prompt:=ActiveSheet.Name & Months count?",Type:=1)

    Dim firstMonth As Long
    firstMonth = Application.InputBox(prompt:=ActiveSheet.Name & " First?", Type:=1)

    Dim someArray() As Long
    Dim cnt As Long

    ReDim someArray(howManyMonths - 1)

    For cnt = LBound(someArray) To UBound(someArray)
        someArray(cnt) = firstMonth + cnt
    Next cnt

    For cnt = LBound(someArray) To UBound(someArray)
        MsgBox someArray(cnt)
    Next cnt

End Sub