範囲からアクティブセルの値を選択

Question

私は、請求書の日付を含む「Bills」（A10：B50）の範囲を持っています。同じ日付に支払われるものもあり、最後には重複や空白があります。日付と金額を1つのエントリにまとめた「連結」（D10：E30）の範囲があります。 「Consolidated」の日付をクリックすると、条件付き書式を使用してBills範囲内の個々のエントリが強調表示されます。 は私がクリックしていた日付を取得するには、以下を使用します。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
ActiveSheet.Range("C40").Formula = "=" & Target.Address 
End Sub 

しかし、私は他の場所でC40を使用し、それが日付としてフォーマットされ、アクティブセルが日付でない場合、VBAは大混乱を引き起こします。アクティブセルがコンソリデート範囲内にある場合にのみ、どのようにvbaを動作させるのですか？ おかげ

Answer 1

ないクリーンなソリューションが、このような何か試してみてください。説明するために

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Target.Row < Range("$D$10").Row Then Exit Sub 
    If Target.Column < Range("$D$10").Column Then Exit Sub 
    If Target.Row > Range("$D$30").Row Then Exit Sub 
    If Target.Column > Range("$D$30").Column Then Exit Sub 

    ActiveSheet.Range("C40").Formula = "=" & Target.Address 
End Sub 

を、これはターゲット行と列をチェックし、彼らはあなたの選択の範囲を下回る以上ではありません確認します。範囲D10からD30の範囲外の任意の場所をクリックすると、セルC40では何も起こりません。

私はこれをテストして動作します。 D10からD30までをクリックすると、C40の内容が変更されます。うまくいけばそれはあなたのために働く。