Excel 从ComboBox中搜索值，然后将文本框中的值写入单元格
我的工作场所有一张Excel表格，我们在那里制作托盘。我制作了一个用户表单，其中我有5个组合框和5个文本框。当我们有新订单时，我希望宏从组合框中获取值，并在字段“E7:E1347”中搜索名称，并将文本框中的数字插入到搜索托盘旁边的M列。例子： 我想订购10件测试托盘。我在ComboBox1中键入TestPallet，在TextBox6中键入10。在我点击INSERT按钮后，我希望宏搜索名称并将数字从文本框插入到M列 我现在有一个解决办法，但它真的很慢。我做了一张表格，如果我在盒子里输入了什么东西，它就会在那里破裂，但是每次我按下一个键来写托盘的名称时，程序都会重新计算，速度非常慢。我觉得，如果可能的话，这样会更快 到目前为止我拥有的代码：（代码中注释的所有内容都有效） 提前谢谢你的帮助。即使这是不可能的，仅仅说“这是不可能的”也是一个巨大的帮助。怎么样Excel 从ComboBox中搜索值，然后将文本框中的值写入单元格,excel,vba,Excel,Vba,我的工作场所有一张Excel表格，我们在那里制作托盘。我制作了一个用户表单，其中我有5个组合框和5个文本框。当我们有新订单时，我希望宏从组合框中获取值，并在字段“E7:E1347”中搜索名称，并将文本框中的数字插入到搜索托盘旁边的M列。例子： 我想订购10件测试托盘。我在ComboBox1中键入TestPallet，在TextBox6中键入10。在我点击INSERT按钮后，我希望宏搜索名称并将数字从文本框插入到M列 我现在有一个解决办法，但它真的很慢。我做了一张表格，如果我在盒子里输入了什么东西
Dim i as long
For i =7 to 1347
If Instr(Sheets(1).Range("E" & i).Value, me.combobox1.value) then Sheets(1).Range("M" & i).value=me.textbox6.value
next
Dim i as long
For i =7 to 1347
If Instr(Sheets(1).Range("E" & i).Value, me.combobox1.value) then Sheets(1).Range("M" & i).value=me.textbox6.value
next
Dim idx尽可能长
长得一样长
idx=ComboBox1.ListIndex
如果idx-1那么
lngRow=ComboBox1.ListIndex+7
工作表（“palety”）.Range（“M”和lngRow）.Value=TextBox1.Value
如果结束
Dim idx尽可能长
Dim idxList尽可能长
长得一样长
对于idx=1到5
idxList=Me.Controls（“组合框”&idx.ListIndex
如果idxList为-1，则
lngRow=idxList+7
工作表（“palety”）.Range（“M”和lngRow）.Value=Me.Controls（“TextBox”和idx）.Value
如果结束
下一个idx
Dim idx尽可能长
长得一样长
idx=ComboBox1.ListIndex
如果idx-1那么
lngRow=ComboBox1.ListIndex+7
工作表（“palety”）.Range（“M”和lngRow）.Value=TextBox1.Value
如果结束
Dim idx尽可能长
Dim idxList尽可能长
长得一样长
对于idx=1到5
idxList=Me.Controls（“组合框”&idx.ListIndex
如果idxList为-1，则
lngRow=idxList+7
工作表（“palety”）.Range（“M”和lngRow）.Value=Me.Controls（“TextBox”和idx）.Value
如果结束
下一个idx