vba数据有效性代码怎么写(vba给单元格设置数据有效性)

导语：使用VBA代码设置数据有效性（简单实用）

设置数据有效性其实可以不通过VBA代码就可以完成，用VBA代码去完成设置主要是为了保护有效性不被误删。有基础的同学会说我可以通过保护工作表的方式去保护有效性不被误删，我的回答：是的，但是通过VBA代码去规范会更好。

实现代码：

Sub SetDataValidation(ByVal RangeObj As Range, ByVal flag As String)If flag = &34; ThenWith RangeObj.Validation.Delete.Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, Operator _:=xlBetween, Formula1:=&34;.IgnoreBlank = True.InCellDropdown = True.InputTitle = &34;.ErrorTitle = &34;.InputMessage = &34;.ErrorMessage = &34;.IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd WithEnd IfEnd Sub

Private Sub Worksheet_Activate()Call SetDataValidation(Range(Cells(2, 1), Cells(1048576, 1)), &34;)End Sub

代码解析：

&34;=商品!$A$2:$A$1048576&39;要在单元格范围为A2到A1048576单元格设置有效性

Call SetDataValidation(Range(Cells(2, 1), Cells(1048576, 1)), &34;)

本文内容由小美整理编辑！