如何在 MS excel 中实现基于键值对的验证？
用户1619015
我知道如何使用数据 -> 验证 -> 列表从值列表中选取一个单元格值...
我必须将此扩展到类似的功能，即会有 2 个类似的列表。让我们说{简单，平均，复杂} & {3, 5, 7}
在单元格中（比如说 D3），当我选择 simple 时，E3 中的值应该更改为 3，反之亦然......如何在 excel 中实现这一点？
加里的学生
这只是一个例子。假设我们将数据验证(DV)查找列表放在单元格D5到E7 中。然后手动将DV放入D3和E3：
然后在工作表代码区安装以下事件宏：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim E As Range, D As Range
Dim i As Long, v As Variant
Set E = Range("E3")
Set D = Range("D3")
If Target.Count <> 1 Then Exit Sub
v = Target.Value
With Application.WorksheetFunction
Application.EnableEvents = False
If Not Intersect(Target, E) Is Nothing Then
i = .Match(v, Range("E5:E7"), 0)
D.Value = Range("D5").Offset(i - 1, 0).Value
End If
If Not Intersect(Target, D) Is Nothing Then
i = .Match(v, Range("D5:D7"), 0)
E.Value = Range("E5").Offset(i - 1, 0).Value
End If
Application.EnableEvents = True
End With
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
如何在ms excel中组合多个IF
- 2
如何在MS Excel中获取数组大小？
- 3
如何在MS Excel中创建参考表？
- 4
如何在MS Excel中创建动态更新变量
- 5
如何在MS Excel 2007中编写内容？
- 6
如何在MS Project中获取VBA以识别Excel？
- 7
如何在MS-Excel中基于“：”分割字符串？
- 8
如何比较MS Excel中的两列？
- 9
如何在MS Excel中将基于公式的单元格设置为只读？
- 10
如何在MS Excel上基于模式拆分单元格？
- 11
MS Excel：MS Excel中的公式
- 12
您如何在MS Excel中做到这一点？
- 13
如何在MS-Excel中连接日期并接收日期（不是数字）
- 14
如何在MS Excel自动填充中跳过用户选择的日期？
- 15
如何在MS Excel中创建用于打印工作簿的预设
- 16
您如何在MS Excel中做到这一点？
- 17
如何在SUM公式中将文本值视为MS excel中的特定数字
- 18
MS Excel：如何在单个单元格中应用多个对齐方式
- 19
如何在 MS Excel 中垂直放置/放置堆积柱形图数据标签？
- 20
MS Excel中的日历
- 21
MS Excel 中的参考
- 22
如何在Excel 2010中获取键值对
- 23
在Java中的MS Excel中验证数据
- 24
MS Excel-数据验证
- 25
如何在MS Excel或LibreOffice中进行“大圆”计算？
- 26
如何在MS Excel中将VBA应用于多行？
- 27
如何在MS Excel中使用IF获取特定列值？
- 28
如何从MS Excel中的数据计算每月花费的天数？
- 29
在MS Excel中，如何动态设置小数位数？
我来说两句