Excel VBA質問箱 IV

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

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


11004 / 13644 ツリー ←次へ | 前へ→

【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 回答[未読]

【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でなんとか拾っているようなんですが・・・

【18717】Re:可変する小計行の合計と任意の小計行...
回答  ちゃっぴ  - 04/10/6(水) 23:40 -

引用なし
パスワード
   ぱっとみですが・・・

> .SpecialCells(xlLastCell).Column

この使い方はあまりよくないですよ。
データ(値)が入っている最終セルとxlLastCellは異なります。
Endプロパティを使用して、最終行を取得したほうが無難かと・・・

【18720】Re:可変する小計行の合計と任意の小計行...
発言  MAM  - 04/10/7(木) 0:10 -

引用なし
パスワード
   ご指摘ありがとうございます。
小計欄が不必要な箇所まで続いてしまうのですね。
ちなみに、Endプロパティを使用するとどのようになるのでしょうか。
再度ご指導お願いいたします。

【18721】Re:可変する小計行の合計と任意の小計行...
回答  ちゃっぴ  - 04/10/7(木) 0:21 -

引用なし
パスワード
   >ちなみに、Endプロパティを使用するとどのようになるのでしょうか。

まずは、ヘルプでEndプロパティを調べてみてください。
それでもわからないようでしたら、どこがわからないか明記の上、
再度ご質問下さい。

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