Здравствуйте. Есть макрос для выбора рандомной строки в диапазоне. Но когда по новой открываешь файл, он всегда выбирает 155 строку, потом 128 и т.д
Как сделать что бы всегда были разные значения?
Как сделать что бы всегда были разные значения?
Код |
---|
Sub RNDcell() Dim Ur As Range, a&, b&, aa, adrR$, adrC$, c& Set Ur = [A3:A221] adrR = Ur.EntireRow.Rows.AddressLocal(0, 0) adrC = Ur.EntireColumn.Columns.AddressLocal(0, 0) aa = Split(adrR, ":"): c = CLng(aa(0)) a = c + (Rnd * (Ur.Rows.Count - c)) c = Asc(adrC) - 64 b = c + (Rnd * (Ur.Columns.Count - c)) Cells(a, b).Activate [r1] = ActiveCell.Address End Sub |
Сильно не ругайте, я нуб...