单元格下拉列表DropDownLines = 20哪里不对，vba运行报错

如果你在VBA中将单元格的下拉列表的.DropDownLines属性设置为20，会报错，因为.DropDownLines是应用于ComboBox控件的属性，而不是应用于单元格的属性。如果你想要设置单元格的下拉列表中可见的行数，可以使用ListRows属性。例如：

With Range("A1").Validation
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
         Formula1:="Option 1,Option 2,Option 3"
    .ListRows = 20 '设置下拉列表中可见的行数为20
End With

这个例子中，将A1单元格设置为有一个下拉列表，选项为"Option 1"、"Option 2"和"Option 3"。然后，使用ListRows属性将下拉列表中可见的行数设置为20。如果下拉列表中的选项不足20个，则只会显示实际的选项数。

相关问题

Excel单元格的下拉列表高度能否调，用vba代码怎么设置

是的，Excel单元格下拉列表的高度可以调整。可以使用VBA代码设置下拉列表高度，具体代码如下：

Sub SetDropdownHeight()
    With Range("A1").Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Formula1:="Option 1,Option 2,Option 3,Option 4,Option 5,Option 6,Option 7,Option 8,Option 9,Option 10"
        .ListRows = 10 '设置下拉列表显示10行
        .InCellDropdown = True
        .InputTitle = "Select an option:"
        .ErrorTitle = "Invalid option"
        .InputMessage = "Click the arrow to see the list of options."
        .ErrorMessage = "Please select a valid option from the list."
        .ShowInput = True
        .ShowError = True
        .DropDownLines = 20 '设置下拉列表高度为20行
    End With
End Sub

在这个示例中，我们将单元格A1的下拉列表设置为包含10个选项，下拉列表高度为20行。你可以根据需要修改代码中的单元格范围、选项数量和下拉列表高度。

单元格下拉列表，怎么调整行数

要调整单元格下拉列表中可见的行数，可以使用ListRows属性。ListRows属性指定下拉列表中可见的行数，如果下拉列表中的选项不足指定的行数，就只会显示实际的选项数。

例如，以下代码将A1单元格设置为下拉列表，选项为"Option 1"、"Option 2"和"Option 3"，并将下拉列表中可见的行数设置为5：

With Range("A1").Validation
    .Delete '删除现有的数据验证
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
         Formula1:="Option 1,Option 2,Option 3"
    .ListRows = 5 '设置下拉列表中可见的行数为5
End With

在这个例子中，使用Delete方法删除现有的数据验证，然后使用Add方法添加一个下拉列表数据验证，并将ListRows属性设置为5。这样就可以将下拉列表中可见的行数设置为5。

需要注意的是，ListRows属性只能用于Excel 2010及更高版本中。在早期版本中，没有这个属性，下拉列表中的行数是固定的。