在Excel / VBS中使用循环来填充表单
请有人可以帮助我正确的DIM语句和语法，以简化为一个DO UNTIL循环？
Sub DesRisk_Loader() Dim Qn(7) As String Dim Ys(7) As String Dim No(7) As String Dim Wk(7) As Integer Application.ScreenUpdating = False n = 1 x = 1 Do Application.Goto Reference:="DesHome" ActiveCell.Offset(x, 0).Select Qn(n) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Ys(n) = ActiveCell.Value ActiveCell.Offset(0, 1).Select No(n) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Wk(n) = ActiveCell.Value x = x + 2 n = n + 1 Loop Until n = 8 ''Q.1 If Qn(1) <> "" Then DesForm.DesFrame1.Visible = True DesForm.Dq1.Caption = Qn(1) FH = 0 If Ys(1) = "P" Then DesForm.D1y.Value = True Else DesForm.D1y.Value = False End If If No(1) = "O" Then DesForm.D1n.Value = True Else DesForm.D1n.Value = False End If DesForm.DesDly1.Value = Wk(1) Else: Exit Sub End If ''Q.2 If Qn(2) <> "" Then DesForm.DesFrame2.Visible = True DesForm.Dq2.Caption = Qn(2) FH = 1 If Ys(2) = "P" Then DesForm.D2y.Value = True Else DesForm.D2y.Value = False End If If No(2) = "O" Then DesForm.D2n.Value = True Else DesForm.D2n.Value = False End If DesForm.DesDly2.Value = Wk(2) Else: GoTo Jump1 End If ''Q.3 If Qn(3) <> "" Then DesForm.DesFrame3.Visible = True DesForm.Dq3.Caption = Qn(3) FH = 2 If Ys(3) = "P" Then DesForm.D3y.Value = True Else DesForm.D3y.Value = False End If If No(3) = "O" Then DesForm.D3n.Value = True Else DesForm.D3n.Value = False End If DesForm.DesDly3.Value = Wk(3) Else: GoTo Jump1 End If ditto till.. ''Q.7 If Qn(7) <> "" Then DesForm.DesFrame7.Visible = True DesForm.Dq7.Caption = Qn(7) FH = 6 If Ys(7) = "P" Then DesForm.D7y.Value = True Else DesForm.D7y.Value = False End If If No(7) = "O" Then DesForm.D7n.Value = True Else DesForm.D7n.Value = False End If DesForm.DesDly7.Value = Wk(7) Else: GoTo Jump1 End If Jump1: DesForm.Height = 140 + (FH * 75) DesForm.DesOK.Top = 85 + (FH * 75) DesForm.DesCancel.Top = 85 + (FH * 75) Load DesForm DesForm.Show End Sub 感谢Scott
在代码的顶部（整个模块的第一行），input下面的OPTION EXPLICIT
这将有助于确定所有未申报的variables。