If Target.Count = 1 And Target.Column = 1 Then
Target.Offset(0, 1).Validation.Delete
Target.Offset(0, 1).ClearContents
Select Case Target
Case "型號"
Target.Offset(0, 1).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="1,2,3,4"
Case "ni"
Target.Offset(0, 1).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="5,6,7,8"
Case "ke"
Target.Offset(0, 1).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="9,0,1,2"
Case "ta"
Target.Offset(0, 1).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="3,4,5,6"
Case Else
Target.Offset(0, 1) = "未設置"
End Select
End If
End Sub
這個壹級菜單要自己設置，我這個是在A列裏放置壹級菜單，當A列被更改時，對B列設置二級菜單。這個是工作表的CHANGE事件。