Sub 添加下拉列表()
'
' 添加下拉列表 宏
'
' 快捷键: Ctrl+m
'
With Selection.Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="已中奖,未中奖"
End With
Range("C1").Select
End Sub
其中下拉菜单项可根据需要进行设置,也就是已中奖,未中奖位置
Sub 添加下拉列表()
'
' 添加下拉列表 宏
'
' 快捷键: Ctrl+m
'
With Selection.Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="已中奖,未中奖"
End With
Range("C1").Select
End Sub
其中下拉菜单项可根据需要进行设置,也就是已中奖,未中奖位置