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

Вход

Регистрация

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

 

= Мир MS Excel/Перемещение форматов в Таблицу результатов из 2-х исходных. - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перемещение форматов в Таблицу результатов из 2-х исходных. (Формулы/Formulas)
Перемещение форматов в Таблицу результатов из 2-х исходных.
russcand Дата: Воскресенье, 21.06.2020, 23:58 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Привет всем.
Есть 2 одинаковые таблицы. Внутри по 20 ячеек ( 4х5 ). Каждая ячейка имеет свои координаты типа 1:1 - это первая верхняя ячейка , 4:5 - последняя нижняя.
Каждая ячейка имеет свой цвет. Всего цветов 3.
Надо создать таблицу_3 , которая также имеет размерность 4х5 , но в них ячейки представляют собой склейку ячеек соответствующих координат исходных таблиц.
К сообщению приложен файл: 2907643.xlsx (10.7 Kb)


Сообщение отредактировал russcand - Понедельник, 22.06.2020, 04:12
 
Ответить
СообщениеПривет всем.
Есть 2 одинаковые таблицы. Внутри по 20 ячеек ( 4х5 ). Каждая ячейка имеет свои координаты типа 1:1 - это первая верхняя ячейка , 4:5 - последняя нижняя.
Каждая ячейка имеет свой цвет. Всего цветов 3.
Надо создать таблицу_3 , которая также имеет размерность 4х5 , но в них ячейки представляют собой склейку ячеек соответствующих координат исходных таблиц.

Автор - russcand
Дата добавления - 21.06.2020 в 23:58
Nic70y Дата: Понедельник, 22.06.2020, 13:31 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
1) удалил объединение ячеек в 3-й таблице
2) о координатах не понял ни чего.
[vba]
Код
Sub u_921()
    u_1 = 15 'начальный столбец таблицы
    u_6 = 1 - (u_1 Mod 2)
    For Each u_2 In Range("o9:v13")
        u_3 = u_2.Column
        u_4 = u_2.Row
        u_5 = Application.Round((u_3 - u_1 + 1) / 2, 0)
        u_7 = (u_3 + u_6) Mod 2
        u_8 = "c9:f13" '1-я таблица
        If u_7 = 0 Then u_8 = "i9:l13" '2-я таблица
        u_9 = Application.Index(Range(u_8), u_4 - 8, u_5).Interior.Color
        u_2.Interior.Color = u_9
    Next
End Sub
[/vba]
К сообщению приложен файл: 2907643.xlsm (19.3 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 22.06.2020, 13:32
 
Ответить
Сообщение1) удалил объединение ячеек в 3-й таблице
2) о координатах не понял ни чего.
[vba]
Код
Sub u_921()
    u_1 = 15 'начальный столбец таблицы
    u_6 = 1 - (u_1 Mod 2)
    For Each u_2 In Range("o9:v13")
        u_3 = u_2.Column
        u_4 = u_2.Row
        u_5 = Application.Round((u_3 - u_1 + 1) / 2, 0)
        u_7 = (u_3 + u_6) Mod 2
        u_8 = "c9:f13" '1-я таблица
        If u_7 = 0 Then u_8 = "i9:l13" '2-я таблица
        u_9 = Application.Index(Range(u_8), u_4 - 8, u_5).Interior.Color
        u_2.Interior.Color = u_9
    Next
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 22.06.2020 в 13:31
russcand Дата: Вторник, 23.06.2020, 11:35 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Спасибо. Долго разбирался с ВБА ( не проявлялся в Эксэле ).
Не подскажите , что с этим кодом делать?
Нажимаю на кнопку_1 - выдает такое сообщение: (вложение )
К сообщению приложен файл: 4367364.png (7.0 Kb)
 
Ответить
СообщениеСпасибо. Долго разбирался с ВБА ( не проявлялся в Эксэле ).
Не подскажите , что с этим кодом делать?
Нажимаю на кнопку_1 - выдает такое сообщение: (вложение )

Автор - russcand
Дата добавления - 23.06.2020 в 11:35
Nic70y Дата: Вторник, 23.06.2020, 11:40 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
какой-то эксель у Вас сильно умный,
иш ты имя макроса ему не нравиться!
попробуйте другое

