QlikViewで無作為抽出法

会員番号で、会員を自動で選択するマクロ。
マクロの編集画面は、Ctrl＋Mで開きます。

sub RandomSampling

set memno = activedocument.fields("mem_no")

dim maxnum,cnt,maxcnt

maxnum = 16000 'menbership

maxcnt = 100 'sample

cnt = 0

memno.clear

Do While memno.GetSelectedValues.count < maxcnt

ActiveDocument.Fields("mem_no").toggleselect Int((maxnum * Rnd) + 1)

cnt = cnt + 1

Loop

end sub

クリックするごとに会員を増やす

sub AddRandomSampling

set memno = activedocument.fields("mem_no")

dim maxnum,cnt,maxcnt

maxnum = 16000 'menbership

maxcnt = 10 'sample

cnt = 0

Do While cnt < maxcnt

ActiveDocument.Fields("mem_no").toggleselect Int((maxnum * Rnd) + 1)

cnt = cnt + 1

Loop

end sub