Excel VBA質問箱 IV

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

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


62629 / 76738 ←次へ | 前へ→

【18715】可変する小計行の合計と任意の小計行の合計について
質問  MAM  - 04/10/6(水) 22:57 -

引用なし
パスワード
   Dim 行 As Long, 列 As Integer, 合計数 As Long
  Dim 合計行() As Integer, 合計列() As Integer
  With Range("C9")
    合計数 = 0
    For 列 = .Column To .SpecialCells(xlLastCell).Column
      If Cells(7, 列).Value Like "*TOTAL" Then
        For 行 = .Row To .SpecialCells(xlLastCell).Row - 1
          
            Cells(行, 列).FormulaR1C1 = "=SUM(RC[-" & 合計数 & "]:RC[-1])"
          
        Next
        合計数 = 0
      Else
        合計数 = 合計数 + 1
      End If
    Next
    列 = .SpecialCells(xlLastCell).Column
    If Cells(7, 列).Value Like "G.TOTAL" Then
      For 行 = .Row To .SpecialCells(xlLastCell).Row - 1
        Cells(行, 列).FormulaR1C1 = "=SUM(RC[-" & 列 - .Column & "]:RC[-1])/2"
      Next
    End If
    合計数 = 0
    For 行 = .Row To .SpecialCells(xlLastCell).Row
      If Cells(行, 1).Value Like "*TOTAL" Then
        For 列 = .Column To .SpecialCells(xlLastCell).Column - 1
          
            Cells(行, 列).FormulaR1C1 = "=SUM(R[-" & 合計数 & "]C:R[-1]C)"
          
        Next
        合計数 = 0
      Else
        合計数 = 合計数 + 1
      End If
    Next
    行 = .SpecialCells(xlLastCell).Row
    If Cells(行, 1).Value Like "G.TOTAL" Then
      For 列 = .Column To .SpecialCells(xlLastCell).Column
        Cells(行, 列).FormulaR1C1 = "=SUM(R[-" & 行 - .Row & "]C:R[-1]C)/2"
      Next
    End If
  End With
End Sub

と自分なりがんばったのですが、G.TOTAL(合計)に計算式が入りません。
小計は*TOTALでなんとか拾っているようなんですが・・・

0 hits

【18715】可変する小計行の合計と任意の小計行の合計について MAM 04/10/6(水) 22:57 質問
【18717】Re:可変する小計行の合計と任意の小計行の... ちゃっぴ 04/10/6(水) 23:40 回答
【18720】Re:可変する小計行の合計と任意の小計行の... MAM 04/10/7(木) 0:10 発言
【18721】Re:可変する小計行の合計と任意の小計行の... ちゃっぴ 04/10/7(木) 0:21 回答

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