2010-12-07 12 views

答えて

2

worksheet_selectChangeを使用してください。本質的には、コードは次のようになります。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Target.Address = Range("B10").Address Then 
     Dim rng As Range 
     Set rng = Range("A2") 
     Range(rng.Value).Select 
    End If 
End Sub 

私は明確にするため、範囲のアドレスをハードコーディングされてきました。

+0

グレートが、どのように私は完全な列に適用可能な、このコードを作ることができるのだろうか? –

+0

ユーザーが特定の列をクリックしたかどうかを確認する場合は、アドレス範囲を比較するのではなく、対象範囲の交差と列が「何もない」かどうかを確認します。 –

2

このコードは、レンジ(A2)が選択されるようになりますたび列Bのユーザーがクリック:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
If Not Application.Intersect(Range("B:B"), Target) Is Nothing Then 
Range("A2").Select 
End If 
End Sub