With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="1,2"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
Range("I7").Select
按上面修改下本回答被网友采纳
手机WPS表格中怎么设置数据有效性，数据有效性控制数据长度
本回答被网友采纳excel利用VBA生成无重复无空值的数据有效性下拉列表
1.按Alt+F11，打开VBA编辑器。2.在“工程”窗口中双击要包含数据有效性设置的工作表，在右侧代码窗口中输入下列代码：Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim RowNum, ListRows, ListStartRow, ListColumn As Integer Dim TheList As String Dim Repeated As Boolean If Targe...
Excel VBA 跨表 批量设置数据有效性,悬赏100,如各位马上帮忙解决OK,加...
1.点插入——名称——定义，输入名称“数据”，在引用位置输入公式=OFFSET(数据有效性引用!E$1,0,0,MAX((数据有效性引用!E$1:E$1000<>"")*ROW(数据有效性引用!E$1:E$1000)))后点确定。2.在“数据源”表中A1单元格设置数据有效性——序列，在来源里输入“=数据”后确定。3.将A1单元格...
excel图表技巧显示数据有效性列表
我们可以使用一点小技巧，用VBA代码使得当用户选择数据有效性列表所在的单元格时，增大工作表的显示比例，使数据有效性列表中的字体随之变大，从而更清楚地看到其内容，其效果如下图2所示。图2 代码如下：Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim lZoom As Long Dim lDVZoom As...
excel 怎样保留有效数字?
打开excel，同时按alt+f11打开VBA窗口。右键左边的额THE WORDKBOOK,添加模块。然后复制下面的代码 Public Function YXSZ(X, n As Integer) 'n为有效数字位数 Dim jk, j Dim Y As Single Dim temp As String Dim zfh As Integer zfh = 1 If X = "" Or (Not Application.WorksheetFunction.Is...
Excel 请教如何用VBA设置整列的数据有效性
手机WPS表格中怎么设置数据有效性，数据有效性控制数据长度
Excel 如何利用VBA设置数据有效性
.Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _xlBetween, Formula1:="1,2".IgnoreBlank = True .InCellDropdown = True .InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl .ShowInput = True .Show...
excel怎么设置数据有效性
这个不是数据有效性。相当于按颜色求和，需要用宏 ALT+F11打开VBA窗口。插入一个模块，输入下面代码：Function SumColor(col As Range, sumrange As Range) As Integer Dim icell As Range Application.Volatile For Each icell In sumrange If icell.Interior.ColorIndex = col.Interior.ColorIndex ...
VBA与数据有效性
数据有效性可以使用公式，=IF($A$1=1,$A:$A,IF($A$1=2,$B:$B,IF($A$1=3,$C:$C,$D$D)))我觉得这样是最简单的。但是excel2003数据有效性公式有长度限制，按照问者的要求只能实现到a1=3，再多写就不接受了。
EXCEL VBA 数据有效性代码问题
在VBA工程浏览器里双击你要控制的工作表，如Sheet1,添加Worksheet的change事件，就是当工作表里文本发生改变时触发该事件，参数是发生改变的区域。代码如下：Private Sub Worksheet_Change(ByVal Target As Range)If Target.Text = "123" Then '如果选择的是123 Target.Interior.Color = RGB(255, 0, ...
excel单元格有公式时,数据有效性的设置
Alt + F11 然后双击工程栏下的Sheet1 把下面这段代码贴上，你在B2输入的时候就会出提示框。Private Sub Worksheet_Change(ByVal Target As Range)If IsNumeric(Range("B2").Value) Then If Range("B2").Value < 10000 Then MsgBox "警告数值过小", vbExclamation, "数值小于10000"Else MsgBox "...
