| |
D15〜D20に10月のﾃﾞｰﾀ、E15〜E20に11月のﾃﾞｰﾀ、F15〜F20に12月ﾃﾞｰﾀが･･･O15〜O20に9月ﾃﾞｰﾀが入っています。Ｒ1に月を入力するセルがあり、10を入れると10月のD15〜Ｄ20のﾃﾞｰﾀがD4〜D9に転記され、11月を入れるとD5〜E20まで、12月はD15〜Ｆ20という風にしたいのです。
以前教えていただいたシートモジュールで下記のように、記入してみましたが、転記がその月の分を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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
