Excel VBA質問箱 IV

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

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


17049 / 76738 ←次へ | 前へ→

【65149】Re:範囲ごとの転記について
回答  こんなん?  - 10/4/19(月) 18:00 -

引用なし
パスワード
   月のデータの範囲はルールがありそうなので、
そのルールでOffsetした範囲と考えていいのであれば、
シートのChangeイベントを利用して、

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 <> "$P$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("Q5:V19")
      Set r = .Offset(, .Columns.Count * v)
    End With
    Application.EnableEvents = False
    Me.Range("J5:O19").Value = r.Value
    Application.EnableEvents = True
'    MsgBox v & vbCrLf & r.Address
  Else
    MsgBox "入力値が誤ってます。"
  End If
End Sub

でどうでしょう。
目的のシートのシートモジュールに記述します。
0 hits

【65147】範囲ごとの転記について isausa 10/4/19(月) 15:51 質問
【65148】Re:範囲ごとの転記について Jaka 10/4/19(月) 16:13 発言
【65149】Re:範囲ごとの転記について こんなん? 10/4/19(月) 18:00 回答
【65197】Re:範囲ごとの転記について isausa 10/4/26(月) 16:46 お礼
【65226】Re:範囲ごとの転記について あや 10/4/28(水) 14:12 回答
【65227】Re:範囲ごとの転記について isausa 10/4/28(水) 14:56 お礼
【65228】Re:範囲ごとの転記について Jaka 10/4/28(水) 15:10 発言

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