开发DropDowns空值列表错误

时间:2015-08-18 07:49:41

标签: vba excel-vba excel

我有一个名为DD8的简单下拉列表。它使用50行作为控件,问题是目前只使用了45行。这意味着在下拉列表中有5个空行。问题是,如果有人选择一个空行,或者没有选择任何内容(默认为空),则以下代码将显示错误:

With Worksheets(1)
        NameProf = .DropDowns("DD8").List _
            (.DropDowns("DD8").ListIndex)
   End With

我试过像if .DropDowns("DD8").List (.DropDowns("DD8").ListIndex) != ""这样的东西,但是它会显示错误。我搜索了如何仅使用开发选项卡的DropDown列表选择已使用的行,但似乎不可能。

我必须选择50行,因为可以添加新客户。

你知道如何实现吗?

1 个答案:

答案 0 :(得分:0)

如果可以添加新客户,那么我想,并希望你,它超过50 ....所以它不仅仅是现在有5个空白的问题,不是一个选项,但是当他们出现时,也允许客户50-2,483在那里。 ----如果没有关于代码的更多详细信息,我相信这个建议应该有助于指导'你但没有立即解决你的问题。

基本上,每当您调用填充下拉列表时,您需要一些代码来查找customers列中的最后一行数据,然后将您的下拉列表分配给客户的起始行填充到lastrow。这种方式无论你有多少客户2,48,189 ......他们都会在你的下拉列表中显示,而不会出现这个问题。一个简单的谷歌搜索将产生如何在Excel中找到最后一行。

抱歉,我不能破坏代码,让它在第二天就能正常运行,但我认为这应该是一个很好的起点。