堆栈内存溢出
  繁体   English   中英

如何使 2 个子程序在 VBA 中的同一个用户窗体中工作？

[英]How to make 2 subs work in the same UserForm in VBA?

 原文  2019-12-01 04:27:35  0   2    excel/ vba

问题描述

我在同一个“UserForm1”中有 2 个私有子。

我正在使用复选框给我一个输入或生成一个数字。 根据运行的子程序，我可以在 sheet1 或 sheet2 中写入。

但是，如果我在一个 sheet1 中运行宏，则无法在 sheet2 中运行另一个宏。

我需要手动进入 sheet2 来运行它。

这是我的代码：



Private Sub ToggleButton1_Click()


If CheckBox1.Value = True And CheckBox4.Value = True And CheckBox7.Value = True And CheckBox2.Value = False And CheckBox3.Value = False _
And CheckBox6.Value = False And CheckBox5.Value = False And CheckBox8.Value = False And CheckBox9.Value = False And CheckBox10.Value = False And CheckBox11.Value = False And CheckBox12.Value = False _
And CheckBox13.Value = False And CheckBox14.Value = False And CheckBox15.Value = False Then

Sheets("Sheet2").Range("B4").Select
ActiveCell.EntireRow.Insert shift:=xlDown

Sheets("sheet2").Range("B4:E4").Select
Selection.Borders.Weight = xlThin

Sheets("sheet2").Range("B4").Select
ActiveCell.Value = "=b5+1"

Sheets("sheet2").Range("A4").Select
Selection.Borders.Weight = xlThin
ActiveCell.Value = "E"
End If

If CheckBox1.Value = True And CheckBox4.Value = True And CheckBox7.Value = False And CheckBox2.Value = False And CheckBox3.Value = False And CheckBox6.Value = False And CheckBox5.Value = True And CheckBox8.Value = False And CheckBox9.Value = False _
And CheckBox10.Value = False And CheckBox11.Value = False And CheckBox12.Value = False And CheckBox13.Value = False And CheckBox14.Value = False And CheckBox15.Value = False Then


Sheets("Sheet2").Range("B4").Select
ActiveCell.EntireRow.Insert shift:=xlDown

Sheets("sheet2").Range("B4:E4").Select
Selection.Borders.Weight = xlThin

Sheets("sheet2").Range("B4").Select
ActiveCell.Value = "=b5+1"

Sheets("sheet2").Range("A4").Select
Selection.Borders.Weight = xlThin
ActiveCell.Value = "PE"
End If

If CheckBox1.Value = True And CheckBox4.Value = True And CheckBox7.Value = False And CheckBox2.Value = False And CheckBox3.Value = False And CheckBox6.Value = True And CheckBox5.Value = False And CheckBox8.Value = True And CheckBox9.Value = False _
And CheckBox10.Value = False And CheckBox11.Value = False And CheckBox12.Value = False And CheckBox13.Value = False And CheckBox14.Value = False And CheckBox15.Value = False Then


Sheets("Sheet3").Range("B4").Select
ActiveCell.EntireRow.Insert shift:=xlDown

Sheets("sheet3").Range("B4:E4").Select
Selection.Borders.Weight = xlThin

Sheets("sheet3").Range("B4").Select
ActiveCell.Value = "=b5+1"

Sheets("sheet3").Range("A4").Select
Selection.Borders.Weight = xlThin
ActiveCell.Value = "OA"
End If


If CheckBox1.Value = True And CheckBox4.Value = True And CheckBox7.Value = False And CheckBox2.Value = False And CheckBox3.Value = False And CheckBox6.Value = True And CheckBox5.Value = False And CheckBox8.Value = False And CheckBox9.Value = True _
And CheckBox10.Value = False And CheckBox11.Value = False And CheckBox12.Value = False And CheckBox13.Value = False And CheckBox14.Value = False And CheckBox15.Value = False Then


Sheets("Sheet3").Range("B4").Select
ActiveCell.EntireRow.Insert shift:=xlDown

Sheets("sheet3").Range("B4:E4").Select
Selection.Borders.Weight = xlThin

Sheets("sheet3").Range("B4").Select
ActiveCell.Value = "=b5+1"

Sheets("sheet3").Range("A4").Select
Selection.Borders.Weight = xlThin
ActiveCell.Value = "OB"
End If

If CheckBox1.Value = True And CheckBox4.Value = True And CheckBox7.Value = False And CheckBox2.Value = False And CheckBox3.Value = False And CheckBox6.Value = True And CheckBox5.Value = False And CheckBox8.Value = False And CheckBox9.Value = False _
And CheckBox10.Value = True And CheckBox11.Value = False And CheckBox12.Value = False And CheckBox13.Value = False And CheckBox14.Value = False And CheckBox15.Value = False Then


Sheets("Sheet3").Range("B4").Select
ActiveCell.EntireRow.Insert shift:=xlDown

