如何使用VBA在Excel中的下拉列表中选择第一个iterm [英] How to use VBA to select the first iterm in a drop down list in Excel

问题描述

我使用数据验证来创建一些下拉列表。任何人都知道如何使用VBA在下拉列表中选择第一个iterm？

我尝试了Splite功能：

$ b $ （0）

但它不能正常工作，只有在选项1，选项2中的数据验证窗口的源代码中才会有效。如果我将来源提供给一系列选项，那么它将返回错误。

我想应该有一些更聪明的方式。

谢谢！

解决方案

  Sub test（）
 Dim adr As String 
带范围（c4）
 adr = Mid（.Validation.Formula1,2）
 Debug.Print范围（adr）.Cells（1，1）
结束
 End Sub 
  

所以你的答案是：

set c = range（c4）

c.Value = Range（Mid（c.Validation.Formula1,2））。 （1，1）.Value

I used Data Validation to create some drop down lists. Anyone know how to use VBA to select the first iterm in a drop down list?

I tried 'Splite' funciton:

cell.Value = Split(cell.Validation.Formula1, ",")(0)

but it did not work well, it will only work if I put like "option1, option2" in the source in Data Validation window. If I refer the source to a range of options, then it will return with errors.

I guess there should some smarter ways.

Thanks!

解决方案

Sub test()
    Dim adr As String
    With Range("c4")
        adr = Mid(.Validation.Formula1, 2)
        Debug.Print Range(adr).Cells(1, 1)
    End With
End Sub

so your answer is:

set c = range("c4")
c.Value = Range(Mid(c.Validation.Formula1, 2)).Cells(1, 1).Value

这篇关于如何使用VBA在Excel中的下拉列表中选择第一个iterm的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！