ランダムにセルを選択

ｖｂａをネットで検索しながら作成しているのですが、うまくいかず困っています。
お助けいただけたら嬉しいです。

必要な項目としては
①コード　Ａ列5行目～Ａ列135行目までです。
②ＮＯ　　Ｃ列5行目～ＡＺ列135行目までです。
③検索ｋｅｙ　ＢＦ列5行目～ＢＦ列135行目までです。
すべて1つのシート内での作業です。

やりたいこととしては
”ＢＦ1”セルとＢＦ列の「検索ｋｅｙ］が一致して、且つ色が塗りつぶされていない（ｖｂＷｈｉｔｅ　）セルをランダムに検索したいです。
”ＢＦ2”セルが1の場合はセル1つを検索し、”ＢＦ2”セルが2の場合はセル2つを検索したいです。
2の場合は、半角コンマで2つの値をつなぎます。また、2の場合はセルは同じ行で連続しているセル
のみが対象です。

”Ｃ2”→検索された値と同じ行のＡ列の値
”Ｉ2”→検索された値（数字）。例：Ｃ5セルなら「01」。
　　　　検索された値が2つの場合は、半角カンマでつなげる。
”ＡＵ2”→検索された値の行番号
”ＡＷ2”→検索された値の列番号のひとつめ
”ＡＹ2”→検索された値の列番号のふたつめ

添付画像は、画像の尺があるので一部を非表示にしてあります。
よろしくお願いします。

No.5 ベストアンサー 回答者： めぐみん_ 回答日時： 2020/05/24 15:01

No.4です。

＞Ｉ２は事前に書式を表と同じにしてあるのが条件。

とは『数字が１桁の場合先頭に０が付くように』と言う意味です。
もっと短く書けるようになりた～い。

この回答へのお礼

お返事ありがとうございます。

いつもいつもありがとうございます。
本当に感謝です！
ｖｂａの勉強を始めてからもうすぐ3年ですが
いつになったらめぐみんさんみたいにコードが書けるのか･･･

本当にありがとうございました。

お礼日時：2020/05/24 16:10

No.4 回答者： めぐみん_ 回答日時： 2020/05/24 14:55

Ｉ２は事前に書式を表と同じにしてあるのが条件。

ただ『前・後』については思い浮かびませんでしたが・・・・
１個の場合は問題ないのですが２個ですと２個ずつでしかリストアップしてないので、前後が単独の場合飛ばされてしまうのです～。
取り敢えず出来た範囲が（もうコードメチャクチャに見えるかも）。

Private myArr As Object
Private rs As Range
Private n As Integer

Sub megu() '★ メイン
Dim rf As Range, ra As Range
Dim i As Integer, v As Variant

Randomize
Set myArr = CreateObject("System.Collections.ArrayList")
Set ra = Range("BF5:BF10") '★ 検証用で範囲を縮めてます

Range("C2:O2").ClearContents '★ 事前に書き込みセルを空白に
Range("AU2:AZ2").ClearContents '★ 事前に書き込みセルを空白に

If Range("BF1").Value <> "" Then

Set rf = ra.Find(What:=Range("BF1").Value)

If Not rf Is Nothing Then

Select Case Range("BF2").Value

Case 1
Call Search_1(rf)
Range("I2").Value = rs.Value
Range("AW2").Value = rs.Column
Case 2
Call Search_2(rf)
Range("I2").Value = Join(WorksheetFunction.Index(rs.Value, 1, 0), ",")
v = Split(rs.Address, ":")
Range("AW2").Value = Range(v(0)).Column
Range("AY2").Value = Range(v(1)).Column
End Select

Range("C2").Value = Range("A" & rs.Row).Value
Range("AU2").Value = rs.Row

End If

End If

Set myArr = Nothing
Set rf = Nothing
Set ra = Nothing
Set rs = Nothing

End Sub

Sub Search_1(r As Range) '★ サブ
Dim rr As Range

For Each rr In Range(Cells(r.Row, "C"), Cells(r.Row, "AZ"))

If rr.Interior.ColorIndex = xlNone Then
With myArr
.Add ""
Set myArr(myArr.Count - 1) = rr
End With
End If

Next
n = Int(myArr.Count * Rnd)
Set rs = myArr(n)

End Sub

Sub Search_2(r As Range) '★ サブ
Dim rr As Range

For Each rr In Range(Cells(r.Row, "C"), Cells(r.Row, "AY"))

If rr.Interior.ColorIndex = xlNone And rr.Offset(, 1).Interior.ColorIndex = xlNone Then
With myArr
.Add ""
Set myArr(myArr.Count - 1) = Range(rr, rr.Offset(, 1))
End With
End If

Next
If myArr.Count = 0 Then MsgBox "連続した無色セルが存在しません": End

n = Int(myArr.Count * Rnd)
Set rs = myArr(n)

End Sub

No.3 回答者： めぐみん_ 回答日時： 2020/05/24 08:35

正直初級レベルなのでお手上げですね。

例えば
1,2,3,4,5
と塗りつぶしがなければ（xlNone）２個選択の場合、
1,2
2,3
3,4
4,5
の４つのうちどれかって事ですよね？
その辺りを見越して考えましたけど、ベテラン回答者さんに任せるしかないですね。

この回答へのお礼

お返事ありがとうございます。

そうです。4つのうちどれかです。
めぐみんさんには、何度か助けていただいて感謝しています。
ありがとうございます。

お礼日時：2020/05/24 09:10

No.2 回答者： めぐみん_ 回答日時： 2020/05/23 10:20

検索するセルの個数は１か２の限定なのでしょうか？

それより関連する以前の質問があったならそのリンクを貼って欲しかったかも。

この回答へのお礼

お返事ありがとうございます。

セルの個数は、1か2限定です。

関連する質問ですが、実はめぐみんさんに今年の1月18日にお世話になっています。
題名は「表の項目整理」でした。教えてもらったコード爆速でした。
表を整理した後、色付けして、他の項目も追加して今に至っています。

お礼日時：2020/05/23 10:40

No.1 回答者： めぐみん_ 回答日時： 2020/05/23 09:01

上手くいかないコードを載せてみては？

間違い・改良箇所がわかって勉強になるかもですよ。（私は初級者ですから力になれないかもですが）

この回答へのお礼

お返事ありがとうございます。
3ヶ月くらい前からコツコツとｖｂａを作成して、完成しつつあるのですが
ランダムに検索させる方法がネットを見ても理解できず困っています。

コードを載せて質問したときもあるのですが、その段階に至っていません。

お礼日時：2020/05/23 09:35