VBA开发：设置单元格数据有效性

当我们开发VBA软件时，经常需要限制用户在单元格中的输入内容。比如，我们设计一个成本分析的软件，可能需要将不同的费用归集到相应的成本分类，假如我们有固定资产、营销费用、原材料等类，但是如果不加限制，很有可能用户会输入一个其他的类别，这就会导致最后的数据混乱。
设置单元格有效性的核心步骤有四点：
1） 我们需要在worksheet.selectionchange事件中编程，这样任何时候需要改变单元格时，就会调用我们的数据有效性程序。
2） 用Target.Column和Target.Row来指定我们需要设置有效性的区域。
3） 设置一个有效性字符串，用逗号分隔各个有效文本。
4） 用Target.Validation对象，先删除原有有效性，再指定我们需要的数据有效性。

下面以一个实例来说明如何进行数据有效性编程。这个实例中，我们对所有位于第1列中第二行之后的单元格指定数据有效性，只允许用户输入“固定资产”,”营销费用”,”原材料”三个词。
图1是运行程序之后的情形，当鼠标指向第一列的某个单元格时，该单元格会出现一个选择框，按选择箭头，就会出现我们指定的三个选项。直接选择就可以输入数据了，当然，用键盘输入也可以。如果我们输入的内容不是指定的内容，就会出现“输入无效“的提示。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 1 And Target.Row > 2 Then
        '给有效性字符串赋值
        validstr = "固定资产,营销费用,原材料"
        
        With Target.Validation '为单元格区域设置有效性
            
            '先删除原有效性设置
            .Delete
            
            '增加新的有效性指定
             . Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=validstr
            .IgnoreBlank = True
            .InCellDropdown = True
        
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = "输入无效" '指定输入错误时的提示
            .IMEMode = xlIMEModeNoControl
            .ShowInput = True
            .ShowError = True
        End With
    End If
End Sub

数据有效性函数运行结果如下图：