excel - 在 Excel 中的合并单元格上键入错误以显示消息功能

Question

我在 Excel 中有一些 VBA 代码，允许我在选择单元格时查看它的内容。这是一个例子:



这是此的代码:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.InputMessage = Target.Text
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
End Sub

但是，当我选择合并的单元格时，出现以下错误:



如何运行此代码以处理合并的单元格？

Answer 1

.InputMessage = Target.Text给出错误。问题是目标是多个单元格，而这些单元格没有属性 Text。 .一个快速的解决方法是获取目标的第一个单元格:

.InputMessage = Target.Cells(1).Text

因此，如果它是一个单元格，它仍然是第一个单元格，如果它被合并，它可以正常工作:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween
        .InputMessage = Target.Cells(1).Text
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
End Sub