- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]Excell VBA 数据有效性 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105613)
-- 发布时间：2017/8/22 21:59:00
-- [求助]Excell VBA 数据有效性
Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "Reports\\" & "XXX集团" & Vars("yer") & "年" & Vars("mth") & "月重点工作计划.xlsx")
Dim Ws As MSExcel.WorkSheet
Dim Rg As MSExcel.Range
Ws = Wb.WorkSheets("公司月度计划")
Rg = Ws.Range("A3")
Rg = Rg.Resize(Ws.UsedRange.Rows.Count - 2,1)
Dim vd As MsExcel.Validation
vd = Rg.Validation
With vd
.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
提示错误： 未声明名称xlValidateList
不知道如何在Foxtable中操作Validation，帮助文件看了许久，没搞明白，请指教！
[此贴子已经被作者于2017/8/22 22:01:23编辑过]
-- 发布时间：2017/8/22 22:10:00
--
MSExcel.XlDVType.xlValidateList
-- 发布时间：2017/8/22 22:30:00
--
非常感谢您，前面两个OK了！
未申明 xlBetween 卡住
估计Formula1也会吧
在您提供的链接中也没找到，麻烦您再指导一下！
[此贴子已经被作者于2017/8/22 22:30:59编辑过]
-- 发布时间：2017/8/22 22:40:00
--
百度关键字“xlBetween 命名空间”
-- 发布时间：2017/8/22 22:50:00
--
@有点蓝 非常感谢您，不仅仅解决了问题，还学习了解决问题的办法！
-- 发布时间：2020/2/29 16:40:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146703&page=1&star=1