数据如何根据组合框输入到特定工作表

时间:2016-09-08 00:36:55

标签: excel forms excel-vba vba

我正在处理我在excel工作表上创建的简单VB表单。我正在尝试编写数据表单条目将根据组合框条目转到特定表单。

示例:

我有不同名字的组合框。选择名称“Albert”时,该表单上的所有数据条目都将转到Albert Worksheet。

1 个答案:

答案 0 :(得分:0)

如果您有一个选项按钮列表,例如,您可以对其进行设置,以便在您单击该选项时设置目标工作簿,然后在从表单提交数据时引用该工作簿。

Dim wsDestination As Worksheet

Private Sub optAlbert_Change()
  Set wsDestination = Worksheet("Albert")
End Sub

Private Sub btnSubmit_Click()
  wsDestination.Range("A1").Value = txtSomething.Value
End Sub

我不确定您的枚举详细信息,但您只需根据需要更改值,包括添加所需的更多信息。 您还可以使用组合框选择来查找/迭代列表/数组,然后也设置目标。

Private Sub btnSubmit_Click()
  Select Case cboDestSheet.Value
    Case 1
      strDest = "Albert"
    Case 2
      strDest = "Tim"
  End Select
  Set wsDestination = Worksheets(strDest)
End Sub