|
▼nossori さん 今晩は。
>
>今晩は、私もオートフィルターをかけて、このような体験をしたのですが・・・
>オートフィルターをかけたがため、計算(個数)されているのですが、隠れて
>しまい(非表示され)ます。それを避ける方法はあるのでしょうか。
>
>例えば次のような例です
>1 項目 ▽
>2 22
>3 33
>4 44
>5 55
>6 22
>7 55
>8 100
>
>
>項目22で絞り、カウントするとカウント数が出ません
>出す方法で何か良い方法はあるでしょうか。
>
>'以下のように、オートフィルターをかけたあと、
' ブロージャ「表示件数」を配置すればよいと思います。
Sub MainMacro()
'オートフィルターをかけるコード
表示件数 "F"
End Sub
Sub 表示件数(列 As String)
Dim 行 As Long
Dim lastC As Range
On Error Resume Next
Sheets(1).Columns(列).SpecialCells(xlCellTypeFormulas).ClearContents
On Error GoTo 0
Set lastC = Range(列 & 65536).End(xlUp)
行 = Range(列 & 1).CurrentRegion.Rows.Count
lastC.Offset(3, 0).FormulaR1C1 = "=SUBTOTAL(3,R[-" & (行 + 2) & "]C:R[-3]C)"
End Sub
|
|