Excel 请教如何用VBA设置整列的数据有效性
展开全部
手机WPS表格中怎么设置数据有效性，数据有效性控制数据长度
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
参考代码：
Dim ws As Worksheet
Dim range1 As Range, rng As Range
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set range1 = ws.Range("A1:A63335")
Set rng = ws.Range("B1")
With rng.Validation
.Delete '删除
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Formula1:="='" & ws.Name & "'!" & range1.Address
End With
Dim ws As Worksheet
Dim range1 As Range, rng As Range
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set range1 = ws.Range("A1:A63335")
Set rng = ws.Range("B1")
With rng.Validation
.Delete '删除
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Formula1:="='" & ws.Name & "'!" & range1.Address
End With
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
