kastroma
Дата: Среда, 06.06.2018, 12:16 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Добрый день! Мне нужна помощь в таком вопросе: 1) У меня есть фаил Exel, в данном файле есть несколько листов, в каждом листе отображены регионы принадлежащие к континентам, (например лист1 это африка и там отображены регионы только африки). Мне надо на первом листе сделать ниспадающее меню в котором будут перечислены континенты (листы) и при выборе какого то значения (листа) отображаются данные выбранного листа! Расписал как смог, заранее спасибо!! К моему сожалению не могу выложить данный файл в сеть
Добрый день! Мне нужна помощь в таком вопросе: 1) У меня есть фаил Exel, в данном файле есть несколько листов, в каждом листе отображены регионы принадлежащие к континентам, (например лист1 это африка и там отображены регионы только африки). Мне надо на первом листе сделать ниспадающее меню в котором будут перечислены континенты (листы) и при выборе какого то значения (листа) отображаются данные выбранного листа! Расписал как смог, заранее спасибо!! К моему сожалению не могу выложить данный файл в сеть kastroma
Ответить
Сообщение Добрый день! Мне нужна помощь в таком вопросе: 1) У меня есть фаил Exel, в данном файле есть несколько листов, в каждом листе отображены регионы принадлежащие к континентам, (например лист1 это африка и там отображены регионы только африки). Мне надо на первом листе сделать ниспадающее меню в котором будут перечислены континенты (листы) и при выборе какого то значения (листа) отображаются данные выбранного листа! Расписал как смог, заранее спасибо!! К моему сожалению не могу выложить данный файл в сеть Автор - kastroma Дата добавления - 06.06.2018 в 12:16
китин
Дата: Среда, 06.06.2018, 13:04 |
Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение без файла просто открываем и читаемтут много всего Автор - китин Дата добавления - 06.06.2018 в 13:04
kastroma
Дата: Среда, 06.06.2018, 13:33 |
Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
без файла просто открываем и читаем тут много всего
Вот пример файла который мне надо сделать из того что перечислено по ссылке очень долго искать, а мне после того как разберусь еще долго форматировать Очень прошу помощи!
без файла просто открываем и читаем тут много всего
Вот пример файла который мне надо сделать из того что перечислено по ссылке очень долго искать, а мне после того как разберусь еще долго форматировать Очень прошу помощи!kastroma
Ответить
Сообщение без файла просто открываем и читаем тут много всего
Вот пример файла который мне надо сделать из того что перечислено по ссылке очень долго искать, а мне после того как разберусь еще долго форматировать Очень прошу помощи!Автор - kastroma Дата добавления - 06.06.2018 в 13:33
китин
Дата: Среда, 06.06.2018, 13:37 |
Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
надо всю таблицу переносить с листов 2 и 3 ?
надо всю таблицу переносить с листов 2 и 3 ? китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение надо всю таблицу переносить с листов 2 и 3 ? Автор - китин Дата добавления - 06.06.2018 в 13:37
kastroma
Дата: Среда, 06.06.2018, 13:39 |
Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Да всю таблицу надо перести, хотя бы сделать так чтобы при выборе с контекстного меню значения перебрасывало на тот лист который выбран
Да всю таблицу надо перести, хотя бы сделать так чтобы при выборе с контекстного меню значения перебрасывало на тот лист который выбран kastroma
Ответить
Сообщение Да всю таблицу надо перести, хотя бы сделать так чтобы при выборе с контекстного меню значения перебрасывало на тот лист который выбран Автор - kastroma Дата добавления - 06.06.2018 в 13:39
китин
Дата: Среда, 06.06.2018, 14:11 |
Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
быстренько на коленке [vba]Код
Sub pren() Dim tt&, dd&, tt1&, dd1& tt1 = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row dd1 = Sheets("Лист1").Cells(4, Columns.Count).End(xlToLeft).Column Sheets("Лист1").Range("A4").Resize(tt1, dd1).Clear Nams = Range("A1").Value tt = Sheets(Nams).Cells(Rows.Count, 1).End(xlUp).Row dd = Sheets(Nams).Cells(1, Columns.Count).End(xlToLeft).Column Sheets(Nams).Range("A1").Resize(tt, dd).Copy Sheets("Лист1").Range("A4").PasteSpecial End Sub
[/vba] выбрать лист и нажать кнопку
быстренько на коленке [vba]Код
Sub pren() Dim tt&, dd&, tt1&, dd1& tt1 = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row dd1 = Sheets("Лист1").Cells(4, Columns.Count).End(xlToLeft).Column Sheets("Лист1").Range("A4").Resize(tt1, dd1).Clear Nams = Range("A1").Value tt = Sheets(Nams).Cells(Rows.Count, 1).End(xlUp).Row dd = Sheets(Nams).Cells(1, Columns.Count).End(xlToLeft).Column Sheets(Nams).Range("A1").Resize(tt, dd).Copy Sheets("Лист1").Range("A4").PasteSpecial End Sub
[/vba] выбрать лист и нажать кнопку китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение быстренько на коленке [vba]Код
Sub pren() Dim tt&, dd&, tt1&, dd1& tt1 = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row dd1 = Sheets("Лист1").Cells(4, Columns.Count).End(xlToLeft).Column Sheets("Лист1").Range("A4").Resize(tt1, dd1).Clear Nams = Range("A1").Value tt = Sheets(Nams).Cells(Rows.Count, 1).End(xlUp).Row dd = Sheets(Nams).Cells(1, Columns.Count).End(xlToLeft).Column Sheets(Nams).Range("A1").Resize(tt, dd).Copy Sheets("Лист1").Range("A4").PasteSpecial End Sub
[/vba] выбрать лист и нажать кнопку Автор - китин Дата добавления - 06.06.2018 в 14:11
_Boroda_
Дата: Среда, 06.06.2018, 14:15 |
Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
Так нужно?Код
=ЕСЛИ(ДВССЫЛ("'"&$A$2&"'!R[-2]C";0)="";"";ДВССЫЛ("'"&$A$2&"'!R[-2]C";0))
Так нужно?Код
=ЕСЛИ(ДВССЫЛ("'"&$A$2&"'!R[-2]C";0)="";"";ДВССЫЛ("'"&$A$2&"'!R[-2]C";0))
_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Так нужно?Код
=ЕСЛИ(ДВССЫЛ("'"&$A$2&"'!R[-2]C";0)="";"";ДВССЫЛ("'"&$A$2&"'!R[-2]C";0))
Автор - _Boroda_ Дата добавления - 06.06.2018 в 14:15
kastroma
Дата: Среда, 06.06.2018, 15:13 |
Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Спасибо! оба варианта хороши, первый подходит больше! китин , написал вам ЛС
Спасибо! оба варианта хороши, первый подходит больше! китин , написал вам ЛС kastroma
Ответить
Сообщение Спасибо! оба варианта хороши, первый подходит больше! китин , написал вам ЛС Автор - kastroma Дата добавления - 06.06.2018 в 15:13