Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.01.2021, 13:52   #1
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию Смена таблиц

Всех с Новым Годом!!!

Как сделать выбор в ячейках А1, С1, Е1 Листа 2.3(возможно этот Лист переименовать просто в ТАВ), чтобы в столбце А менялись данные таблиц.
К примеру:
Выбрал в А1_Лист 2,3(ТАВ), Лист 2.2(Лист 2.1, Лист 2.0, Лист 2.2m) и в столбце А поменялись данные и т .д. ..
Таких таблиц может быть до 5 штук.

Блин, всё забыл....

Спасибо!!!
Изображения
Тип файла: jpg 2021.jpg (107.1 Кб, 0 просмотров)
Вложения
Тип файла: zip mH v3.zip (18.1 Кб, 2 просмотров)
valerij вне форума Ответить с цитированием
Старый 02.01.2021, 19:28   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

ДВССЫЛ отлично восстанавливает память
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 02.01.2021, 19:50   #3
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию

Та сам так сделал, работает и ладно.
Создал выпадающий список, потом
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For x = 2 To 74
    If [a1] = 1 Then
        Cells(x, 1) = Cells(x, 19)
    End If
'If [a1] = 2 Then
'    Cells(x + 1, 1) = Лист2.Cells(x, 1)
'End If
    If [a1] = 2 Then
        Cells(x, 1) = Лист2.Cells(x - 1, 1)
    End If
Next
Application.EnableEvents = True
End Sub
valerij вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
по дельфи - есть несколько таблиц и нужно определенные данные перенести из всех таблиц в одну. Delphi diman4ik477 Помощь студентам 2 20.10.2019 13:35
Перенос значений таблиц из Excel в несколько таблиц Word средствами VBA apfu00 Microsoft Office Excel 0 19.10.2016 16:51
Создание таблиц, используя поля других таблиц Morpho SQL, базы данных 9 11.12.2013 21:54
Сформировать из 30 таблиц 15 000 таблиц, за 15 минут. kola672 Фриланс 31 19.10.2010 01:22
Подключение второй таблицы, выпадающий список, смена таблиц Serega_1988 БД в Delphi 6 29.05.2008 19:54