Sheets("sheet3").Range("B4:E4").Select
Selection.Borders.Weight = xlThin

Sheets("sheet3").Range("B4").Select
ActiveCell.Value = "=b5+1"

Sheets("sheet3").Range("A4").Select
Selection.Borders.Weight = xlThin
ActiveCell.Value = "OC"
End If

If CheckBox1.Value = True And CheckBox4.Value = True And CheckBox7.Value = False And CheckBox2.Value = False And CheckBox3.Value = False And CheckBox6.Value = True And CheckBox5.Value = False And CheckBox8.Value = False And CheckBox9.Value = False _
And CheckBox10.Value = False And CheckBox11.Value = True And CheckBox12.Value = False And CheckBox13.Value = False And CheckBox14.Value = False And CheckBox15.Value = False Then


Sheets("Sheet3").Range("B4").Select
ActiveCell.EntireRow.Insert shift:=xlDown

Sheets("sheet3").Range("B4:E4").Select
Selection.Borders.Weight = xlThin

Sheets("sheet3").Range("B4").Select
ActiveCell.Value = "=b5+1"

Sheets("sheet3").Range("A4").Select
Selection.Borders.Weight = xlThin
ActiveCell.Value = "OD"
End If

If CheckBox1.Value = True And CheckBox4.Value = True And CheckBox7.Value = False And CheckBox2.Value = False And CheckBox3.Value = False And CheckBox6.Value = True And CheckBox5.Value = False And CheckBox8.Value = False And CheckBox9.Value = False _
And CheckBox10.Value = False And CheckBox11.Value = False And CheckBox12.Value = True And CheckBox13.Value = False And CheckBox14.Value = False And CheckBox15.Value = False Then


Sheets("Sheet3").Range("B4").Select
ActiveCell.EntireRow.Insert shift:=xlDown

Sheets("sheet3").Range("B4:E4").Select
Selection.Borders.Weight = xlThin

Sheets("sheet3").Range("B4").Select
ActiveCell.Value = "=b5+1"

Sheets("sheet3").Range("A4").Select
Selection.Borders.Weight = xlThin
ActiveCell.Value = "OE"
End If

If CheckBox1.Value = True And CheckBox4.Value = True And CheckBox7.Value = False And CheckBox2.Value = False And CheckBox3.Value = False And CheckBox6.Value = True And CheckBox5.Value = False And CheckBox8.Value = False And CheckBox9.Value = False _
And CheckBox10.Value = False And CheckBox11.Value = False And CheckBox12.Value = False And CheckBox13.Value = True And CheckBox14.Value = False And CheckBox15.Value = False Then


Sheets("Sheet3").Range("B4").Select
ActiveCell.EntireRow.Insert shift:=xlDown

Sheets("sheet3").Range("B4:E4").Select
Selection.Borders.Weight = xlThin

Sheets("sheet3").Range("B4").Select
ActiveCell.Value = "=b5+1"

Sheets("sheet3").Range("A4").Select
Selection.Borders.Weight = xlThin
ActiveCell.Value = "OF"
End If

If CheckBox1.Value = True And CheckBox4.Value = True And CheckBox7.Value = False And CheckBox2.Value = False And CheckBox3.Value = False And CheckBox6.Value = True And CheckBox5.Value = False And CheckBox8.Value = False And CheckBox9.Value = False _
And CheckBox10.Value = False And CheckBox11.Value = False And CheckBox12.Value = False And CheckBox13.Value = False And CheckBox14.Value = True And CheckBox15.Value = False Then


Sheets("Sheet3").Range("B4").Select
ActiveCell.EntireRow.Insert shift:=xlDown

Sheets("sheet3").Range("B4:E4").Select
Selection.Borders.Weight = xlThin

Sheets("sheet3").Range("B4").Select
ActiveCell.Value = "=b5+1"

Sheets("sheet3").Range("A4").Select
Selection.Borders.Weight = xlThin
ActiveCell.Value = "OG"
End If

If CheckBox1.Value = True And CheckBox4.Value = True And CheckBox7.Value = False And CheckBox2.Value = False And CheckBox3.Value = False And CheckBox6.Value = True And CheckBox5.Value = False And CheckBox8.Value = False And CheckBox9.Value = False _
And CheckBox10.Value = False And CheckBox11.Value = False And CheckBox12.Value = False And CheckBox13.Value = False And CheckBox14.Value = False And CheckBox15.Value = True Then


Sheets("Sheet3").Range("B4").Select
ActiveCell.EntireRow.Insert shift:=xlDown

Sheets("sheet3").Range("B4:E4").Select
Selection.Borders.Weight = xlThin

Sheets("sheet3").Range("B4").Select
ActiveCell.Value = "=b5+1"

Sheets("sheet3").Range("A4").Select
Selection.Borders.Weight = xlThin
ActiveCell.Value = "OH"
End If



