Excel VBAの範囲内でテーブル内のセルを操作する

Question

VBAでインターンシップを始めたばかりで、現在のプロジェクトでは少し問題があります。私はそれがオンラインで何もないので、これは私が見ていない簡単な修正だと確信しています。

私のワークシートは、リストオブジェクトの行に2つの入力値を取り、マッピングから関連する値を同じ行の他の列に返します。

私はそれだけではすべての行の各を通じて起こっている私はこのように、この

If Not Intersect(Target, lo.ListColumns("Document Type").Range) Is Nothing Or Not Intersect(Target, lo.ListColumns("Bank").Range) Is Nothing _ 
Or Not Intersect(Target, lo.ListColumns("Transit Type").Range) Is Nothing Then 
    For Each lr in lo.ListRows 
     rowCount = rowCount + 1 
     FindBankInfo lo, loMap, loMap2, rowCount 
    Next lr 
End If 

のように、この作業を行うことができます

If Not Intersect(Target, lo.ListColumns("Document Type").Range) Is Nothing Or Not Intersect(Target, lo.ListColumns("Bank").Range) Is Nothing _ 
Or Not Intersect(Target, lo.ListColumns("Transit Type").Range) Is Nothing Then 
'rowCount in the sub is used as lo.listrow(rowcount), it's the table row I am working with 
    FindBankInfo lo, loMap, loMap2, rowCount 
End If 

ユーザーが変更された行に対するFindBankInfoサブを実行したいです何かが変更された時刻と、既にサブミットされている場合はサブメニューでスキップします。しかし、これは気が利くと非効率的で、人口が多い行の間で空白の行をチェックしているときに行がたくさんあると遅くなるので、空白で終わることはできません。

私が必要とするのはターゲットです。どのようにターゲット範囲を関連するリストオブジェクト範囲に変換し、リストオブジェクトの行番号を取得できますか？

Target.ListObject私にはテーブルに適切な範囲が与えられていますので、それに触れることができ、対話したい範囲を正確に取得できますが、行番号はシートの行数と関連しています。私は本当にいくつかの指導に感謝します、ありがとう。

Answer 1

サブルーチンをUDFに変換し、テーブルの式として使用します。