Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15862 / 76734 ←次へ | 前へ→

【66346】Re:値複写について
発言  かみちゃん E-MAIL  - 10/8/24(火) 12:58 -

引用なし
パスワード
   こんにちは。かみちゃん です。

横から失礼します。

>> こんにちは。(60)歳さん ??

なぜ、kanabunさんは、このようにご挨拶されたのかわかりませんが、

> Sheet1のJ10〜J90まで、計算式があり、元データを更新するとJ10〜J90が更新されます。
> この値をG10〜G90まで 値複写をしたいのです。
>
> 元データはsheet2に各月の累計が入っており、Oの10〜Oの90に前月分までの累計が出るようになっており、
> jの10〜90に今月までの累計が出ます。
> そしてj10〜90にその差額(今月分)が計算式で出ます。
> E2に処理月があり、そこへ入力すると、
> 該当月のデータが表示されるようになっています。

ということなのですが、
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 の間には、半角スペースが必要です。

1 hits

【66342】値複写について もうすぐ??歳 10/8/24(火) 9:23 質問
【66343】Re:値複写について kanabun 10/8/24(火) 9:53 発言
【66344】Re:値複写について kanabun 10/8/24(火) 9:55 発言
【66345】Re:値複写について もうすぐ??歳 10/8/24(火) 11:55 質問
【66346】Re:値複写について かみちゃん 10/8/24(火) 12:58 発言
【66351】Re:値複写について もうすぐ??歳 10/8/25(水) 11:07 質問
【66352】Re:値複写について かみちゃん 10/8/25(水) 13:05 発言
【66353】Re:値複写について Yuki 10/8/25(水) 14:19 発言
【66356】Re:値複写について kanabun 10/8/25(水) 22:40 発言
【66375】Re:値複写について もうすぐ??歳 10/8/30(月) 8:36 お礼

15862 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free