目次
経緯
VBAでツールを作っている中で、
**「セルの中からランダムで1つ選んで、そこに値を入れたい」**と思う場面がありました。
座席表や、ランダムな割り当て処理に応用できそうだと感じたため、実際にコードを書いてみました。
今回は、複数のセルの中から1つをランダムで選び、そこに任意の値（ここでは "mori"）を入れるという処理を実装しています。
実現したい仕様
- 値として “mori” を用意
- 事前に決めたセル群の中から ランダムで1つのセルを選び、値を入力
- 入力先のセルは
Array()で指定
実装コード（VBA）
Public Sub RandamRandam()
Dim result As String
result = "mori"
' ランダムに値を入力するセルのリストを作成
Dim cellsToFill As Variant
cellsToFill = Array("D8", "D9", "F8", "F9", "H5", "H6", "H8", "H9", "H13", "H14", "H15", "H16")
' ランダム数の初期化
Randomize
' ランダムに選択されたセルに値を設定
Dim selectedCell As String
selectedCell = cellsToFill(Int((UBound(cellsToFill) + 1) * Rnd))
Sheet1.Range(selectedCell).Value = result
End Sub
このコードを実行すると、指定したセルの中から1つがランダムで選ばれ、そこに "mori" という文字列が入力されます。
コードの補足
cellsToFillに、ランダム選択の対象となるセルを配列で指定していますRandomizeを呼び出すことで、Rnd関数の出力が毎回異なるようになります（乱数の種を初期化）UBound()は配列の最大インデックスを取得しますInt((UBound(...) + 1) * Rnd)で 配列内の任意の要素番号をランダムに取得しています
応用のヒント
result = "mori"の部分をresult = BarcodeScanResultのように、バーコードリーダーなどで取得した値に置き換えることで、動的なデータ入力も可能です- 複数回繰り返せば、複数のランダムセルに値を入れる仕様にも発展可能です
Range().Interior.Colorを組み合わせれば、ランダム着色などにも応用できます
まとめ
Array()とRndを組み合わせることで、指定したセル群からランダムに選択し、値を入力可能- 簡単な仕組みながら、座席表の自動割り当てや抽選ツールとして活用できます
- 応用次第で、実務やイベントのサポートツールとしても使える機能
参考になれば幸いです。
副業から独立まで「稼げる」Webスキルを習得する（PR）
ここまで読んでいただきありがとうございます。 最後に宣伝をさせてください。
「副業を始めたいが、何から手をつければいいかわからない」「独学でスキルはついたが、収益化できていない」という悩みを持つ方には、マンツーマン指導のWebスクール**「メイカラ」**が適しています。
このスクールは、単に技術を教えるだけでなく、**「副業として具体的にどう稼ぐか」**という実務直結のノウハウ提供に特化している点が特徴です。
講師陣は、実際に「副業Webライターから1年で独立して月収100万円」を達成したプロや、現役で利益を出し続けているブロガーなど、確かな実績を持つプレイヤーのみで構成されています。そのため、机上の空論ではない、現場で通用する戦術を学ぶことができます。
副業に特化した強み
- 最短ルートの提示: 未経験からでも実績を出せるよう、マンツーマンで指導。
- AI活用の習得: 副業の時間対効果を最大化するための、正しいAI活用スキルも網羅。
- 案件獲得のチャンス: 運営がWebマーケティング会社であるため、実力次第で社内案件の紹介など、仕事に直結する可能性があります。
受講者の多くは、「在宅でできる仕事を探している」「副業を頑張りたい」という20代・30代・40代が中心です。
受講前には、講師による無料説明が行われます。無理な勧誘はなく、自分に合った副業スタイルやプランを相談できるため、まずは話を聞いてみることから始めてみてはいかがでしょうか。
