VBA獲取下拉選項Validation選擇了第幾項
时间: 2024-05-06 21:18:17 浏览: 9
要获取下拉选项 Validation 选择了第几项,可以使用 VBA 中的 Range 和 Validation 对象来实现。以下是示例代码:
```vb
Sub GetValidationIndex()
Dim rng As Range
Dim valList As Validation
Dim selectedItem As String
Dim selectedIndex As Integer
Set rng = Range("A1") '将 A1 单元格替换为您要检查的单元格
Set valList = rng.Validation
If Not valList Is Nothing Then '确保单元格有数据验证
selectedItem = rng.Value '获取所选项的文本
selectedIndex = Application.Match(selectedItem, valList.Formula1, 0) '获取所选项的索引
MsgBox "您选择的是第 " & selectedIndex & " 项。"
Else
MsgBox "此单元格没有数据验证。"
End If
End Sub
```
该代码首先将 A1 单元格的 Validation 对象存储在 valList 变量中。然后,它获取所选项的文本并使用 Application.Match 函数获取所选项的索引。最后,它将所选项的索引显示在一个消息框中。