Excel VBA質問箱 IV

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

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


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

54382 / 76738

←次へ　｜　前へ→


	【27150】Subtotalについて

YN62 - 05/7/30(土) 11:17 -


	引用なし

	パスワード

下のような表があります。
test2を実行すると→A列の文字の数１２個を算出できます
　　　　　　　　　　　　　　　 ~~~~~~~~~~
test１のSubtotal(B列の合計）を実行後に、test2を実行すると１３を算出します。
　　　　　　　　　　　　　　　　　　　　　　　　　　　 ~~~~~~~~~~~~~~
何が災いしているのでしょうか。
兎に角B18に数字が入っているtest2がA5:A17のカウントをします。
　　　　　　　　　　　　　　　　　~~~~~~~~~~~~~~~~~~~~~~~
test1とtest2のSubtotalを支障なく実行したいのですが、その方法を教えてください。

　A　　　 B
1
:
5 項目１　　　　項目２
6　111　　　　111
7　112　　　　112
8　113　　　　113
9　114　　　　114
10 115　　　　115
11 116　　　　116
12 117　　　　116
13 118　　　　118
14 119　　　　119
15 120　　　　120
16 121　　　　121
17 122　　　　122

Sub test1()　 '合計はB列18で１３９７になります
Dim lon_Limirow As Range

Set lon_Limirow = Worksheets(1).Cells(65536, 2).End(xlUp)
lon_Limirow.Offset(1).FormulaR1C1 = "=SUBTOTAL(9,R[-" & lon_Limirow.Row & "]C:R[-1]C)"　　　　
End Sub

Sub test2()　　’数は１２ですがtest1実行後は１３になります
Dim 行 As Integer
Dim lastC As Range
　　On Error Resume Next
　　Sheets(1).Columns("A").SpecialCells(xlCellTypeFormulas, 23).ClearContents
　　On Error GoTo 0
　　Set lastC = Range("A65536").End(xlUp)
　　行 = Range("A5").CurrentRegion.Rows.Count
　　
　　lastC.Offset(1).FormulaR1C1 = "=SUBTOTAL(3,R[-" & (行 - 1) & "]C:R[-1]C)"
　　
End Sub

0 hits

▼

【27150】Subtotalについて YN62 05/7/30(土) 11:17

≪