检查具有组合框值的行,并将其用作指针以填充该活动行中的单元格

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (1)
  • 关注 (0)
  • 查看 (5)

我构造了下面的代码,以在工作表“MFGLR”的A列中找到combobox 2值(如果有,如果不做任何事情),然后在同一行中找到combobox 2值,将文本框的值粘贴到AE列中。我不知道如何使它正确工作。

Background: I have a userform that has 2 comboboxes and 1 textbox. I have created 3 scenarios and for 2 of the scenarios I need what I said above to happen.

Sub linepick()

Dim N As Long
Dim i As Long

'Check for a row with combobox2 value and use that as a pointer to populate the textbox in that active row

N = Cells(Rows.Count, "A").End(xlUp).Row
For i = 5 To N

If Cells(i, "A").Value = Combobox2.value Then

'The  = Combobox2.value brings up an error

Cells(i, "A").Rows.Select

End If

Next i

Userform2.Textbox1.text = CStr(Worksheets("MFGLR").Range("AE" & ActiveCell.Row).Value)

End Sub

If I haven't explained enough please let me know. Thanks

提问于
用户回答回答于

我觉得这能做你想做的。

  • 这段代码并不在表单后面,因此您需要添加对它的引用(就像您进一步向下做的那样)。
  • You can also exit the sub once found.
  • You were transferring the value of AE to the textbox so I have turned it round.
  • 确保始终包含工作表引用。sublinepick()dim N和长dim i一样长‘检查一个具有combobox 2值的行,并使用它作为指针填充活动行N=工作表(“MFGLR”)中的文本框。“A”).End(XlUp).I=5 to N if工作表(“MFGLR”).Cells(I,“A”).value=Userform2.Combobox2.Value然后工作表(“MFGLR”).Cells(I,“A”)(“AE”).value=Userform2.Textbox1.Text退出子结束如果Next I End Sub

所属标签

可能回答问题的人

  • HKC

    红客学院 · 创始人 (已认证)

    26 粉丝7 提问5 回答
  • Dingda

    Dingda · 站长 (已认证)

    4 粉丝0 提问3 回答
  • 西风

    renzha.net · 站长 (已认证)

    9 粉丝1 提问3 回答
  • 螃蟹居

    1 粉丝0 提问2 回答

扫码关注云+社区

领取腾讯云代金券