在某张工作表上同时录入两种情况
在某张工作表上同时录入两种情况
提问于 2016-07-27 00:50:09
我已经为项目管理的可视化日历工作了一段时间。日历采用用户形式：
我目前有一个代码集，可以根据他们为“影响”选择的值--“高”或“低”，将数据过滤到适当的工作表中。
关于按"Enter Project“
Private Sub enterButton_Click()
If Not CheckInputs Then Exit Sub 'check for fields to have values
Process GetWs(Me.impactCombobox.Value) ' process data passing the proper worksheet got from GetWs() function
MsgBox "Project Entered Successfully"
ClearUFData 'clear the dataGetWS函数：
Function GetWs(impact As String) As Worksheet
Select Case impact
Case "High"
Set GetWs = Worksheets("HI Project Work Database")
Case "Low"
Set GetWs = Worksheets("LI Project Work Database")
' Case Else
End Select
End Function如何嵌入到另一种特定于"Project Work“和”Implementation“选项按钮的情况下？
例如：
高影响力-项目工作=电子表格"HI项目工作数据库“
低影响-项目工作=电子表格"LI项目工作数据库“
High Impact - Implementation =电子表格"HI实现数据库“
低影响-实现=电子表格"LI实现数据库“
回答 2
Stack Overflow用户
发布于 2016-07-27 00:57:29
我想你正在寻找这样的东西。
Function GetWs(impact As String) As Worksheet
Select Case impact
Case "High"
Select Case True
Case ProjectWorkOption.Value = True
Set GetWs = Worksheets("HI Project Work Database")
Case ImplementationOption.Value = True
Set GetWs = Worksheets("HI Implementation Database")
End Select
Case "Low"
Select Case True
Case ProjectWorkOption.Value = True
Set GetWs = Worksheets("LI Project Work Database")
Case ImplementationOption.Value = True
Set GetWs = Worksheets("LI Implementation Database")
End Select
End Select
End Function显然，您需要替换选项按钮的名称。
Stack Overflow用户
发布于 2016-07-27 00:59:36
将If添加到您的Select Case。假设您的User_Form名称为User_Form1。下面的代码将适合您：
Function GetWs(impact As String) As Worksheet
Select Case impact
Case "High"
If UserForm1.Project_Work.Value = True Then
Set GetWs = Worksheets("HI Project Work Database")
Else
If UserForm1.Implementation.Value = True Then
Set GetWs = Worksheets("HI Implementation Database")
End If
End If
Case "Low"
If UserForm1.Project_Work.Value = True Then
Set GetWs = Worksheets("LI Project Work Database")
Else
If UserForm1.Implementation.Value = True Then
Set GetWs = Worksheets("LI Implementation Database")
End If
End If
' Case Else
End Select
End Function页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/38595688
复制相关文章
相似问题
腾讯云开发者
