如何始终在Excel中显示数据验证列表的箭头？

Excel是一款强大的电子表格软件，在我们进行数据输入时，我们需要通过数据验证来保证数据的正确性和一致性。数据验证通过设置列表或公式，限制我们输入的数据范围，从而避免了手误或误操作造成的数据错误。在Excel2013及以前的版本中，我们设置了数据验证列表后，只有在单元格中选中时，才能看到箭头，难免会把我们的注意力从上一单元格转移到当前单元格，特别是当列表中的选项较多时，这更加显得笨拙。但是，有没有方法可以使Excel始终显示数据验证列表的箭头呢？下面，我们将一步步为您展示。

步骤一：打开VBA编辑器

在Excel中，我们可以通过VBA编辑器来增加VBA代码，实现自己需要的功能。要打开VBA编辑器，有几种方法，可以用快捷键Alt + F11，也可以在主菜单中找到“开发工具”并点击“Visual Basic”选项。

步骤二：导航到工作表对象

在VBA编辑器中，我们需要导航到工作表对象，其中包含了Excel工作表的所有属性和方法。可以通过按F4或在属性窗口中选择“Sheet1（工作表名称）”来访问它。当然，如果你在数据栏选择任何一个单元格时，该名字后面的括号就会更改为您选择的单元格的名称。

步骤三：输入VBA代码

在VBA编辑器中导航到工作表对象后，我们将输入以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r As Range
    Set r = Range("A1:A10")
    If Not Application.Intersect(Target, r) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        ActiveSheet.DropDowns.Delete
        With ActiveSheet.Range("A1:A10").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
            Formula1:="A,B,C,D,E"
            .IgnoreBlank = True
            .InCellDropdown = True
            '.InputTitle = ""
            '.ErrorTitle = ""
            .InputMessage = ""
            '.ErrorMessage = ""
            .ShowInput = True
            '.ShowError = True
        End With
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

这段代码使用了事件处理程序Worksheet_Selectionchanged。我们定义一个名为r的范围，然后检测用户是否已选择范围A1：A10中的单元格。如果是，在屏幕上删除下拉列表，然后重新创建下拉列表。

该代码指定List的范围为A1:A10，然后利用Formula1参数设置需要显示的列表值，包括A、B、C、D和E。其他参数包括AlertStyle（验证类型）、IgnoreBlank（是否允许空单元格）和InCellDropdown（解除选择时是否显示下拉列表），其中ShowInput参数设置是否显示输入消息。

请注意，此代码仅适用于指定的工作表和特定范围。如果要将其应用于整个工作簿或其他单元格范围，则需要进行相应的更改。