Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA根据另一个文本框输入在工作表的Userform上填充文本框_Excel_Vba - Fatal编程技术网

Excel VBA根据另一个文本框输入在工作表的Userform上填充文本框

Excel VBA根据另一个文本框输入在工作表的Userform上填充文本框,excel,vba,Excel,Vba,所以我有一个用户表单 在这个用户表单上,我有一个ComboBox(comboDepartment)、一个TextBox(txtCode)和另一个TextBox(textDescription)。每个组合框选择都有一个工作表。(如Robo1、Robo2等)。工作表有两列(A列=错误代码,B列=错误描述) 现在我的问题是,根据(comboDepartment)组合框的选择,让它选择合适的工作表(可能将其设置为变量?) 下一个用户将在(txtCode)文本框中输入错误代码(仅数字,例如1、2、3等),

所以我有一个用户表单

在这个用户表单上,我有一个ComboBox(comboDepartment)、一个TextBox(txtCode)和另一个TextBox(textDescription)。每个组合框选择都有一个工作表。(如Robo1、Robo2等)。工作表有两列(A列=错误代码,B列=错误描述)

现在我的问题是,根据(comboDepartment)组合框的选择,让它选择合适的工作表(可能将其设置为变量?)

下一个用户将在(txtCode)文本框中输入错误代码(仅数字,例如1、2、3等),输入代码后,我需要它根据用户输入的错误代码从工作表的B列填写(textDescription)文本框

我想知道这是否有可能


提前谢谢你

通过获取所有工作表的名称来收集它们,并将它们添加到您的组合框中。在您的
Private子用户窗体上初始化
方法:

For each deptSheet in Thisworkbook.Worksheets
    comboDepartment.AddItem deptSheet.Name
Next
set deptSheet = Thisworkbook.Sheets(comboDepartment.Value)
为工作表创建一个专用变量(
dim deptSheet as worksheet
),并在组合框上设置所选值。在您的
Private子组合中更改
方法:

For each deptSheet in Thisworkbook.Worksheets
    comboDepartment.AddItem deptSheet.Name
Next
set deptSheet = Thisworkbook.Sheets(comboDepartment.Value)

您现在可以通过以下方式引用所选下拉列表中的工作表:
deptSheet.Range(“

”),这是非常可能的。使用
Range.Find
。感谢您的输入,帮助我找到了解决方案。