おしえて

Subtotal ＶＢＡ

締切済

質問者：東西線
質問日時：2018/04/19 08:03
回答数：2件

Sum = Application.Subtotal(9, Range("b2:b10"))
Range("d1").Value = Sum

Ｅｘｃｅｌの関数だと抽出すると合計の値が切り替わりますが
ＶＢＡでやると抽出した結果が変わりません。
よい方法ないでしょぅか。
　　金額　　　　　　金額 SubTotal
　　　1 　　1
　　　2 合計　　1　　エクセルの場合
　　　3　　　　　　ＶＢＡで実行すると値に変化なし
　　　4
　　　5
　　　6
　　　7
　　　8
　　　9
合計

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

最新から表示
回答順に表示

No.2

回答者： WindFaller
回答日時：2018/04/23 22:22

いつも、ボツにされていますので、期待はしていませんが……。

'①　ユーザー定義関数にする

Function myCalc(Rng as Range)
Dim dSum As Variant
dSum = Application.Subtotal(9, rng)
myCalc = dSum
End Function

'②イベント型
同じシートのどこか、見えないところに、
=NOW() 　とNOW関数をおき、見えないように、書式を　;;;
としておきます。

後は、Calculate イベントで計算させます。
なお、Sum は関数名ですから、dSum としておきます。
Application.Subtotal とするのですから、データ型は、Variant 型

'//
Private Sub Worksheet_Calculate()
Dim dSum As Variant
dSum = Application.Subtotal(9, Range("B2:B10"))
Range("D1").Value = dSum
End Sub
'補足：Dim dSum As Variant　'本来は、Double型ですが、Worksheet関数は、Variant型にする