End Sub

Private Sub CheckBox2_Click()
Dim answer As VbMsgBoxResult
Dim addname As String



If CheckBox2.Value = True Then
answer = MsgBox("Voulez-vous saisir le RNC?", vbYesNo)
If answer = vbYes Then
addname = InputBox("Inscrivez le RNC")
Sheets("Sheet4").Range("B4").Select
ActiveCell.EntireRow.Insert shift:=xlDown

Sheets("sheet4").Range("B4:E4").Select
Selection.Borders.Weight = xlThin

Sheets("sheet4").Range("A4").Select
Selection.Borders.Weight = xlThin
ActiveCell.Value = addname

Else
Exit Sub
End If
End If

Unload Me

End Sub

2 个解决方案

解决方案1
 1  2019-12-01 06:00:25

以下是如何有条件地调用用户表单的示例。

示例：存在两种不同的用户表单。 用户表单由超链接点击触发。 它们的超链接都存在于同一个工作表上，每个都激活不同的用户表单，但都由同一个 Worksheet_FollowHyperlink 更改事件控制。

这是 Worksheet_FollowHyperlink 更改事件中的代码片段，它根据点击的超链接激活相应的用户表单。

On Error Resume Next

Select Case Target.Parent

    Case Range("macro_Help_CSVFiles")

        UF_Help_CSVFiles.Show

    Case Range("macro_Help_TBG")

        UF_Help_TBG.Show

End Select

在用户表单代码中，有几个子项（按钮单击、激活时发生的操作等）。 因为用户表单可以被多次调用并且每次都需要工作，所以需要根据预期的事件顺序卸载它。

这是我隐藏用户表单并根据按钮单击显示下一个表单的地方。

Private Sub CommandButton_ContactUs_Click()

    'Hide this user form
    Me.Hide

    'And display the next user form.
    UF_Help_EmailUs.Show

End Sub

这里是事件序列完成的地方，所以就在结束之前，用户表单被卸载，以便可以从新的开始再次调用它。

ReleaseVariables:

    Set objOutlook = Nothing
    Set objMail = Nothing
    strTo = vbNullString
    strSubject = vbNullString
    strBody = vbNullString
    strCarrier = vbNullString
    strCoverageMonth = vbNullString

    GoTo ResetAppSettings

ResetAppSettings:

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

Unload Me


End Sub

如果没有看到调用/隐藏/卸载用户表单的代码部分，很难说问题发生在哪里，但是这些应该会给你一些关于在哪里以及如何路由代码的好主意。

如果需要根据每个特定工作表中的更改事件从两个不同的工作表调用它，您可能希望将代码放在一个模块中，然后从两个工作表中的更改事件调用子，确保添加运行条件每个部分和卸载。

更新 #1

如果所有代码当前都驻留在用户表单中，而您只需要一个操作来调用用户表单，那么试试这个......

在第一个工作表上，添加一个命令按钮。 （开发人员 > 控件 > 插入 > ActiveX > 命令按钮）。 然后右键单击命令按钮并选择查看代码。 这将在该工作表上创建一个命令按钮单击事件。 添加代码以激活您的用户表单，如下所示：

Private Sub CommandButton1_Click()

'UF_Help_CSVFiles is the name of my user form.
UF_Help_CSVFiles.Show

End Sub

然后转到第二个工作表并执行相同的操作。 添加一个命令按钮并添加相同的代码。

如果 ToggleButton1 单击事件和 Checkbox2 单击事件是完全独立的过程并且不包含共享引用，则在 ToggleButton End Sub 之前和 Checkbox2 End Sub 之前，通过添加一行Unload Me来Unload Me用户表单。

通过从第一个工作表上的命令按钮代码开始并按 F8 来测试每一行到最后，在 VB 编辑器中演练您的新过程。 如果一切顺利，您应该能够继续执行第二个工作表上的下一个命令按钮代码，做同样的事情。

解决方案2
 0 已采纳  2019-12-01 10:26:59

我只需要添加Activate方法。 如果我在 sheet1 中并且我想做一些在 sheet2 里面的事情，我需要写：

If statement
Sheet2.Activate
*insert rest of code you want*
end if

暂无
暂无

声明:本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

相关问题 VBA用户表单和表单中的调用子？ 如何使用 vba userform 使切换功能适用于列？ 如何使 VBA 变量可供所有潜艇访问和修改？ 如何绕过用户表单中其他子项的卸载？ 如何在VBA中的用户窗体中创建动态日志 在VBA Excel中的不同Subs中引用同一数组 VBA：在不同的 subs 中使用相同的变量名 如何使基于 Excel 的 VBA 用户窗体自行运行？ 单击用户窗体中的任何复选框，如何使VBA运行？ VBA如何只运行3个潜水艇中的1个？
相关标签
 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM