当用户在单元格区域中输入值时，应添加数据验证
vbalearner
我知道如何基于一个单元格值将数据验证列表添加到单元格，但是当在一系列单元格中输入值时如何将数据验证列表添加到单元格？例如，在下面的图像单元格中，范围是D8：H19，而该范围是动态的（列不会更改，但是行数会增加）。
如果用户在任何单元格中输入一个值（以黄色D8：H19突出显示），则数据验证列表应添加到同一行的列A中。
有人可以帮助我编写代码吗？
这是图片 
IAmDranged
您可以创建一个工作表事件过程，该过程将在工作表中单元格或单元格块的内容更改为以下任何时候自动执行：
- 确定您的动态参考范围
- 查找要更改的单元格或单元块与参考范围之间的交点
- 如果此交集实际上返回一个范围，则循环遍历该范围的每个单元格并执行您的操作
这是您可以使用的框架-将其粘贴在工作表代码模块中，并完成符合您需要的代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngInput As Range
Dim rngTotal As Range
Dim rngIntersect As Range
Dim lgInputLastRowNum As Long
Set rngTotal = Range("A:A").Find(what:="Total", LookAt:=xlPart, MatchCase:=False)
If rngTotal Is Nothing Then
MsgBox "No TOTAL found. Exit Sub"
Exit Sub
End If
lgInputLastRowNum = rngTotal.row - 1
Set rngInput = Range("D8:H" & lgInputLastRowNum)
Set rngIntersect = Intersect(Target, rngInput)
If Not rngIntersect Is Nothing Then
For each cell in rngIntersect
'Do your thing here
'To select the cell in column A on the same row as your cell
'do Range("A" & cell.row)
Next cell
End If
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
当用户按“输入”键时，如何在文本区域中自动添加 <br>？
- 2
Swift：我想在表单元格中插入文本，当用户输入文本时，视图应导航到下一个视图
- 3
Excel公式为COUNT，并在单元格区域中添加2个不同的值。
- 4
当用户更改单元格值 excel 时需要评论或注释
- 5
QTableView：当用户使用鼠标单击特定单元格时如何获取数据
- 6
在表格或区域中查找单元格，如果该单元格与其匹配，则返回区域中单元格旁边的值
- 7
当用户在iOS中滑动时，如何在表格视图单元格中添加自定义按钮？
- 8
当用户点击带有UITextField的单元格时，在UITableView上添加自动完成列表/表格
- 9
当用户单击另一个控件时，如何结束单元格的编辑并提交新值？
- 10
使用worksheet.add_table添加数据时格式化单元格数据类型
- 11
根据给定的数据类型验证输入的单元格值
- 12
Excel VBA函数可在单元格区域中查找值
- 13
在满足条件的单元格区域中查找最后一个值
- 14
Excel VBA函数可在单元格区域中查找值
- 15
复制粘贴取决于两个区域中的单元格值
- 16
根据区域中单元格的值隐藏 Excel 工作表
- 17
用户尝试编辑时验证DataGridView单元格
- 18
VBA检查特定单元格区域中的更改
- 19
让用户在包含公式的单元格中输入值
- 20
根据用户表单条目输入单元格值
- 21
条件格式 - 区域中的单元格具有来自另一个区域的匹配值
- 22
当用户触地得分或点击“单元格”时，UITableViewCell会动画调整大小
- 23
当用户点击tableView单元格时如何移动到其他viewControllers
- 24
当用户单击单元格时，如何从表详细视图中的数组加载视频？
- 25
失去焦点时验证单元格值
- 26
根据单元格区域中出现的字母突出显示列中的单元格
- 27
在Excel 2010中，如何在包含多个值单元格的单元格区域中删除重复项并串联值？
- 28
如何根据另一个单元格区域中特定值的出现来计算一个单元格值
- 29
当单元格数据等于某些值时如何添加时间戳
我来说两句