日本語プログラム言語「なでしこ」板

このエントリーをはてなブックマークに追加
571>>552修正:アンケート自動集計ver.3(6/6)
住所別投稿表の1を表数値ソート。住所別投稿表を配列逆順。「E26」をエクセル選択
1のエクセルシート注目。「E27」へ住所別投稿表をエクセル一括設定

一覧は「」
ハンドル別投稿数のハッシュキー列挙を反復
  一覧にハンドル別投稿数@「{対象}」を配列追加

最大投稿数=一覧の配列最大値。投稿別人数は「」。投稿ランキングは「」
最大投稿数 回
  投稿数=最大投稿数−(回数−1)
  人数=0
  一覧を反復
    もし、対象=投稿数ならば、人数=人数+1  
  投稿別人数=投稿別人数&「{投稿数}通,{人数}人{~}」
  もし、投稿数>3ならば、
    ハンドル別投稿数のハッシュキー列挙を反復
      もし、ハンドル別投稿数@「{対象}」=投稿数ならば、
        投稿ランキング=投稿ランキング&「{投稿数}通,{対象},,」&(結果@「{対象}」)&「{~}」

投稿別人数を配列逆順。1のエクセルシート注目
「H26」をエクセル選択。1のエクセルシート注目。「H27」へ投稿別人数をエクセル一括設定
「K26」をエクセル選択。1のエクセルシート注目。「K27」へ投稿ランキングをエクセル一括設定
「B1」をエクセル選択
おわり