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

≪