关于vba中数据有效性参数设置---无附件求助！！

幸福花开0304

各位老师好，我在excel的vba中设置数据有效性，我想达到一个效果就是：既可以从数据有效性的下拉框中选择内容，也可以自己随便输入信息。但我不知道如何来写这个代码。
我在excel单元格中设置时，只是在数据有效性的“出错警告”中在“输入无效数据时显示出错警告”前不要打勾就可以达到，但不知道如何在vba中如何写代码，谢谢老师！

lcluck2002

录制一段宏就明白了。

幸福花开0304

lcluck2002 发表于 2022-12-5 16:13
录制一段宏就明白了。

录了，哪个参数都试了，都不行。

lcluck2002

幸福花开0304

我已经试过了不好用，老师，这个问题虽然现在已经解决了，但我感觉不是最好的方法。谢谢老师。

WANT-T

代码比较简单，之前就写好方法了：

1. 
   
2. Public Sub 向单元格添加列表(rng As Range, addlist As String)
   
3.     With rng.Validation
   
4.         .Delete
   
5.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=addlist
   
6.         .IgnoreBlank = True
   
7.         .InCellDropdown = True
   
8.         .InputTitle = ""
   
9.         .ErrorTitle = ""
   
10.         .InputMessage = ""
    
11.         .ErrorMessage = ""
    
12.         .IMEMode = xlIMEModeNoControl
    
13.         .ShowInput = True
    
14.         .ShowError = False
    
15.     End With
    
16. End Sub

复制代码

幸福花开0304

WANT-T 发表于 2022-12-6 09:23
代码比较简单，之前就写好方法了：

谢谢老师。