перезалил файл, не доделал,
отвлекают, на работе работать приходится иногда (выдумали ж такое)
К сообщению приложен файл: 18.xlsm (19.8 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 23.06.2020, 11:53
 
Ответить
Сообщениекакой-то эксель у Вас сильно умный,
иш ты имя макроса ему не нравиться!
попробуйте другое

перезалил файл, не доделал,
отвлекают, на работе работать приходится иногда (выдумали ж такое)

Автор - Nic70y
Дата добавления - 23.06.2020 в 11:40
russcand Дата: Вторник, 23.06.2020, 12:12 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Ух ты , хорошо получилось!
А как это на другой лист перенести ( там где уже есть мои таблицы )?
 
Ответить
СообщениеУх ты , хорошо получилось!
А как это на другой лист перенести ( там где уже есть мои таблицы )?

Автор - russcand
Дата добавления - 23.06.2020 в 12:12
Nic70y Дата: Вторник, 23.06.2020, 12:16 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
на другой лист
если таблицы на одном листе, то кроме кнопки переносить ничего не нужно,
а так без конкретного примера не очень понятно.

или Вы хотите сам макрос перенести в другую книгу?


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 23.06.2020, 12:16
 
Ответить
Сообщение
на другой лист
если таблицы на одном листе, то кроме кнопки переносить ничего не нужно,
а так без конкретного примера не очень понятно.

или Вы хотите сам макрос перенести в другую книгу?

Автор - Nic70y
Дата добавления - 23.06.2020 в 12:16
russcand Дата: Вторник, 23.06.2020, 12:24 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
да
 
Ответить
Сообщениеда

Автор - russcand
Дата добавления - 23.06.2020 в 12:24
Nic70y Дата: Вторник, 23.06.2020, 12:28 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
создать модуль

вставить в него макрос
назначить кнопке макрос
К сообщению приложен файл: 8560449.gif (58.5 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 23.06.2020, 12:29
 
Ответить
Сообщениесоздать модуль

вставить в него макрос
назначить кнопке макрос

Автор - Nic70y
Дата добавления - 23.06.2020 в 12:28
russcand Дата: Вторник, 23.06.2020, 23:42 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Приветствую еще раз. Я первый раз сталкиваюсь с массивами через такие описательные конструкции. Понять с наскока пока сложно. Для этого нужно время.
Не могли бы Вы записать макрос для вот этой ситуации ( что во вложении , лист_2 ) , плюс ( если не трудно ) комментарии по-строчно к коду.
Это тоже самое , что уже сделано , только я постарался представить таблицы в максимально-приближенном варианте к моим , которые и нужно будет потом заполнить.
Вообщем , там первой стоит сводная таблица , а исходники правее. Кроме этого там по 100 ячеек ( 10х10 ). И адреса ячеек совпадают с теми , которые будут на моем листе в рабочем документе.
Цель - просто перекинуть макрос со всеми описательными формулами , которую Вы сделаете , в мою книгу. Без необходимости что-то корректировать.
И еще , как кнопку организовать на рабочем листе?
Большое спасибо.
К сообщению приложен файл: 1338047.xlsm (24.7 Kb)


Сообщение отредактировал russcand - Среда, 24.06.2020, 17:52
 
Ответить
СообщениеПриветствую еще раз. Я первый раз сталкиваюсь с массивами через такие описательные конструкции. Понять с наскока пока сложно. Для этого нужно время.
Не могли бы Вы записать макрос для вот этой ситуации ( что во вложении , лист_2 ) , плюс ( если не трудно ) комментарии по-строчно к коду.
Это тоже самое , что уже сделано , только я постарался представить таблицы в максимально-приближенном варианте к моим , которые и нужно будет потом заполнить.
Вообщем , там первой стоит сводная таблица , а исходники правее. Кроме этого там по 100 ячеек ( 10х10 ). И адреса ячеек совпадают с теми , которые будут на моем листе в рабочем документе.
Цель - просто перекинуть макрос со всеми описательными формулами , которую Вы сделаете , в мою книгу. Без необходимости что-то корректировать.
И еще , как кнопку организовать на рабочем листе?
Большое спасибо.

Автор - russcand
Дата добавления - 23.06.2020 в 23:42
russcand Дата: Среда, 24.06.2020, 22:50 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Друзья!
Соратники!
Братья и сестры!

Человек , видимо посчитав , что тема завершена , перестал на нее заходить ( или некогда ему сейчас ). А у меня просьба там была.
Тема эта: http://www.excelworld.ru/forum/2-45223-1
Он сделал ( пост 4 , вложение ) , но , поскольку я совсем в макросах ( написании и чтении кода ) ни бум-бум , то попросил в последнем посте №9 переписать код так , как у меня в моей книге , чтоб просто переставил макрос из одной книги в другую и всё , без лишних коррекций кода.
Ну поможите же кто-нибудь..............
 
Ответить
СообщениеДрузья!
Соратники!
Братья и сестры!

Человек , видимо посчитав , что тема завершена , перестал на нее заходить ( или некогда ему сейчас ). А у меня просьба там была.
Тема эта: http://www.excelworld.ru/forum/2-45223-1
Он сделал ( пост 4 , вложение ) , но , поскольку я совсем в макросах ( написании и чтении кода ) ни бум-бум , то попросил в последнем посте №9 переписать код так , как у меня в моей книге , чтоб просто переставил макрос из одной книги в другую и всё , без лишних коррекций кода.
Ну поможите же кто-нибудь..............

Автор - russcand
Дата добавления - 24.06.2020 в 22:50
Pelena Дата: Среда, 24.06.2020, 23:01 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
Темы объединила, т.к. задача одна, вопрос уточняющий


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеТемы объединила, т.к. задача одна, вопрос уточняющий

Автор - Pelena
Дата добавления - 24.06.2020 в 23:01
russcand Дата: Четверг, 25.06.2020, 00:22 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Темы объединила

Хорошо , спасибо.
Подскажите еще , как блок ВБА сделать на русском?
 
Ответить
Сообщение
Темы объединила

Хорошо , спасибо.
Подскажите еще , как блок ВБА сделать на русском?

Автор - russcand
Дата добавления - 25.06.2020 в 00:22
russcand Дата: Четверг, 25.06.2020, 00:28 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Темы объединила

Хорошо , спасибо.
Подскажите еще , как блок ВБА сделать на русском?
 
Ответить
Сообщение
Темы объединила

Хорошо , спасибо.
Подскажите еще , как блок ВБА сделать на русском?

Автор - russcand
Дата добавления - 25.06.2020 в 00:28
Nic70y Дата: Четверг, 25.06.2020, 09:28 | Сообщение № 14
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
в B15:U17 формулы для наглядности,
удалите их потом.
ВБА сделать на русском?
ни как
К сообщению приложен файл: 24-5.xlsm (21.8 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениев B15:U17 формулы для наглядности,
удалите их потом.
ВБА сделать на русском?
ни как

Автор - Nic70y
Дата добавления - 25.06.2020 в 09:28
russcand Дата: Четверг, 25.06.2020, 21:27 | Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Nic70y, спасибо.
Но есть небольшая проблема.
У меня таблицы_1_2 условно форматированы цветом. И этот цвет должен передаваться в Табл_слияния.
Иначе цвета по Вашему макросу не передаются. Только если они простые ( без условного форматирования ).
Сами Табл_1_2 у меня формируются по логикам из других массивов , где номера ячеек закрашиваются через условное форматирование , поэтому в них никак без усл. форматирования не обойтись.
Я , когда формулировал задание вначале , не знал , что условное форматирование в исходных Табл_1_2 имеет значение.
В новом файле я внес эти изменение в задание. Переделайте , пожалуйста , исходя из того , что написал.
Спасибо.
 
Ответить
СообщениеNic70y, спасибо.
Но есть небольшая проблема.
У меня таблицы_1_2 условно форматированы цветом. И этот цвет должен передаваться в Табл_слияния.
Иначе цвета по Вашему макросу не передаются. Только если они простые ( без условного форматирования ).
Сами Табл_1_2 у меня формируются по логикам из других массивов , где номера ячеек закрашиваются через условное форматирование , поэтому в них никак без усл. форматирования не обойтись.
Я , когда формулировал задание вначале , не знал , что условное форматирование в исходных Табл_1_2 имеет значение.
В новом файле я внес эти изменение в задание. Переделайте , пожалуйста , исходя из того , что написал.
Спасибо.

Автор - russcand
Дата добавления - 25.06.2020 в 21:27
Nic70y Дата: Пятница, 26.06.2020, 08:15 | Сообщение № 16
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
В новом файле я внес эти изменение в задание
о каком файле речь?

для УФ[vba]
Код
u_6 = u.Offset(0, u_5).DisplayFormat.Interior.Color
[/vba]


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 26.06.2020, 08:20
 
Ответить
Сообщение
В новом файле я внес эти изменение в задание
о каком файле речь?

для УФ[vba]
Код
u_6 = u.Offset(0, u_5).DisplayFormat.Interior.Color
[/vba]

Автор - Nic70y
Дата добавления - 26.06.2020 в 08:15
russcand Дата: Пятница, 26.06.2020, 13:45 | Сообщение № 17
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
о каком файле речь?

вчера сервер глючил , файл не загрузился.
Даю во вложении:
К сообщению приложен файл: 72431100.xlsm (29.4 Kb)
 
Ответить
Сообщение
о каком файле речь?

вчера сервер глючил , файл не загрузился.
Даю во вложении:

Автор - russcand
Дата добавления - 26.06.2020 в 13:45
Nic70y Дата: Пятница, 26.06.2020, 14:16 | Сообщение № 18
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
.DisplayFormat
К сообщению приложен файл: 4052234.xlsm (30.4 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщение
.DisplayFormat

Автор - Nic70y
Дата добавления - 26.06.2020 в 14:16
russcand Дата: Пятница, 26.06.2020, 14:20 | Сообщение № 19
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Спасибо большое , сейчас гляну.
А как кнопку макроса создать в новой книге?


Сообщение отредактировал russcand - Пятница, 26.06.2020, 14:21
 
Ответить
СообщениеСпасибо большое , сейчас гляну.
А как кнопку макроса создать в новой книге?

Автор - russcand
Дата добавления - 26.06.2020 в 14:20
Nic70y Дата: Пятница, 26.06.2020, 14:24 | Сообщение № 20
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
так
К сообщению приложен файл: 3951606.gif (49.1 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 26.06.2020, 14:25
 
Ответить
Сообщениетак

Автор - Nic70y
Дата добавления - 26.06.2020 в 14:24
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перемещение форматов в Таблицу результатов из 2-х исходных. (Формулы/Formulas)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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