vba - 列 B7:b と E7:e のテキスト値を追加し、1 つのワークシートだけで J7:j に値を配置します。

Question

わかりました、最初の部分で 1 つの大きな問題に取り組んでいます。以下のコードを実行すると、ワークブックのすべてのページのテキスト値が表示されます。「開始デバイス」ページで「J」の値を表示するだけで済みます。他のページには異なる列見出しがあります。また、マクロが手動で実行された場合にのみ機能します。ユーザーがデバイスのステータスを入力したときに実行できるかどうかを知りたいです。これにより、別のページの値がリアルタイムで更新されます。これは私がこれまで使ってきたコードで、成功は限られています

Sub calctestvalues()

Dim lng As Long
lng = Cells(Rows.Count, "B").End(xlUp).Row
Range("J7:J" & lng).Value = Evaluate("=B7:B" & lng & "&E7:E" & lng)

End Sub