ユーザーに、それぞれE12、E13の範囲で特定の名前と値(65〜90)を入力してもらいます。E12からE13に入力された値から51を引いた値に対応する範囲までの名前を取得しようとしているため、ユーザーがE13に65を入力すると、Sheet2はE12からの名前をB14の範囲に反映します。次のコードで十分だと思っていましたが、そうではないようです。
Sub Worksheet_Change(ByVal Target As Range)
Sheets("Sheet2").Range("B" & Sheets("Sheet1").Range("E13").Value - 51).Value = Sheets("Sheet1").Range("E12").Value
End Sub
このスニペットは、潜在的に20エントリのシートで20回コピーおよび使用されることを目的としているため、sheet1からの範囲が変更されます。
私はそれを完全に間違ったやり方で行っているかもしれないので、どんな援助もいただければ幸いです。