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". Нужно разобраться как нужно правильно (программно) "собрать" диапазон...
Дмитрий, Ваш код работает, диапазоны создаются, но с небольшой ошибкой. Видимо я не обозначил как будут создаваться диапазоны...
Я руками создаю диапазон следующим образом: 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-й день как знаком, поэтому прошу помощи!!!
В качестве примера, прикрепил сортированную таблицу учебных заведений с фамилиями учеников и их оценками. Пожалуйста, помогите создать макросом именованные диапазоны так чтобы имена диапазонов брались из столбца "Код уч. заведения".
Да, для резьбовых соединений в дюймах. Но есть ещё и соединение "пайка" применяется для соединения полипропиленоых труб (PPR), так там всё в мм: 20мм, 25мм, 32мм и д.т. Под пайку отдельный столбец будет с характеристикой "Размер, мм".
Вот такое наименование: "Крестовина PPR 20мм". Характеристики: "Материал" - полипропилен, "Размер, мм" - 20, "Тип" - крестовина.
Пожалуйста, помогите решить задачу следующего содержания при помощи формул... Необходимо из названия товаров выдернуть его характеристику(ки) которые заданы в таблице характеристик и распихать их по своим ячейкам.
Допустим есть наименование "Кран шар. BASE, стальная рукоятка 1" вн.-вн." Таблица характеристик: "Диаметр" может быть: 1/2, 1/4, 1 1/2, 2, 2 1/2 и другие; "Тип крепления" может быть: вн.-нар., вн.-вн., нар.-нар. и другие. | Кран шар. BASE, стальная рукоятка 1" вн.-вн. | 1 | вн.-вн. |