Excel VBA質問箱 IV

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

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


16980 / 76732 ←次へ | 前へ→

【65214】条件によって転記元のデータを変更したい
質問  isausa  - 10/4/27(火) 16:31 -

引用なし
パスワード
   D15〜D20に10月のデータ、E15〜E20に11月のデータ、F15〜F20に12月データが・・・O15〜O20に9月データが入っています。R1に月を入力するセルがあり、10を入れると10月のD15〜D20のデータがD4〜D9に転記され、11月を入れるとD5〜E20まで、12月はD15〜F20という風にしたいのです。
以前教えていただいたシートモジュールで下記のように、記入してみましたが、転記がその月の分をD4:D9に転記するのみです。
どこをどう変えたら複数月のデータを転記できるのでしょうか

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Dim V As Variant
If Target.Count <> 1 Then Exit Sub
If Target.Address <> "$R$1" Then Exit Sub
V = Choose(Target.Value, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2)
If Not IsNull(V) Then
With Me.Range("D15:D20")
 Set r = .Offset(, .Columns.Count * V)
 End With
 Application.EnableEvents = False
 Me.Range("D4:D9").Value = r.Value
 Application.EnableEvents = True
 MsgBox V & vbCrLf & r.Address
 Else
 MsgBox "入力値が誤っています"
 End If
End Sub
0 hits

【65214】条件によって転記元のデータを変更したい isausa 10/4/27(火) 16:31 質問
【65215】Re:条件によって転記元のデータを変更したい かみちゃん 10/4/27(火) 16:50 発言
【65223】Re:条件によって転記元のデータを変更したい isausa 10/4/28(水) 11:31 質問
【65224】Re:条件によって転記元のデータを変更したい かみちゃん 10/4/28(水) 12:26 発言

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