Excel VBA質問箱 IV

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

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


16979 / 76732 ←次へ | 前へ→

【65215】Re:条件によって転記元のデータを変更したい
発言  かみちゃん  - 10/4/27(火) 16:50 -

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

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

以下のようにすればできると思います。
★の行の部分がポイントです。

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim V As Long
 
 If Target.Count <> 1 Then Exit Sub
 If Target.Address <> "$R$1" Then Exit Sub
 '数値でない場合は処理しない
 If IsNumeric(Target.Value) Then
  '整数でかつ、1以上12以下の場合のみ処理する
  If (Int(Target.Value) - Target.Value = 0) And (V >= 1 Or V <= 12) Then
   V = Target.Value
   If V <= 9 Then
    V = V + 12
   End If
   With Range("D15:D20").Resize(, V - 9) '★
    Application.EnableEvents = False
    Range("D4:D9").Resize(, .Columns.Count).Value = .Value '★
    Application.EnableEvents = True
    MsgBox V & vbCrLf & .Address
   End With '★
  Else
   MsgBox "入力値が誤っています"
  End If
 Else
  MsgBox "入力値が誤っています"
 End If
End Sub
1 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 発言

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