Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?
10.12.2019, 17:28:11

Войти
Интересные и полезные статьи по работе с Excel и VBA можно найти в разделе ХИТРОСТИ
30 648 Сообщений в 4 889 Тем от 7 513 Пользователей
Последний пользователь: lakinAND
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Excel и VBA
| | |-+  Выборка из массива диапазонов ячеек с формулами и форматом
Страниц: [1]   Вниз
Печать
Автор Тема: Выборка из массива диапазонов ячеек с формулами и форматом  (Прочитано 3118 раз)
0 Пользователей и 1 Гость смотрят эту тему.
VV77
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 3


Просмотр профиля E-mail
« : 22.12.2016, 19:32:06 »

Добрый день всем! Есть два листа одной книги. На листе №2 база данных состоящая из большого количества небольших диапазонов ячеек. Каждому такому небольшому диапазону присвоен свой шифр. На листе №1 выделен участок , куда надо вставлять скопированные диапазоны ячеек. Постоянно прыгать с листка на листок (на листе №2 скопировал, вставил на лист №1, обратно вернулся на лист№2 скопировал другой диапазон...вставил в лист №1)...и т.д. Может кто-нибудь посоветует, как облегчить работу. Мои неудавшиеся попытки: 1) Присвоить каждому диапазону имя (именной диапазон), 2) Сделать выпадающий список, но больше одной ячейки вставить не получилось, а нужен диапазон ячеек. (образец как хотелось бы см. в файле - это образец с другой программы) Прошу помочь....))
« Последнее редактирование: 22.12.2016, 19:37:19 от VV77 » Записан
Perfect2You
Постоялец
***

Репутация: +12/-0
Офлайн Офлайн

Сообщений: 106


Просмотр профиля E-mail
« Ответ #1 : 28.12.2016, 00:19:45 »

Решена ли задача?
Записан
VV77
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 3


Просмотр профиля E-mail
« Ответ #2 : 28.12.2016, 11:38:10 »

Увы, задача не решена  Плачущий
Записан
Perfect2You
Постоялец
***

Репутация: +12/-0
Офлайн Офлайн

Сообщений: 106


Просмотр профиля E-mail
« Ответ #3 : 28.12.2016, 16:48:31 »

Просьба написать на почту. Ваш e-mail скрыт.
Записан
vikttur
Глобальный модератор
Ветеран
*****

Репутация: +113/-0
Офлайн Офлайн

Сообщений: 1 663



Просмотр профиля
« Ответ #4 : 28.12.2016, 21:08:21 »

Perfect2You, почему помощь не в теме?
Записан
Perfect2You
Постоялец
***

Репутация: +12/-0
Офлайн Офлайн

Сообщений: 106


Просмотр профиля E-mail
« Ответ #5 : 28.12.2016, 21:25:45 »

Помощь пока не оказана. Если оказана будет, результат обязуюсь выложить.

С деньгами трубища. Надеюсь спасибы оговорить. Хоть чуть.

Зато честно...
Записан
vikttur
Глобальный модератор
Ветеран
*****

Репутация: +113/-0
Офлайн Офлайн

Сообщений: 1 663



Просмотр профиля
« Ответ #6 : 29.12.2016, 00:12:07 »

Форум - не место для решения Ваших проблем. В том числе финансовых. Тем более в ветке бескорыстной помощи.
Записан
Perfect2You
Постоялец
***

Репутация: +12/-0
Офлайн Офлайн

Сообщений: 106


Просмотр профиля E-mail
« Ответ #7 : 29.12.2016, 19:06:43 »

Грубо. Спорно. Но.

Я за конструктив. Лаять могу, но не интересно (насчет «лаять» прошу не принимать на свой счет – интернет этим пестрит и без нас). Свара – не мой стиль. С удовольствием помогу, чем могу. Если Вам, vikttur, когда-то чем-то смогу – буду рад. Лучше обсуждать и творить, чем ругаться.

Подумал: мои слова могут быть истолкованы как спор. Ничуть. Понял и принял к сведению. Буду стараться держаться в струе В замешательстве
« Последнее редактирование: 29.12.2016, 19:12:25 от Perfect2You » Записан
Дмитрий Щербаков(The_Prist)
Администратор
Ветеран
*****

Репутация: +428/-0
Офлайн Офлайн

Сообщений: 5 100



Просмотр профиля WWW
« Ответ #8 : 29.12.2016, 20:13:31 »

Мое мнение: других отписавшихся по делу в теме нет. Если автор и "решатель" договорятся на возмездное оказание помощи - дело их. Но не забываем отписывать в теме о решении или о просьбе перенести в раздел заказов. Как-то так.
Записан

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
Udik
Пользователь
**

Репутация: +6/-0
Офлайн Офлайн

Сообщений: 69


Просмотр профиля E-mail
« Ответ #9 : 30.12.2016, 15:10:50 »

Вот такой вариант. В 1 листе просто вводите шифр, само скопирует. Делать именованные диапазоны не надо.
Код: (vb)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range
Dim i As Byte
If Target.Count <> 1 Or Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
If Target.Value <> "" Then
Set rng1 = Worksheets("лист2").Range("A:A").Find(What:=Target.Value, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
If rng1 Is Nothing Then
Application.EnableEvents = True
Exit Sub
End If
i = 1
Do While rng1.Offset(i, 0).Value = ""
i = i + 1
Loop
Set rng1 = rng1.Resize(i, 7)
rng1.Copy Destination:=Target
End If
Application.EnableEvents = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Записан
Perfect2You
Постоялец
***

Репутация: +12/-0
Офлайн Офлайн

Сообщений: 106


Просмотр профиля E-mail
« Ответ #10 : 30.12.2016, 17:17:22 »

Браво, Udik!
Ну хоть тему затухавшую для Вас поднял.
Махонькое предложеньице: лучше заменить LookAt:=xlPart на LookAt:=xlWhole, а то теоретически возможно выловить 2-36 вместо 2-3. Автор ведь говорил, что лист большой, мало ли где-то алфавитный порядок нарушен.

Всех с наступающим! Счастья, здоровья и позитивных свершений!!!
« Последнее редактирование: 30.12.2016, 17:56:21 от Perfect2You » Записан
VV77
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 3


Просмотр профиля E-mail
« Ответ #11 : 16.01.2017, 18:14:23 »

Всех с праздниками и большое спасибо! Udik прошу выслать реквизиты (желательно Webmoney), хотелось бы выразить чуть больше спасибов... Улыбка
« Последнее редактирование: 16.01.2017, 18:27:32 от VV77 » Записан
Udik
Пользователь
**

Репутация: +6/-0
Офлайн Офлайн

Сообщений: 69


Просмотр профиля E-mail
« Ответ #12 : 24.01.2017, 16:24:01 »

VV77, Спасибо  Улыбка
Записан
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru