Question

嗨，我仍然是excel宏vba世界的新手，所以我需要一些简单编码的帮助。

我正在制作带有宏的菜单，所以通过点击它会转到工作表并返回菜单按钮，但问题是我无法访问工作表或单元格请帮我编码。

下面是我编写的代码

Private Sub CommandButton15_Click()

Application.Goto Worksheets("14").Range("A1")
Unload Me ' unloads the userform

UserForm3.Show

End Sub

和UserForm3

Private Sub CommandButton1_Click()

Sheets("MENU").Select

UserForm3.Hide

End Sub

我需要使用哪种编码，以便在宏仍然存在时我可以访问工作表和单元格？

Answer 1

您需要在Modeless模式下以：

显示您的用户表单

UserForm3.Show 0
'Or
UserForm3.Show False
'Or
UserForm3.Show vbModeless

Answer 2

选择一张工作表作为参考;让我们说工作表名称=＆＃34; XXX＆＃34;。在＆＃34; XXX＆＃34;中选择一个单元格，让我们说单元格＆＃34; B2＆＃34;。在您希望允许用户访问工作表/单元格的位置将以下代码添加到宏中，以便用户可以键入或执行他/她需要执行的任何操作。一旦用户完成他/她的工作，他/她将转到工作表＆＃34; XXX＆＃34;，并键入单词＆＃34; END＆＃34;在细胞＆＃34; B2＆＃34;允许宏恢复运行。

Do While Worksheets("XXX").Range("B2") <> "END"
    t1 = Now

    While Now < t1 + TimeSerial(0, 0, 1)
        DoEvents
    Wend

    If UCase(Worksheets("XXX").Range("B2")) = "END" Then
        Exit Do
    End If
Loop

可以在宏运行时访问工作表，直到我单击菜单按钮

2 个答案: