Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Создание именованного диапазона в VBA
 
Получилось сделать так:
Код
Sub CreateNames_OU()

    Dim rr As Range, llastr As Long, lr As Long, lr2 As Long, lr3 As Long

    llastr = Cells(Rows.Count, 4).End(xlUp).Row
    lr2 = 1
    For lr = 2 To llastr
        If Cells(lr, 4).Value <> Cells(lr + 1, 4).Value Then
            lr3 = lr2 + 1
            Set rr = Range(Cells(lr3, 3), Cells(lr, 3))
            ActiveWorkbook.Names.Add Cells(lr, 4).Value, rr.Address(1, 1, ReferenceStyle:=Application.ReferenceStyle)
            lr2 = lr
        End If
    Next
End Sub



НО! Диапазон создаётся, но его содержимое равняется тексту! Пробовал так... Создал диапазон руками, вбил в пустую ячейку "=Ш27_Отметка", нажал ввод, - возвращаюсь редактировать ячейку куда вбивал "=Ш27_Отметка" - текст синий в строке редактирования и синей рамкой показывает диапазон. А "програмный" диапазон "Ш27_Отметка" так же вбиваю в пустую ячейку - отображает в ней текст "C$2:C$4". Нужно разобраться как нужно правильно (программно) "собрать" диапазон...
Изменено: xploid - 28 авг 2018 01:32:21
Создание именованного диапазона в VBA
 
Дмитрий, Ваш код работает, диапазоны создаются, но с небольшой ошибкой. Видимо я не обозначил как будут создаваться диапазоны...

Я руками создаю диапазон следующим образом: 1. Создаю диапазон с именем "Ш27_Отметка", 2. В этот диапазон попадают ВСЕ значения для "ШКОЛЫ 27" и ТОЛЬКО из столбца "С" (Оценка), 3. Повторяю шаг 1-2 для всех учебных заведений.
В итоге получаются диапазоны ("ИМЯ ДИАПАЗОНА"={ЗНАЧЕНИЕ1:ЗНАЧЕНИЕ2:...:ЗНАЧЕНИЕN})
Ш27_Отметка={4:4:5} (для ШКОЛА 27)
Ш30_Отметка={5:3} (для ШКОЛА 30)
Ш31_Отметка={3:4} (для ШКОЛА 31)

Ваш код я немного переработал чтоб создавался диапазон по одному столбцу а не из нескольких:
сделал так: Set rr = Range(Cells(lr2, 3), Cells(lr, 3))
НО!!!
"Адресация" не верная. У диапазона Ш27_Отметка адреса: С2:С4, у Ш30_Отметка: С4:С6, у Ш31_Отметка: С6:С8 - т.е. адрес начала ячейки следующего диапазона равен адресу последней ячейки предыдущего диапазона. Как бы так подправить!? Я с vba 2-й день как знаком, поэтому прошу помощи!!!
Создание именованного диапазона в VBA
 
Здравствуйте, уважаемые форумчане!


В качестве примера, прикрепил сортированную таблицу учебных заведений с фамилиями учеников и их оценками. Пожалуйста, помогите создать макросом именованные диапазоны так чтобы имена диапазонов брались из столбца "Код уч. заведения".
Автоматический "разбор" каталога товаров по характеристикам
 
Подскажите как скопировать "экзотику" {...}?!?!?!?!   Это ведь индекс, его вроде как-то через shift вводить надо... Ой что-то с памятью моею стало!
Автоматический "разбор" каталога товаров по характеристикам
 
Глянул мельком, вроде всё как надо... Позже отпишусь как опробую "в боевой среде".

Цитата
VideoAlex написал: Попытайтесь пожалуйста создать такой пример...
Да легко! Там и разные виды товаров... Жуть!!!
Автоматический "разбор" каталога товаров по характеристикам
 
Цитата
Bema написал:  xploid , а диаметр всегда в дюймах?
Да, для резьбовых соединений в дюймах. Но есть ещё и соединение "пайка" применяется для соединения полипропиленоых труб (PPR), так там всё в мм: 20мм, 25мм, 32мм и д.т. Под пайку отдельный столбец будет с характеристикой "Размер, мм".

Вот такое наименование: "Крестовина PPR 20мм".
Характеристики: "Материал" - полипропилен, "Размер, мм" - 20, "Тип" - крестовина.
Автоматический "разбор" каталога товаров по характеристикам
 
Здравствуйте!

Пожалуйста, помогите решить задачу следующего содержания при помощи формул...
Необходимо из названия товаров выдернуть его характеристику(ки) которые заданы в таблице характеристик и распихать их по своим ячейкам.

Допустим есть наименование "Кран шар. BASE, стальная рукоятка 1" вн.-вн."
Таблица характеристик:
"Диаметр" может быть: 1/2, 1/4, 1 1/2, 2, 2 1/2 и другие;
"Тип крепления" может быть: вн.-нар., вн.-вн., нар.-нар. и другие.
| Кран шар. BASE, стальная рукоятка 1" вн.-вн. | 1 | вн.-вн. |

Пример прилагается.
Страницы: 1
Наверх