VBAで配列をシャッフルする(要素をランダムに並べ替える)

  • このエントリーをはてなブックマークに追加
  • Evernoteに保存Evernoteに保存
vba-on-excel-ribbon

VBAでも配列の要素をランダムに並べ替えたいときがあります。

そんなときはランダム関数を使って配列の中をシャッフルする関数を作ってしまいましょう。

スポンサーリンク

ソースコード

ソースはこんな感じです。

やってることは簡単で、乱数を発生させて、2つの要素を入れ替えていくだけです。
完全にランダムになるかって?まぁRandomizeを呼んでるから大丈夫でしょう(?)

使い方

変数の型は配列ではなく、Variant型にしましょう。
要素は数値だけでなく、文字列でもたぶんなんでもOKです。

最後までお読みいただきありがとうございました m(_ _)m

スポンサーリンク
  • このエントリーをはてなブックマークに追加
  • Evernoteに保存Evernoteに保存