从sheet1上单元格B4的下拉列表中选择一个项目后,然后转到另一个sheet2,然后它会自动在单元格B4的另一个下拉列表中选择匹配的项目。这可能吗? 例如,sheet1 上的下拉菜单位于sheet1 的单元格B4 上,如果选择某个日期,则自动转到sheet2 并在sheet2 的下拉单元格B4 中选择匹配的日期。 这只需要在工作表 1 上的 3 个不同日期发生。
如果在sheet1的下拉列表中选择了3个日期之一,我已经可以自动切换到sheet2,但它不会转到sheet2的B4下拉列表中的精确匹配日期。 这是从sheet1切换到sheet2的VBA代码:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Range("B4").Value
Case Is = "08/01/2024 - 08/18/2024"
Worksheets("Weeks3").Activate
Case Is = "09/30/2024 - 10/20/2024"
Worksheets("Weeks3").Activate
Case Is = "12/02/2024 - 12/22/2024"
Worksheets("Weeks3").Activate
End Select
End Sub
Private Sub Worksheet_Activate()
Range("B4").Select
End Sub
假设您的下拉列表是数据验证列表:
Private Sub Worksheet_Change(ByVal Target As Range)
'Only interested in changes to B4
If Target.Address(False, False) <> "B4" Then Exit Sub
Select Case Target.Value
Case "08/01/2024 - 08/18/2024", "09/30/2024 - 10/20/2024", "12/02/2024 - 12/22/2024"
With ThisWorkbook.Worksheets("Weeks3")
.Range(Target.Address).Value = Target.Value
.Activate
End With
End Select
End Sub