我正在处理我在excel工作表上创建的简单VB表单。我正在尝试编写数据表单条目将根据组合框条目转到特定表单。
示例:
我有不同名字的组合框。选择名称“Albert”时,该表单上的所有数据条目都将转到Albert Worksheet。
答案 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