| |
こんにちは。かみちゃん です。
横から失礼します。
>> こんにちは。（60）歳さん ？？
なぜ、kanabunさんは、このようにご挨拶されたのかわかりませんが、
> Sheet1のJ10〜J90まで、計算式があり、元データを更新するとJ10〜J90が更新されます。
> この値をG10〜G90まで 値複写をしたいのです。
>
> 元データはsheet2に各月の累計が入っており、Ｏの10〜Ｏの90に前月分までの累計が出るようになっており、
> ｊの10〜90に今月までの累計が出ます。
> そしてｊ10〜90にその差額（今月分）が計算式で出ます。
> Ｅ２に処理月があり、そこへ入力すると、
> 該当月のデータが表示されるようになっています。
ということなのですが、
kanabunさんもおっしゃっているのですが、
セル関係がよく分かりません。
以下のような感じでご説明いただけませんか？
Sheet1
A B C D E F
1
2 ★
3
4
Sheet2
A B C D E F G H I J K L M N O P
1
2
:
10
11
12
:
もしかして、
★の部分に月を入れたら、
Sheet1のJ10:J90の値をSheet1のG1:G90に転記したいということですか？
それであれば、Sheet1のモジュールに以下のように記述します。
Private Sub workisheet_Change(ByVal Target As Range)
Dim r As Range
If Intersect(Target, Range("E2")) Is Nothing Then Exit Sub
Application.EnableEvents = False
With Range("G10:G90")
.Value = .Offset(, -3).Value
End With
Application.EnableEvents = True
End Sub
ByVal と Target の間には、半角スペースが必要です。
|
|
かみちゃん
- 10/8/24(火) 12:58 -
