Кнопка, чтобы раскрасить определенные числа в листе Excel

вопрос

Я ищу способ сделать так, чтобы кнопка окрашивала все числа в число, равное числу на кнопке ... в качестве примера, скажем, у меня есть ряд кнопок от 1 до 10, и в тех же ячейках листа с числами из От 1 до 10 в порядке. Теперь я хочу быстро определить все 3 и 7 по цвету. «Просто: нажмите кнопку 3, действие: раскрасьте все ячейки с цифрой 3, и пусть так будет, пока я снова не нажму кнопку ...»

Решение

Я дам другое решение распечатать эти инструкции и следовать (если это вам подходит)

ОТКРЫТЬ НОВЫЙ EXCEL ФАЙЛ

теперь в редакторе vb скопируйте этот макрос

 Sub test () Dim x As Integer, cfind () As Range, j As Integer, k As Integer, добавьте столбцы в виде строки ("A: A"). Interior.ColorIndex = xlNone x = Range ("F1"). Значение j = WorksheetFunction.CountIf (Столбцы ("A: A"), x) Если j = 0, то MsgBox "нет такого значения в столбце A" Выход из Sub End, если ReDim cfind (1 To j) Для k = 1 To j Установите cfind (k) = Столбцы («A: A»). Cells.Find (что: = x, lookat: = xlWhole) cfind (k) .Interior.ColorIndex = 3 add = cfind (k). Адрес Do Установить cfind (k) = Столбцы («A: A»). Cells.FindNext (cfind (k)) Если cfind (k) - это ничто, то выйти из Do, если cfind (k) .Address = add, затем выйти, выполнить cfind (k) .Interior .ColorIndex = 3 Loop Next k End Sub

щелкните вид меню-панели инструментов-формы

в списке панелей инструментов формы есть одно, называемое spinner

нажмите на нее и нарисуйте кнопку

щелкните правой кнопкой мыши и выберите «управление форматом»

в этом окне выберите элемент управления (последний элемент в верхнем ряду)

тип 1 против "минимального значения"

тип 10 против "максимального значения"

«инкрементное изменение» будет 1

ссылка на ячейки будет $ F $ 1

нажмите ОК

снова щелкните правой кнопкой мыши по кнопке и выберите «назначить макрос», появится имя «test». выделите его и нажмите кнопку «ОК». Предположим, что числа в столбце А для проверки ввода некоторых целых чисел от 1 до 10 (некоторые повторяются дважды или трижды, некоторые пропущены) от А1 до А20. Теперь сохраните файл, выберите любую ячейку за пределами кнопки вращения и снова нажмите вверх. или стрелка вниз на кнопке счетчика. Смотрите значение в F1. если F1 равен 1, ничего не произойдет, если вы нажмете стрелку вниз аналогичным образом, если F1 означает 10, стрелка вверх не даст ничего, в противном случае продолжайте нажимать стрелки вниз или вверх, следите за F1 и посмотрите эти числа (значение которых равно значению F1) в столбце. А будет отмечен красным. Будет ли это полезно для вас. Вы можете изменить план