组合框可填充文本框

时间:2019-11-28 18:23:44

标签: excel vba combobox

我是Excel中VBA的新手,我尝试了很多事情,但遇到了麻烦。希望你能给我一些建议。

我正在创建一个用户窗体以在Excel中注册一些数据。

我有3个工作表,即仪表板,数据和数据库

在信息中心中,我有一个新的输入按钮,用于显示用户表单 在数据库中,我有一个包含3列(ID,类别和名称)的表,并有一个单独的区域来填充组合框 在数据中,我要发送用户表单的所有信息

在“用户”表单中,我将有15行文本框,并且我需要将每行文本框发送到数据表中的新行中。

我尝试了很多事情,但似乎无法正确链接所有内容。

我需要comboBox来带给我相同类别的数据

到目前为止,我有以下内容可以填充组合框:

Dim cLoc As Range
Dim ws As Worksheet
Set ws = Worksheets("DB")

For Each cLoc In ws.Range("categorias")
 With Me.ComboBox1
    .AddItem cLoc.Value
  End With
Next cLoc

还有下一个填充文本框

TextBox7.Value = Worksheets("DB").Range("Tabla2").Cells(ComboBox1.ListIndex + 1, 3).Text

但是,如果我继续这样,由于我要说的是特定的行和列,因此它只会显示同一类别的某些值,我该如何带来同一类别的数据(仅ID和数据库名称?

而且,如何将文本框的每一行发送到“数据”表中的新行?

我附加了Excel文件HERE和用户表单的屏幕截图2,您能提供建议吗?

0 个答案:

没有答案