更改数据验证下拉列表的宽度

Question

在我的工作簿中，单元格AR8：AS8被合并，单元格中是数据验证下拉列表。列表的来源使用公式=间接（GG8），这指的是不同选项卡中的列表。

我的问题是，当我点击下拉菜单时，该框不够宽，无法显示完整项目。

有没有办法改变这个？如果可能，我宁愿不使用VBA ..

我期待您的回复：）

Answer 1

没有可能的方法来实现这个W / O VBA。如果您想使用VBA解决方案，请在下面找到代码。您必须将此代码粘贴到Worksheet module，而不是Regular module，并根据评论进行调整。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
   If Target.Address = "$H$1" Then 'adjust this range to your drop down list
       Target.Columns.ColumnWidth = 30 'adjust to your needs
   Else
       Columns(8).ColumnWidth = 8 'adjust column number to column with drop down values
   End If
End Sub

未选择下拉列表时：

选择了下拉菜单：