Госпожа Мелодия Office

Часто удобно быть в состоянии выбрать диапазон названия, который содержит текущую ячейку (для exam¦-ple, чтобы изменить форматирование диапазона). Если Вы знаете название диапазона, Вы должны только выбрать это из коробки Названия. Однако, в большой модели или учебном пособии, с которым Вы не знакомы, это, возможно, не очевидно, которые называют, чтобы выбрать. Распечатка 1 показывает VBA func¦-tion и процедуру что ручки эта хозяйственная работа для Вас. However, in a large model or a workbook that you’re not familiar with, it may not be obvious which name to choose. Listing 1 shows a VBA func­tion and procedure that handles this chore for you.

Распечатка 1 Функция VBA и Процедура, Которая Определяет и Выбирает Названный Диапазон, Содержащий Активную Ячейку

Сердце Распечатки 1 - функция GetRangeName, которая берет диапазон как аргумент. Цель этой функции состоит в том, чтобы видеть если переданная range-r-is часть названного диапазона и если так, чтобы возвратить название того диапазона. Главная петля функции пробегает каждый пункт в коллекции Имен активного учебного пособия. Для каждого названия собственность RefersToRange возвращает связанный диапазон, который функция хранит в rtr переменной. Функция тогда использует Пересечь метод, чтобы видеть, пересекаются ли диапазоны r и rtr. Если они делают, это означает, что r - часть названного диапазона (потому что, в этом случае, r - только единственная ячейка), таким образом GetRangeName возвращает имя диапазона. Если никакое пересечение не найдено ни для какого названия, функция возвращает пустую строку (”") вместо этого. The function’s main loop runs through each item in the active workbook’s Names collection. For each name, the RefersToRange property returns the associated range, which the function stores in the rtr variable. The function then uses the Intersect method to see if the ranges r and rtr intersect. If they do, it means that r is part of the named range (because, in this case, r is just a single cell), so GetRangeName returns the range name. If no intersection is found for any name, the function returns the null string (”") instead.

Процедура SelectCurrentNamedRange использует функцию GetRangeName. Процедура хранит активную ячейку в r переменной и затем передает ту переменную к функции GetRangeName. Если возвращаемое значение не пустая строка, процедура выбирает возвращенное имя диапазона. If the return value is not the null string, the procedure selects the returned range name.

Признаки Technorati: названный диапазоном, содержит активную ячейку, превзойти 2007

Популярность: 2 % [?]