仅引用过滤表中的可见行 - Excel VBA

Question

I am working on a project for selecting films. It contains a table of films, with columns for the name of the film and other data, such as IMDB ratings etc. I've written a macro which filters the table according to user input (eg minimum IMDB rating), and now I would like to select a random film from the filtered table.

I can work out the number of visible films with:

FilmCount = FilmsSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1

And generate a random number from this with:

Randomize
FilmNumber = Int(FilmCount * Rnd) + 1

However, selecting a random film from the filtered table is more difficult; in a non-filtered table I could simply use the random number to select a film with:

Film = FilmsSheet.Cells(FilmNumber + 1, 1)

But in a filtered table, the rows don't ascend numerically due to the missing filtered rows, for example 1,3,4,7...

How can I use the random number to select the corresponding film in the filtered table? Thanks.

Answer 1

Maybe something like this?

Assume that the Film Title (header column) is cell C1, and data is already filtered

Sub test()
Set rngFilmTitle = Range("C2", Range("C" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)
X = Application.Transpose(rngFilmTitle)
Do
rndNum = Int(Rnd() * UBound(X))
Loop
End Sub

If for example the total Film Title (in filtered data) is 4 film title,
If you F8 again and again and again in the loop, the rndNum result will give random number between 0 to 3 (see from the Locals Window in VBA editor).

If you already sure about that, then you can remove the loop,
then have

rndNum = Int(Rnd() * UBound(X))
FilmTitle = X(rndNum) '---> this will give a random film title.

That's if I'm not mistaken to get what you mean, because your title question seems that you want to get a random from the hidden rows (unfiltered rows), but in the body of your question it seems that you want to get a random from the visible rows (filtered rows)?

Answer 2

Using @BigBen's commented suggestion, I iterated through all the rows in the table, and if they were visible added the film name to an array, from which a random film could be picked:

'=====Select random film from visible=====
Dim FilmCount As Integer: FilmCount = FilmsSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1
Dim Films() As Variant
ReDim Films(1 To FilmCount)

x = 1
Dim r As Integer: r = 2
Do Until FilmsSheet.Cells(r, 1) = 0
    If Not FilmsSheet.rows(r).EntireRow.Hidden Then
        Films(x) = FilmsSheet.Cells(r, 1)
        x = x + 1
    End If
    r = r + 1
Loop

Randomize
Dim FilmNumber As Integer: FilmNumber = Int(FilmCount * Rnd) + 1

MsgBox (Films(FilmNumber))