Question

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

示例：

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

Answer 1

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

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

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

1 个答案: