|
>かみちゃんさん
>セル関係がよく分かりません。
>
>以下のような感じでご説明いただけませんか?
>Sheet1
> A B C D E F G H I J ・・ N o
> 1
> 2 12 ↓
> 3
> 4 22(10月〜12月合計) +J4-O4 14(10月〜11月合計)
ややこしいけど四捨五入の関係でどうしてもこの計算式で、N列の値をG列に値複写したいのです。
>
>Sheet2
> A B C D E F G H I J K L M N O P
> 1
> 2 10月 11月 12月 1月
>10 5 9 8
>11
>12
>13
> :
>
>もしかして、
>1★の部分に12を入れたら、
>Sheet1のJ列に:J90の値をSheet1のG1:G90に転記したいということですか?
>
その2
>それであれば、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 の間には、半角スペースが必要です。
と教えていただいたので、G10:G90をN10:N90に置き換えて.Value = .Offset(, -3).Valueを.Value = .Offset(, -7).Valueに置き換えてやってみるとN列のデータが消えてしまします。理由はありますか。
|
|