Question

我使用的整个代码都很长，因此我只是为了节省空间来缩写第一个子代码。在这个例子中，如果＆＃34;纽约大学，＆＃34; ＆＃34; NYU，＆＃34;或者＆＃34;纽约大学＆＃34;在列O中，它显示了一个userform，其中包含另一个包含另一个Select Case例程的按钮。但是一旦它运行从frmNYU用户窗体调用的Sub，它需要继续在第一个FillIn Sub中运行案例。

list

这里是frmNYU用户表单上其中一个按钮的Sub。

Sub FillIn()
Dim LastRow As Long
Dim i As Long

    LastRow = Range("O" & Rows.Count).End(xlUp).Row
    For i = 84 To LastRow

        If Range("K" & i) Like "B*" Or Range("K" & i) Like "M*" Or Range("K" & i) Like "D*" Then
            Select Case Range("O" & i)

                Case "University of Florida"
                    Range("N" & i) = "0761"   
                Case "University of North Texas"
                    Range("N" & i) = "1612"
                Case "New York University", "NYU", "New York Univ."
                    frmNYU.Show

            End Select
        End If
End Sub

问题是，一旦从用户窗体中运行了Select Case，它就不会恢复运行原始的FillIn Sub。我做错了什么？

Answer 1

删除命令按钮代码中“End Sub”行之前的“End”行。 “结束”会导致所有代码停止运行。

VBA - 在用户表单中调用另一个Select Case后恢复Select Case

1 个答案: