Страницы: 1
RSS
Случайное выделение ячейки таблицы
 
Здравствуйте. Можно ли реализовать такую функцию? Может макросом? Нужно что бы случайным образом выделялась ячейка из диапазона в столбике. К примеру А1:А100
Сильно не ругайте, я нуб...
 
Жмите F9
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
А как выбрать диапазон и сделать что бы выделялась только одна ячейка?
Сильно не ругайте, я нуб...
 
Код
Sub RNDcell()
Dim Ur As Range, a&, b&
Set Ur = ActiveSheet.UsedRange 'Selection - для выделенного диапазона
a = Rnd * Ur.Rows.Count
b = Rnd * Ur.Columns.Count
Cells(a, b).Activate
End Sub
 
Странно, что выделяет несколько ячеек. Честно говоря, не знаю почему так происходит. Возможно это особенность работы летучих функций в условном форматировании. Изменил решение.
В столбце А формула:
=СТРОКА()=$B$1
в В1 формула:
=СЛУЧМЕЖДУ(1;100)
Если в столбце А будут данные, такой способ естественно не подойдет.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
Anchoret, подскажи пожалуйста, где поменять что бы он работал в диапазоне A1:A100. У меня после нескольких срабатываний почему-то показывает ошибку 400
Сильно не ругайте, я нуб...
 
Neimar, вместо Selection поставьте свой диапазон - [A1:A100]
Изменено: Anchoret - 23.03.2018 19:03:44
Страницы: 1
Наверх