
excel 打开某个工作表自动执行写的vba自动执行,那里不对,请大家看一下
PrivateSubWorkbook_Open()CallSheets("台湾").zaixianzhuangtaiEndSubSubzaixianzhuangtai()...
Private Sub Workbook_Open()
Call Sheets("台湾").zaixianzhuangtai
End Sub
Sub zaixianzhuangtai()
Range("H10:H17").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=现在状态"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
Range("H9").Select
End Sub 展开
Call Sheets("台湾").zaixianzhuangtai
End Sub
Sub zaixianzhuangtai()
Range("H10:H17").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=现在状态"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
Range("H9").Select
End Sub 展开
2个回答
展开全部
经过测试,程序没有问题。可能你 现在状态 没定义。定义一下这个名称。
追问
定义什么名称 这个不是太明白
追答
比如,你的在用状态 分别是 在用 闲置 报废,在A1、A2、A3单元格分别输入这三个。选中A1:A3,在显示 A1 的地方叫名称框,输入 在用状态 四个字就好了。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |