1

私が作成しようとしているレポートは、ポリシー外で行われたローンをローン担当者別にグループ化し、ポリシー外で行われたローンのドル金額の小計を示しています。ローンの数もカウントしたいのですが、小計と同じ行にカウントを表示することができません。

 Range("A2:K2", ActiveCell.End(xlDown)).Select
Selection.CurrentRegion.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(1, 7, 8), _
    Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.CurrentRegion.Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(4), _
    Replace:=False, PageBreaks:=False, SummaryBelowData:=True

これにより、必要な小計が列 1、7、および 8 に表示されますが、小計の上に線が挿入され、小計の 1 行上の列 4 にカウントが表示されます。最後に、真/偽のステートメントでさまざまなバリエーションを試しました。また、各ローンの横に 1 の「ダミー」列を追加しようとしましたが、レポートが 1 枚の紙に収まるように「ダミー」列を非表示にしたいのですが、結果をオフセットする方法がわかりません。さまざまなローン担当者によってポリシー外で行われたローンの数は期間によって異なるため、小計数。これを行う方法はありますか？

4

1 に答える 1

1

上記のコメントで解決された pnuts のように、適切な列 (この場合は 1、7、および 8) に小計を表示し、適切な列 (この場合は列 4) にカウントを表示するために、次のコードは美しく機能します。

Range("A2:K2", ActiveCell.End(xlDown)).Select
Selection.CurrentRegion.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(1, 7, 8), _
    Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Columns(4).Replace What:="subtotal(9", Replacement:="subtotal(3", LookAt:=xlPart

範囲内のすべてのセルをカウントする場合は、CountA関数「subtotal(3」) を使用することに注意してください。数値を含むセルのカウントのみが必要な場合 (たとえば、論理値、テキスト、エラー値などを除外する場合)。 、) 次に、Count関数「subtotal(2」) を使用します。

正しい答えをくれたpnutsに再び感謝します！

于 2014-08-20T16:43:49.010 に答える