Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как назначить диапазонам имена - по таблице - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Как назначить диапазонам имена - по таблице
radioamator Дата: Пятница, 26.07.2019, 13:20 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день, уважаемые специалисты по VBA.
Помогите пожалуйста решить непростую проблему.

В книге эксель есть несколько листов.
В таблице N4:O26 - находятся имена диапазонов и соответствующие им участки диапазонов.
Имена этим диапазонам пока не назначены.

Как макросом назначить диапазонам столбца O4:O26 - соответствующие имена по столбцу N4:N26 ?
К сообщению приложен файл: 56896.xlsm (20.6 Kb)
 
Ответить
СообщениеДобрый день, уважаемые специалисты по VBA.
Помогите пожалуйста решить непростую проблему.

В книге эксель есть несколько листов.
В таблице N4:O26 - находятся имена диапазонов и соответствующие им участки диапазонов.
Имена этим диапазонам пока не назначены.

Как макросом назначить диапазонам столбца O4:O26 - соответствующие имена по столбцу N4:N26 ?

Автор - radioamator
Дата добавления - 26.07.2019 в 13:20
skais Дата: Пятница, 26.07.2019, 15:58 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 29 ±
Замечаний: 20% ±

Excel 2010
[vba]
Код
Sub Овал1_Click()
   lr = Cells(Rows.Count, "N").End(xlUp).Row
   For i = 4 To lr
        ActiveWorkbook.Names.Add Cells(i, "N"), "=" & Cells(i, "O")
   Next
End Sub
[/vba]
К сообщению приложен файл: 1317103.xlsm (21.1 Kb)
 
Ответить
Сообщение[vba]
Код
Sub Овал1_Click()
   lr = Cells(Rows.Count, "N").End(xlUp).Row
   For i = 4 To lr
        ActiveWorkbook.Names.Add Cells(i, "N"), "=" & Cells(i, "O")
   Next
End Sub
[/vba]

Автор - skais
Дата добавления - 26.07.2019 в 15:58
radioamator Дата: Пятница, 26.07.2019, 16:34 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
skais, пока что-то не работает.

В таблице N4:O26 - указаны конкретные адреса диапазонов.
После срабатывания макроса - в диспетчере имен - нет ни одно похожего диапазона.

Например для имени Имя2 - назначен диапазон - Лист2!I11:N11, но макрос записывает в диспетчер имен - для Имя2 - диапазон Лист2!V16:AA16
При следующем срабатывании - он назначает еще какой-то случайный диапазон.
Не знаю как так получается, но макрос назначает имена диапазонов - по какому-то случайному принципу.
К сообщению приложен файл: 1317103-2.xlsm (21.3 Kb)
 
Ответить
Сообщениеskais, пока что-то не работает.

В таблице N4:O26 - указаны конкретные адреса диапазонов.
После срабатывания макроса - в диспетчере имен - нет ни одно похожего диапазона.

Например для имени Имя2 - назначен диапазон - Лист2!I11:N11, но макрос записывает в диспетчер имен - для Имя2 - диапазон Лист2!V16:AA16
При следующем срабатывании - он назначает еще какой-то случайный диапазон.
Не знаю как так получается, но макрос назначает имена диапазонов - по какому-то случайному принципу.

Автор - radioamator
Дата добавления - 26.07.2019 в 16:34
skais Дата: Пятница, 26.07.2019, 18:22 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 29 ±
Замечаний: 20% ±

Excel 2010
radioamator Потому как диапазоны нужно закрепить $, а иначе они постоянно смещаются, в зависимости от того на какой ячейке вы находитесь.
 
Ответить
Сообщениеradioamator Потому как диапазоны нужно закрепить $, а иначе они постоянно смещаются, в зависимости от того на какой ячейке вы находитесь.

Автор - skais
Дата добавления - 26.07.2019 в 18:22
radioamator Дата: Пятница, 26.07.2019, 19:04 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
skais, теперь я все осознал.
Спасибо за помощь.
 
Ответить
Сообщениеskais, теперь я все осознал.
Спасибо за помощь.

Автор - radioamator
Дата добавления - 26.07.2019 в 19:04
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!