В данном примере мы VBA код который позволяет найти и выделить ячейку макросом. Выделение ячеек с учетом нестандартных условий может оказаться весьма непростой задачей в Excel. В этом примере описано как легко решается данный тип задач с использованием макроса.
Выделение несмежных диапазонов с помощью макроса
У нас иметься таблица уровней расходов отделов по отношению к расходам труда, произведенного в отдельных отделах за первое полугодие. Часть ячеек, для которых неопределенны показатели содержат значение «нд».
Нам необходимо экспонировать ячейки, которые содержат значение «нд» выделив их серым цветом заливки фона. В таблице на десятки тысяч строк сложно искать все эти ячейки. А если редактировать каждую ячейку вручную, тогда потребуется много сил и времени. Без условно можно воспользоваться инструментом «Условное форматирование». Но иногда для автоматизированного решения данной задачи лучше написать свой собственный макрос. Дело в том, что несмотря на широкие возможности условного форматирования – макрос является более гибким инструментом. Его потом можно применять разным способом. Ведь в основе его принципа действия лежит выделение ячеек с определенным значением. После того как ознакомившись с нашей версией макроса вы сможете его легко изменять, придавая ему все новые функциональные возможности. В результате чего вас будет ограничивать только высота полета вашей фантазии.
Откройте редактор: «РАЗРАБОТЧИК»-«Код»-«Visual Basic» (ALT+F11):
В редакторе создайте новый модуль выбрав инструмент: «Insert»-«Module» и введите в него следующий VBA-код макроса:
Sub PoiskZnach()
Dim i As Long
Dim znach As Variant
Dim diapaz1 As Range
Dim diapaz2 As Range
znach = InputBox("Введите исходное значение")
If znach = "" Then Exit Sub
If IsNumeric(znach) Then znach = znach * 1
Set diapaz1 = Application.Intersect(Selection, ActiveSheet.UsedRange)
If diapaz1 Is Nothing Then
MsgBox "Сначала выделите диапазон!"
Exit Sub
Else
For i = 1 To diapaz1.Count
If diapaz1(i) = znach Then
If diapaz2 Is Nothing Then
Set diapaz2 = diapaz1(i)
Else
Set diapaz2 = Application.Union(diapaz2, diapaz1(i))
End If
End If
Next
End If
If diapaz2 Is Nothing Then
Else
diapaz2.Select
End If
End Sub
Теперь если мы хотим выделить все ячейки которые содержать значение «нд» в таблице отчета уровня расходов по отделам и присвоить им серый фон, тогда выделите диапазон B2:F12 выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Макросы»-«PoiskZnach»-«Выполнить».
В результате скачала появиться диалоговое окно, в котором следует ввести исходное значение для поиска «нд» и нажать ОК:
После чего макрос выполнит все инструкции, описанные в его коде на языке программирования VBA. Он автоматически и самостоятельно выделит все ячейки в выделенном диапазоне, которые содержат значение «нд»:
Результат автоматического выделения макросом группы ячеек соответствующие критерию поиска.
В начале кода объявлены 4 переменные:
- i – счетчик цикла.
- znach – значение которое должна содержать ячейка.
- diapaz1 – адрес проверяемого диапазона.
- diapaz2 – адрес для несмежного диапазона, соответствующий критериям пользователя.
Внимание! Понятие несмежный диапазон ячеек подразумевает то, что этот диапазон состоит из нескольких отдельных областей ячеек. Выделение нескольких диапазонов ячеек можно реализовать вручную с нажатой клавишей CTRL на клавиатуре при выделении мышкой разных областей на листе.
После декларации переменных вызываем окно для ввода критериев поиска необходимого значения и передаем эти же критерии в переменную znach. Сразу в коде описываем инструкцию для проверки на пустые критерии. Если пользователь оставил поле ввода пустым или нажал на кнопку «Отмена», тогда работа макроса будет прервана остановкой с помощью вызова соответствующей инструкции:
Exit Sub
Также проверяется: если пользователь ввел текст похожий на числовое значение, тогда преобразовываем критерий поиска в числовые значения с помощью умножения его на число 1.
На следующей строке кода оператором Set создаем ссылку и в переменную diapaz1 присваиваем диапазон ячеек, который состоит из двух частей:
- адрес выделенного диапазона ячеек.
- адрес используемого диапазона рабочего листа Excel.
Внимание! Используемый диапазон рабочего листа получаем с помощью свойства UsedRange. Это адрес диапазона, который охватывает все ячейки с любыми значениями или измененные форматом на текущем рабочем листе Excel:
Set diapaz1 = Application.Intersect(Selection, ActiveSheet.UsedRange)
Поэтому если предварительно не был выделен диапазон ячеек в области используемого диапазона рабочего листа Excel, тогда объект для переменной diapaz1 будет пустым (без ссылки). И дальнейшая работа макроса – не возможна. Поэтому следует проверить не является ли пустым объект в переменной diapaz1:
If diapaz1 Is Nothing Then ‘проверяем пустой ли объект Range в переменной diapaz1
Если перед выполнением макроса не был выделен диапазон в используемой области листа – объект пустой, тогда выводиться соответствующее сообщение с помощью функции:
MsgBox «Сначала выделите диапазон!»
И выполнение кода снова прерывается функцией Exit Sub. Если же пользователь сделал все верно, тогда дальше беспрепятственно выполняется следующая строка в коде макроса.
В следующей части VBA-макроса создан цикл, внутри которого по очереди все ячейки в диапазоне определенным переменной diapaz1 проверяются на наличие искомого значения:
For i = 1 To diapaz1.Count
If diapaz1(i) = znach Then
If diapaz2 Is Nothing Then
Set diapaz2 = diapaz1(i)
Else
Set diapaz2 = Application.Union(diapaz2, diapaz1(i))
End If
End If
Next
Если диапазон переменной diapaz1 содержит ячейку с таким же значением, как и в переменной znach, тогда несмежный диапазон ячеек в переменной diapaz2 увеличивается на один адрес для включения этой ячейки. Таким образом несмежный диапазон в переменной diapaz2 включая в себя все адреса найденных ячеек. Реализовывается увеличение несмежного диапазона в переменной diapaz2 с помощью свойства Union, оно позволяет создавать несмежные диапазоны.
В конце макроса выполняется одно из двух условий: или выделяются все найденные ячейки, или же выводиться сообщение:
MsgBox «Не найдено исходное значение»
Макрос для пересчета выделенной области
Теперь вы самостоятельно можете модифицировать макрос. гибко настраивая его под самые привередливые потребности. Например, добавим новую возможность. Макрос будет сообщать нам о количестве найденных ячеек, соответствующих критерию поиска. Для этого в конце макроса после строки diapaz2.Select следует добавить новую строчку кода:
MsgBox «Найдено: » & diapaz2.Count & » ячеек!»
После выполнения макроса и выделения ним ячеек мы будем получать сообщение о их количестве:
Чтобы макрос умел работать с ключами поиска для многозначных значений (например, звездочка «*» – для всех символов), тогда следует изменить соответствующий оператор в коде. Перейдите на строку макроса №15 где указана инструкция для проверки соответствия значений просматриваемых ячеек в диапазоне со значением переменной znach. Затем измените оператор сравнение на оператор Like:
If diapaz1(i) Like znach Then
Теперь после такой модификации кода макроса в критерии поиска можно использовать ключ звездочку «*» (для всех символов). Например, если мы в поле ввода введем значение «н*» макрос будет учитывать все ячейки, значение которых начинается с символа буквы «н».
В Excel можно использовать только 2 ключа многозначного значения запроса в поиске:
- «*» – символ звездочки (любые другие символы).
- «?» – вопросительный знак (отдельный символ) например, так:
Если нужно сделать так, чтобы макрос не был чувствителен к регистру вводимых текстовых символов? Если макрос должен одинаково находит значения не зависимо большая или маленькая буква в критерии поиска и выдавать один и тот же результат? Тогда в строке №15 , где проверяется значение ячейки используйте функцию LCase следующим образом:
If LCase(diapaz1(i)) Like LCase(znach) Then
Задача функции LCase замена всех символов в тексте на нижний регистр (маленькие буквы):
Полная новая версия кода модифицированного макроса для выделения ячеек выглядит так:
Sub PoiskZnach()
Dim i As Long
Dim znach As Variant
Dim diapaz1 As Range
Dim diapaz2 As Range
znach = InputBox("Введите исходное значение")
If znach = "" Then Exit Sub
If IsNumeric(znach) Then znach = znach * 1
Set diapaz1 = Application.Intersect(Selection, ActiveSheet.UsedRange)
If diapaz1 Is Nothing Then
MsgBox "Сначала выделите диапазон!"
Exit Sub
Else
For i = 1 To diapaz1.Count
If LCase(diapaz1(i)) Like LCase(znach) Then
If diapaz2 Is Nothing Then
Set diapaz2 = diapaz1(i)
Else
Set diapaz2 = Application.Union(diapaz2, diapaz1(i))
End If
End If
Next
End If
If diapaz2 Is Nothing Then
MsgBox "Не найдено исходное значение"
Else
diapaz2.Select
MsgBox "Найдено: " & diapaz2.Count & " ячеек!"
End If
End Sub
Изучая возможности языка программирования VBA, вы можете самостоятельно совершенствовать свой макрос подобным способом как приведено в данном примере.
|
viktorvk  Пользователь Сообщений: 22 |
Здравствуйте! Прошу помочь с написанием макроса для выделения (активации) в заданном диапазоне только ячеек с определенным значением для их дальнейшего форматирования. Пробовал УФ, получается, но т.к. необходимо по нескольку раз делать такое УФ, а после определенных операций- обратно возвращать все к исходному формату, то в списке правил УФ создается огромное количество этих правил. Документ не могу прикрепить (конфиденциально), есть простой пример. Задача — выделить (активировать) только ячейки со значением Д. Прикрепленные файлы
|
|
Sanja Пользователь Сообщений: 14838 |
#2 08.10.2016 17:00:44
Для «их дальнейшего форматирования» ячейки не обязательно выделять (активировать). Находите их, собирайте в один диапазон (UNION(), например) и форматируйте. Или форматируйте по одной, по мере их нахождения. Читаем про методы .Find и .FindNext Изменено: Sanja — 08.10.2016 17:02:25 Согласие есть продукт при полном непротивлении сторон. |
||
|
viktorvk Пользователь Сообщений: 22 |
#3 08.10.2016 17:20:19
Спасибо, конечно! Но были мысли, что на форуме помогают, а носом тыкают. И пример прикрепляется , как мне показалось, для оказания помощи… |
||
|
Kuzmich Пользователь Сообщений: 7998 |
#4 08.10.2016 17:29:28
Но не делают все за вас. |
||
|
viktorvk Пользователь Сообщений: 22 |
#5 08.10.2016 17:36:57
так я не документ приложил, а простейший пример. С макросами начал работать пару недель назад, естественно нет необходимых знаний. Конкретно вам уже говорил спасибо, очень помогли кстати. Нужен небольшой пинок под зад, так сказать ) |
||
|
Kuzmich Пользователь Сообщений: 7998 |
#6 08.10.2016 17:37:55
|
||||
|
kuklp Пользователь Сообщений: 14868 E-mail и реквизиты в профиле. |
#7 08.10.2016 17:41:33
Фигасе, наезд. А за пивом Вам не сбегать? На форуме помогают освоить Эксель. А для заказов есть специальная ветка . Я сам — дурнее всякого примера! … |
||
|
Sanja Пользователь Сообщений: 14838 |
#8 08.10.2016 18:06:31
Чем мой «пинок» не устроил? Не сильно»пнул»? Прочитали-бы справку про методы, которые я Вам рекомендовал, сами такой код как Kuzmich, написали-бы. Согласие есть продукт при полном непротивлении сторон. |
||||
|
_Igor_61  Пользователь Сообщений: 3007 |
Здравствуйте всем! Прикрепленные файлы
|
|
viktorvk Пользователь Сообщений: 22 |
#10 11.10.2016 21:39:53
Огромное Вам спасибо!!! Очень выручили! |
||
Download Article
Download Article
This wikiHow teaches you how to start using Visual Basic procedures to select data in Microsoft Excel. As long as you’re familiar with basic VB scripting and using more advanced features of Excel, you’ll find the selection process pretty straight-forward.
-
1
Select one cell on the current worksheet. Let’s say you want to select cell E6 with Visual Basic. You can do this with either of the following options:[1]
ActiveSheet.Cells(6, 5).Select
ActiveSheet.Range("E6").Select
-
2
Select one cell on a different worksheet in the same workbook. Let’s say our example cell, E6, is on a sheet called Sheet2. You can use either of the following options to select it:
Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)
Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))
Advertisement
-
3
Select one cell on a worksheet in a different workbook. Let’s say you want to select a cell from Sheet1 in a workbook called BOOK2.XLS. Either of these two options should do the trick:
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(2,1)
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("A2")
-
4
Select a cell relative to another cell. You can use VB to select a cell based on its location relative to the active (or a different) cell. Just be sure the cell exists to avoid errors. Here’s how to use :
-
Select the cell three rows below and four columns to the left of the active cell:
ActiveCell.Offset(3, -4).Select
-
Select the cell five rows below and four columns to the right of cell C7:
ActiveSheet.Cells(7, 3).Offset(5, 4).Select
-
Select the cell three rows below and four columns to the left of the active cell:
Advertisement
-
1
Select a range of cells on the active worksheet. If you wanted to select cells C1:D6 on the current sheet, you can enter any of the following three examples:
ActiveSheet.Range(Cells(1, 3), Cells(6, 4)).Select
ActiveSheet.Range("C1:D6").Select
ActiveSheet.Range("C1", "D6").Select
-
2
Select a range from another worksheet in the same workbook. You could use either of these examples to select cells C3:E11 on a sheet called Sheet3:
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("C3:E11")
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("C3", "E11")
-
3
Select a range of cells from a worksheet in a different workbook. Both of these examples would select cells E12:F12 on Sheet1 of a workbook called BOOK2.XLS:
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E12:F12")
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E12", "F12")
-
4
Select a named range. If you’ve assigned a name to a range of cells, you’d use the same syntax as steps 4-6, but you’d replace the range address (e.g., «E12», «F12») with the range’s name (e.g., «Sales»). Here are some examples:
-
On the active sheet:
ActiveSheet.Range("Sales").Select
-
Different sheet of same workbook:
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("Sales")
-
Different workbook:
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("Sales")
-
On the active sheet:
-
5
Select a range relative to a named range. The syntax varies depending on the named range’s location and whether you want to adjust the size of the new range.
- If the range you want to select is the same size as one called Test5 but is shifted four rows down and three columns to the right, you’d use:
ActiveSheet.Range("Test5").Offset(4, 3).Select
- If the range is on Sheet3 of the same workbook, activate that worksheet first, and then select the range like this:
Sheets("Sheet3").Activate ActiveSheet.Range("Test").Offset(4, 3).Select
- If the range you want to select is the same size as one called Test5 but is shifted four rows down and three columns to the right, you’d use:
-
6
Select a range and resize the selection. You can increase the size of a selected range if you need to. If you wanted to select a range called Database’ and then increase its size by 5 rows, you’d use this syntax:
Range("Database").Select Selection.Resize(Selection.Rows.Count + 5, _Selection.Columns.Count).Select
-
7
Select the union of two named ranges. If you have two overlapping named ranges, you can use VB to select the cells in that overlapping area (called the «union»). The limitation is that you can only do this on the active sheet. Let’s say you want to select the union of a range called Great and one called Terrible:
-
Application.Union(Range("Great"), Range("Terrible")).Select
- If you want to select the intersection of two named ranges instead of the overlapping area, just replace Application.Union with Application.Intersect.
-
Advertisement
-
1
Use this example data for the examples in this method. This chart full of example data, courtesy of Microsoft, will help you visualize how the examples behave:[2]
A1: Name B1: Sales C1: Quantity A2: a B2: $10 C2: 5 A3: b B3: C3: 10 A4: c B4: $10 C4: 5 A5: B5: C5: A6: Total B6: $20 C6: 20 -
2
Select the last cell at the bottom of a contiguous column. The following example will select cell A4:
ActiveSheet.Range("A1").End(xlDown).Select
-
3
Select the first blank cell below a column of contiguous cells. The following example will select A5 based on the chart above:
ActiveSheet.Range("A1").End(xlDown).Offset(1,0).Select
-
4
Select a range of continuous cells in a column. Both of the following examples will select the range A1:A4:
ActiveSheet.Range("A1", ActiveSheet.Range("a1").End(xlDown)).Select
ActiveSheet.Range("A1:" & ActiveSheet.Range("A1"). End(xlDown).Address).Select
-
5
Select a whole range of non-contiguous cells in a column. Using the data table at the top of this method, both of the following examples will select A1:A6:
ActiveSheet.Range("A1",ActiveSheet.Range("A65536").End(xlUp)).Select
ActiveSheet.Range("A1",ActiveSheet.Range("A65536").End(xlUp)).Select
Advertisement
Ask a Question
200 characters left
Include your email address to get a message when this question is answered.
Submit
Advertisement
Video
-
The «ActiveSheet» and «ActiveWorkbook» properties can usually be omitted if the active sheet and/or workbook(s) are implied.
Thanks for submitting a tip for review!
Advertisement
About This Article
Article SummaryX
1. Use ActiveSheet.Range(«E6»).Select to select E6 on the active sheet.
2. Use Application.Goto (ActiveWorkbook.Sheets(«Sheet2»).Range(«E6»)) to select E6 on Sheet2.
3. Add Workbooks(«BOOK2.XLS») to the last step to specify that the sheet is in BOOK2.XLS.
Did this summary help you?
Thanks to all authors for creating a page that has been read 167,832 times.
Is this article up to date?
|
hijacker |
||||
|
1 |
||||
Как выделить определенные ячейки макросом?20.01.2011, 17:19. Показов 19651. Ответов 8 Метки нет (Все метки)
Добрый день! получил в тестовом режиме вот что^
сгенерировал список номеров ячеек путем x+3 |
|
ktrn 0 / 0 / 0 Регистрация: 02.11.2010 Сообщений: 7 |
||||
|
23.01.2011, 10:12 |
2 |
|||
|
Допустим, если нужно выделить в первом столбике каждую третью ячейку, начиная c 1 и заканчивая 5000:
0 |
|
hijacker |
|
|
23.01.2011, 10:37 |
3 |
|
Спасибо, я попробовал! но он не выделяет ячейки все равно. Что делать? |
|
0 / 0 / 0 Регистрация: 02.11.2010 Сообщений: 7 |
|
|
23.01.2011, 11:18 |
4 |
|
нужно, чтобы они просто выделились и одновременно все были с синим выделением (как если выделяешь с нажатым Ctrl) или с выделенными ячейками нужно что-то сделать?
0 |
|
hijacker |
|
|
23.01.2011, 11:18 |
5 |
|
нужно, чтобы они одновременно выделились (как с ctrl) |
|
ktrn 0 / 0 / 0 Регистрация: 02.11.2010 Сообщений: 7 |
||||
|
23.01.2011, 11:50 |
6 |
|||
|
Может, как-нибудь и проще можно…
0 |
|
hijacker |
||||
|
23.01.2011, 11:56 |
7 |
|||
|
Отлично! Это получилось. Огромное спасибо!
|
|
ktrn 0 / 0 / 0 Регистрация: 02.11.2010 Сообщений: 7 |
||||
|
23.01.2011, 12:15 |
8 |
|||
|
Это цикл — Do-loop.
0 |
|
hijacker |
|
|
23.01.2011, 14:00 |
9 |
|
Спасибо еще раз огромное! |
|
IT_Exp Эксперт 87844 / 49110 / 22898 Регистрация: 17.06.2006 Сообщений: 92,604 |
23.01.2011, 14:00 |
|
9 |
|
Выделение ячеек со значениями в колонке при условии |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
