Excel VBA質問箱 IV

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

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


54419 / 76738 ←次へ | 前へ→

【27112】Re:累計
回答  MokoMoko  - 05/7/29(金) 9:56 -

引用なし
パスワード
   ▼超超初心者 さん:
こんにちは・・・

>累計からグラフを作るときに月が飛んでいると
>求めているようなグラフが作れません。

該当月と翌々月の平均などの数値を張り込むことがありますが・・・
兎に角累積には必ず何らかのデータを入れないと、グラフの価値が下がります?
というより、問題が発生します。

>データがない月探し出して
>1行挿入し、前月のデータをコピペするというのを
>VBAで自動化したいと思っています。

この考えも近似値を埋めるということでのアイディアでしょうね。

そこで、トライしました。これで出来ると思います。
ピボットもこれで行けるでしょう。
A列からD列までのデータです、更にE、F等までデータ転記する必要があれば
Offsetで同じように増やしてください。


Sub 抜けの月を加え上の行と同じ数値持ち込み()

Dim r As Range
 For Each r In Range("A3", Range("A65535").End(xlUp))
    r.Select
   If r.Offset(1).Value <> DateSerial(Year(r.Value), Month(r.Value) + 1, Day(r.Value)) Then
    r.Offset(1).EntireRow.Insert
    r.Offset(1).Value = DateSerial(Year(r.Value), Month(r.Value) + 1, Day(r.Value))
      r.Offset(1, 1).Value = r.Offset(, 1).Value
      r.Offset(1, 2).Value = r.Offset(, 2).Value
      r.Offset(1, 3).Value = r.Offset(, 3).Value
       ’必要であれば増やしてください
    End If
   If r.Row = Range("A65536").End(xlUp).Row - 1 Then
   Exit Sub
   End If
 Next

End Sub

0 hits

【27010】累計 超超初心者 05/7/26(火) 15:16 質問
【27013】Re:累計 Jaka 05/7/26(火) 16:07 発言
【27076】Re:累計 超超初心者 05/7/28(木) 9:35 質問
【27085】Re:累計 Jaka 05/7/28(木) 16:28 発言
【27112】Re:累計 MokoMoko 05/7/29(金) 9:56 回答
【27130】Re:累計 超超初心者 05/7/29(金) 14:13 質問
【27137】Re:累計 MokoMoko 05/7/29(金) 16:19 回答
【27185】Re:累計 超超初心者 05/8/1(月) 12:16 質問
【27204】Re:累計 MokoMoko 05/8/1(月) 17:16 回答
【27237】Re:累計 超超初心者 05/8/3(水) 10:19 お礼

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