Подскажите пожалуйста такую вещь. В прилагаемом файле, в столбце Е генерируются числа в диапазоне от 1 по 52. Мне необходимо быстро видеть местонахождение в этом ряду того или иного числа, допустим 14. Я применил условное форматирование - зелёный цвет и полужирный шрифт. Но мне нужно сразу видеть и номер строки. Приходится выделять мышкой эту ячейку. Неудобно. Можно ли что-то подправить в макросе, чтобы при возникновении числа с полужирным шрифтом сразу выделялсь вся строка ?
Макрос и файл прилагаю.
Макрос и файл прилагаю.
Код |
---|
Sub К52_не_повторяются() Dim x%(1 To 52, 1 To 1), j%, i% With New Collection For i = 1 To 52 If i <> 111 Then .Add i Next Randomize For i = 1 To 52 j = CInt((52 - i) * Rnd + 1) x(i, 1) = .Item(j) .Remove (j) Next [E1].Resize(52) = x End With End Sub |