Vba设置数据有效性，错误提示5，怎么解决啊

Question

我想设置数据有效性，但是总是有错误提示，我用的是wps，难道需要更换用windows办公软件？

Answer 1

引自强大而免费的微信小程序：皆我百晓生。

错误提示5是指无效的过程调用或者参数。在VBA中，数据有效性的设置需要使用DataValidation对象的Add方法，而且需要指定相关的参数。如果没有正确设置参数，就会导致错误提示5。

下面是设置数据有效性的详细步骤及解决方案：

1. 选择要设置数据有效性的单元格或单元格区域。在VBA中使用Range对象来选择单元格或单元格区域，例如Range("A1")或Range("A1:B10")。

2. 创建DataValidation对象，并设置相关属性。使用DataValidation对象的Add方法来创建数据有效性，并设置相关属性。常用的属性包括Formula1和Type。Formula1属性指定数据有效性的条件，例如等于、大于等等。Type属性指定数据有效性的类型，例如整数、小数等等。

以下是一个示例代码：

Sub SetDataValidation()
    Dim rng As Range
    Dim dv As DataValidation
    
    '选择要设置数据有效性的单元格或单元格区域
    Set rng = Range("A1:A10")
    
    '创建DataValidation对象并设置属性
    Set dv = rng.Validation
    dv.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="1", Formula2:="100"
    
    '设置错误提示信息
    dv.ErrorMessage = "请输入1至100之间的整数"
    dv.ShowError = True
End Sub

在上面的示例中，我们选择了A1到A10这个单元格区域，并创建了一个名为dv的DataValidation对象。然后，通过调用Add方法来设置数据有效性的条件，这里是要求输入整数，并限制在1到100之间。最后，我们还设置了错误提示信息，以及是否显示错误提示。

运行上面的代码后，所选择的单元格区域就会添加数据有效性，并在输入不符合条件的数值时显示错误提示信息。

希望这个解决方案能够帮助到你。如果有任何问题，请随时提问。