userform

    0热度

    1回答

    我在Excel中创建一个简单的用户形式两个列表框和做出的选择从列表中的数据需要实现以下目标: 基于用户进行的两种选择从两个列表框中,我需要'Sheet1'由'Sheet2'中的数据填充。例如,如果我选择AW17作为季节和鞋类作为部门,那么数据需要进行过滤,Sheet1应该只填充与该季节相关的服装和鞋类。 实现此目的的最简单方法是什么? 表2是一个服装样式列表,其中包括许多其他信息,所有信息都被划分

    0热度

    1回答

    我在VBA有一个问题,这个问题是这样的: 我有一个触发每当一个给定的条件得到满足用户窗体的例程。这将显示用户窗体。我注意到,当显示用户窗体时,我的程序的其他部分仍在运行,而当前例程(触发用户窗体)将等待。 我正在寻找一种方法来防止其他代码/例程在用户窗体打开时运行。我没有提供我的代码的例子,因为它与API捆绑在一起,所以请把它当作我的借口。 非常感谢您的帮助!

    0热度

    1回答

    我为我的办公室维护宏的工作簿。这个工作簿有一个用户窗体菜单,我的队友用来访问这些宏,但是我还包含了一个开发人员用户窗体,这个开发人员窗体可以让我绕过某些步骤(比如输入信息,范围等)。我们使用热键来访问这些用户窗体。我如何密码保护此开发人员用户窗体,以便其他人不小心访问它? Sub macShowDevPanel() frmDevPanel.Show End Sub

    0热度

    1回答

    因此,这不是一个巨大的交易,但它在我的皮肤下。我试图在之间共享一个变量之间的一个用户窗体。声明一个公共变量似乎是一个简单的方法来实现它,但显然,你不能从一个用户表单中声明公共变量。所以我似乎必须在一个完全不相关的模块中声明变量,我发现这个模块非常烦人。这是在用户表单中的subs之间传递变量的唯一方法吗? 对于上下文,我试图在“设置”用户窗体上进行“确定”,“应用”和“取消”按钮,其中“确定”和“应

    1热度

    1回答

    对不起,如果这不明确,但由于某种原因,我的代码最近停止工作,我不知道为什么。 基本上,我在我的工作中创建了一个excel vba程序来完成报告(例如炉子报告或树报告)。有一个封面表格,要求用户输入报告的各种细节(即参加者,日期,地址等)。一旦完成,他们然后选择一个报告来完成(他们可以从封面上进入5个不同的用户表单)。例如,如果他们选择Electrical,则他们可以选择General,Stove或

    0热度

    1回答

    我有一个宏,我需要更新20个标签使用循环更新范围a1到a20作为标签标题,但我收到错误。 我收到错误,因为我正在使用标签& j。请建议替代 Sub NameListAllocate() k = Range("Q65536").End(xlUp).Row For j = 2 To k UserForm1.Label&j.Caption = Range("q" & j).Value Next

    1热度

    2回答

    我一直在尝试让我的登录用户窗体登录时单击基于表中的数据在工作簿中,但我似乎无法得到正确的代码。 详情如下: 用户窗体的用户名的文本框= UsernameTextbox; 用户形式的密码textbox = PasswordTextbox; 用户窗体提交按钮= LoginButton 我的工作簿具有多个片材,其中之一是"Users"的。在该表中,有一张名为"Users_Table"的表格。该表有4列:

    0热度

    1回答

    我想使用userform/comboboxes过滤载体表。我收到“Sheets(”Carrier“)行上的错误。range.AutoFilter field:= 16,Criteria1:= ComboBoxA.value”。 “错误的参数数量或无效的财产分配” 我jhave删除了以前的问题,因为我在半夜添加了不良信息。 公用Sub CommandButton1_Click() Dim strCr

    0热度

    1回答

    我想在用户在以前的用户窗体上选择工作站后用部件号列表填充我的用户窗体组合框。 我的想法是遍历列,确定当字符串工作站相匹配,然后增加该小区在列的权利(这将会是产品编号) 我的代码看起来是这样的到目前为止: If station = "MILL" Then With ComboBox1 .AddItem "350SC109e.1" .AddItem "350 SC166"

    0热度

    1回答

    我已经创建了具有不同月份的多个工作表的用户表单。我只能让表格才能正确运行“Sheet7(July)”。我如何使工作簿中的所有工作表都可以工作?以下是我的表单代码。谢谢 Private Sub CommandButton1_Click() 'Range("A").Value = tbdaterec 'Range("B").Value = tbdateres 'Range("C").Value