Pareto select with % and formula through macro

[warfollowmy_ver]

Guys, how to make the choice of analogue Pareto indicating % with macro, if it's possible? 😃

[tamilarasu]

Not sure but try like below.

Sub Test

Set Field = ActiveDocument.GetField ("Field_Name")

Percentage = ActiveDocument.Variables("A").getcontent.string

Field.ParetoSelect "RangeSum(Above(Sum(Sales),1,RowNo())) / Sum(Total Sales) <=" & Percentage/100

End Sub

[warfollowmy_ver]

Thank you, but is'not work.

Maybe I made a mistake?

Set Field = ActiveDocument.GetField ("[№ Товар, код]","A_123_v")

Percentage = ActiveDocument.Variables("A").getcontent.string

Field.ParetoSelect "RangeSum(Above(Sum({<[Участвует в ABC]={'Да'}>}[Продажи, руб.]),1,RowNo())) / Sum({<[Участвует в ABC]={'Да'}>}Total [Продажи, руб.]) <=" & Percentage/100

Set Field = ActiveDocument.GetField ("[№ Товар, код]","B_123_v")

Percentage = ActiveDocument.Variables("B").getcontent.string

Field.ParetoSelect "RangeSum(Above(Sum({<[Участвует в ABC]={'Да'}>}[Продажи, руб.]),1,RowNo())) / Sum({<[Участвует в ABC]={'Да'}>}Total [Продажи, руб.]) <=" & Percentage/100

[tamilarasu]

You can check the below attachment for understanding.

[warfollowmy_ver]

I choose 1% and macro select all, why? 😃

[tamilarasu]

You mean test file.? I just checked and it seems to be working fine.

[warfollowmy_ver]

But macro not select % correctly, mb in him is mistake?

[tamilarasu]

Can you show me the screenshot.?