Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

48246 / 76732

←次へ　｜　前へ→


	【33422】Re:階層チェック＆SUM計算

inoue

- 06/1/11(水) 17:15 -


	引用なし

	パスワード

各階層のブレークを判断させれば良いようです。
[例]
Sub TEST()
Const cnsX1 = "X1"
Dim GYO As Long
Dim GYOMAX As Long
Dim GYO1 As Long
Dim GYO2 As Long
Dim GYO3 As Long
Dim GYO4 As Long
Dim strFormula As String
GYOMAX = Range("A65536").End(xlUp).Row
GYO = 1
Do While GYO <= GYOMAX
　　If Cells(GYO, 1).Value = cnsX1 Then GYO = GYO + 1
　　GYO = GYO + 1
　　GYO1 = GYO
　　Do While ((Cells(GYO, 1).Value > Cells(GYO1 - 1, 1).Value) And _
　　　　　　　(Cells(GYO, 1).Value <> cnsX1) And _
　　　　　　　(GYO <= GYOMAX))
　　　　GYO = GYO + 1
　　　　GYO2 = GYO
　　　　Do While ((Cells(GYO, 1).Value > Cells(GYO2 - 1, 1).Value) And _
　　　　　　　　　(Cells(GYO, 1).Value <> cnsX1) And _
　　　　　　　　　(GYO <= GYOMAX))
　　　　　　GYO = GYO + 1
　　　　　　GYO3 = GYO
　　　　　　Do While ((Cells(GYO, 1).Value > Cells(GYO3 - 1, 1).Value) And _
　　　　　　　　　　　(Cells(GYO, 1).Value <> cnsX1) And _
　　　　　　　　　　　(GYO <= GYOMAX))
　　　　　　　　GYO4 = GYO
　　　　　　　　GYO = GYO + 1
　　　　　　Loop
　　　　　　strFormula = "=SUMIF(R" & GYO3 & "C1:R" & GYO4 & "C1,4,R" & GYO3 & "C:R" & GYO4 & "C)"
　　　　　　Cells(GYO3 - 1, 2).FormulaR1C1 = strFormula
　　　　Loop
　　　　strFormula = "=SUMIF(R" & GYO2 & "C1:R" & GYO4 & "C1,3,R" & GYO2 & "C:R" & GYO4 & "C)"
　　　　Cells(GYO2 - 1, 2).FormulaR1C1 = strFormula
　　Loop
　　strFormula = "=SUMIF(R" & GYO1 & "C1:R" & GYO4 & "C1,2,R" & GYO1 & "C:R" & GYO4 & "C)"
　　Cells(GYO1 - 1, 2).FormulaR1C1 = strFormula
Loop
End Sub

0 hits

▼

【33412】階層チェック＆SUM計算 こば。 06/1/11(水) 15:07