尝试重新调整公共数组时出错

问题描述

我试图在不同的宏中引用公共数组。这是用作另一个宏的“触发器”的第一个宏：

Option Explicit
Public FLAGNUM As Integer

Sub worksheet_change(ByVal target As Range)
Set target = Range("B13")
FLAGNUM = target.Value
If target.Value > 0 Then
Call Flags
End If

End Sub

这是第二个宏：

Option Explicit
Public FLAGNUM As Integer
Public FLAGSW As Double
Public FLAGSL As Double
Public FLAGSnorP As String

Sub Flags()
ReDim FLAGSW(FLAGNUM)
ReDim FLAGSL(FLAGNUM)
ReDim FLAGSnorP(FLAGNUM)

For i = 1 To FLAGNUM
FLAGSW(i) = InputBox("What is flag " & i & "'s width?")
FLAGSL(i) = InputBox("What is flag " & i & "'s length?")
FLAGSnorP(i) = InputBox("Is flag " & i & " nylon or polyester? (Enter N or P)")
Next i

End Sub

每次我尝试运行它时，我都会收到“预期数组”错误。我该如何解决这个问题？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）