我在 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
但是,当我选择合并的单元格时,出现以下错误:
如何运行此代码以处理合并的单元格?
最佳答案
.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
关于excel - 在 Excel 中的合并单元格上键入错误以显示消息功能,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/58590376/