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 

これはメッセージボックスに値ではなく、テキストボックスが表示されます。なぜテキストボックスが必要なのかわかりません。

私は行を参照し、あなたが任意のコードを出てきたん

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