使用VBA在Excel中的文本框中显示单元格内容

Question

我有一系列包含数据的单元格。 当我单击文本框中的任何单元格时，我希望一个文本框显示该单元格的内容。 这可能吗？ 谢谢

Answer 1

您可以只使用以下内容：

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Long
Dim lRow As Long

lRow = Cells(Rows.Count, 1).End(xlUp).Rows

For i = 1 To lRow
If Cells(i, 1).Count = 1 Then
If Cells(i, 1) = "" Then
Else
If Not Intersect(Target, Cells(i, 1)) Is Nothing Then
MsgBox (i)
End If
End If
End If
Next i
End Sub

这将在消息框中而不是文本框中显示该值。 不知道为什么需要文本框。

我引用该行并在lRow = Cells(Rows.Count, 1).End(xlUp).Rows中将1更改为您正在使用的正确列号

Answer 2

将此添加到工作表中（请参见黑色箭头）：

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    MsgBox Target.Value

End Sub

通常，如果要检查特定范围，可以在事件中定义范围：

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim rngPreselected As Range
    Set rngPreselected = Range("A1:B10")

    If Not Intersect(Target, rngPreselected) Is Nothing Then
        MsgBox Target.Value
    End If

End Sub

在这种情况下， A1:B10是定义的范围。

这就是所谓的Event 。 在此处查看有关事件的更多信息： http : //www.cpearson.com/excel/events.aspx