Excel VBA質問箱 IV

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

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


22969 / 76732 ←次へ | 前へ→

【59134】Re:マクロでのオートSUM
回答  Hirofumi  - 08/11/30(日) 1:45 -

引用なし
パスワード
   >ただ、Sampleをいただいたので基本的な考え方はわかったのですが、
>もっと基本的なこと。。
>2の場合はどうやるのかなぁ?と・・・疑問が。
>
>最初の質問でも書いた通りマクロの記録でとると
>
>ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
>のような形となってしまうので、毎回変化する行数には
>使えません。
>単純にこのような場合でもSampleにいただいたような
>やり方をしなければいけないのでしょうか?
>基本的なことがわかってなくて申し訳ありません

もっと簡単な方法が有るのかも解りませんが?
私は、ここら辺が一番単純な方法では無いかと思っています
Do〜LoopやFor〜Nextを使って上から見て行く、
若しくは下から見て行くのが、速い遅いは別にして
一番解りやすい(応用範囲が広い)方法なのでは?

因みに、SampleをFor〜Nextで書き換えると、
Sample3のコードと殆ど同じに成ります


Public Sub Sample4()

  Dim i As Long
  Dim lngRows As Long
  Dim lngCount As Long
  Dim lngInsert As Long
  
  '操作するシートを指定
  With ActiveSheet
    '最終行取得
    lngRows = .Cells(Rows.Count, "A").End(xlUp).Row
    '同一値の行数を初期値に
    lngCount = 1
    '2行目〜最終行+1まで繰り返し
    For i = 2 To lngRows + 1
      'もし、現在の値が前の値と違ったら
      If .Cells(i + lngInsert, "A").Value _
          <> .Cells(i + lngInsert - 1, "A").Value Then
        .Cells(i + lngInsert, "A").EntireRow.Insert
        '数式を出力(前回、FormulaR1C1をFormulaと書いたのは間違い)
        .Cells(i + lngInsert, "A").FormulaR1C1 _
            = "=Sum(R[-" & (lngCount) & "]C:R[-1]C)"
        '同一値の行数を初期値に
        lngCount = 1
        '挿入行数を記録
        lngInsert = lngInsert + 1
      Else
        '同一値の行数を更新
        lngCount = lngCount + 1
      End If
    Next i
  End With
  
End Sub

2 hits

【59109】マクロでのオートSUM tantan 08/11/29(土) 0:04 質問
【59110】Re:マクロでのオートSUM Yuki 08/11/29(土) 8:13 発言
【59111】Re:マクロでのオートSUM Hirofumi 08/11/29(土) 8:14 発言
【59116】Re:マクロでのオートSUM Hirofumi 08/11/29(土) 11:46 発言
【59130】Re:マクロでのオートSUM tantan 08/11/29(土) 23:06 質問
【59131】Re:マクロでのオートSUM Hirofumi 08/11/30(日) 0:18 回答
【59132】Re:マクロでのオートSUM Hirofumi 08/11/30(日) 0:43 回答
【59133】Re:マクロでのオートSUM tantan 08/11/30(日) 0:47 質問
【59134】Re:マクロでのオートSUM Hirofumi 08/11/30(日) 1:45 回答
【59151】Re:マクロでのオートSUM tantan 08/11/30(日) 18:54 質問
【59157】Re:マクロでのオートSUM Hirofumi 08/11/30(日) 20:48 回答
【59166】Re:マクロでのオートSUM tantan 08/12/1(月) 0:28 質問
【59168】Re:マクロでのオートSUM SS 08/12/1(月) 9:47 発言
【59195】Re:マクロでのオートSUM tantan 08/12/2(火) 0:57 質問
【59196】Re:マクロでのオートSUM ichinose 08/12/2(火) 8:09 発言
【59263】Re:マクロでのオートSUM tantan 08/12/4(木) 0:41 お礼
【59266】Re:マクロでのオートSUM ichinose 08/12/4(木) 6:22 発言
【59197】Re:マクロでのオートSUM Jaka 08/12/2(火) 9:33 発言
【59224】Re:マクロでのオートSUM Hirofumi 08/12/2(火) 18:43 回答
【59225】Re:マクロでのオートSUM Hirofumi 08/12/2(火) 19:24 回答
【59262】Re:マクロでのオートSUM tantan 08/12/4(木) 0:36 お礼
【59283】Re:マクロでのオートSUM Hirofumi 08/12/4(木) 19:29 回答
【59310】Re:マクロでのオートSUM tantan 08/12/5(金) 18:06 お礼
【59228】Re:マクロでのオートSUM n 08/12/2(火) 21:24 発言
【59264】Re:マクロでのオートSUM tantan 08/12/4(木) 1:50 質問
【59265】Re:マクロでのオートSUM n 08/12/4(木) 3:06 発言
【59311】Re:マクロでのオートSUM tantan 08/12/5(金) 18:08 お礼

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