testuser, Большое спасибо! то что нужно.
Создание словаря из таблицы-матрицы
Создание словаря из таблицы-матрицы
Создание словаря из таблицы-матрицы
10.12.2023 13:02:20
Добрый день, уважаемые форумчане!
Просьба подсказать решение по заполнению словаря данными (ключ-элемент) не из линейной таблицы, как у меня сейчас реализовано, а из таблицы-матрицы (она исходная). Данные для ключа - это данные из первого столбца, сцепленные (например через пробел) с данными из первой строки таблицы. Данные для элемента - значение ячейки (если она не пустая), находящееся в перекрестье относительно ячеек (из которых собран ключ) для соответствующего ключа. Сейчас код реализован так:
Изменено: |
|||||
|
Поиск текста в ячейке и выделение его цветом
24.10.2023 15:49:53
Ігор Гончаренко, Ещё раз спасибо за рабочее решение и интересный способ решения! |
|||||
|
Поиск текста в ячейке и выделение его цветом
12.10.2023 14:02:03
Ігор Гончаренко, Спасибо! С квадратиком не так легко для меня оказалось.
а цвет я задал так:
|
|||
|
Поиск текста в ячейке и выделение его цветом
12.10.2023 13:18:06
Ігор Гончаренко,, Огромное спасибо! Получилось лаконично. Я представлял себе некую "простыню" кода.
Квадратик сделать обратно черным и цвет текста чтобы задавался напрямую, а не через ячейку я думаю сам смогу поправить.
Изменено: |
|
|
Поиск текста в ячейке и выделение его цветом
12.10.2023 12:26:06
Jack Famous, решение понимаю такое: для каждой ячейки диапазона определить участки текста для выделения и выполнить форматирование?
|
|
|
Поиск текста в ячейке и выделение его цветом
12.10.2023 12:19:49
Евгений Смирнов, это нужно для удобства "чтения" этой таблицы. Вопрос немного некорректный, понимаю что скорее всего возможно,
но намного сложней и неудобней реализация решения через макрос в Excel по сравнению с решением через обработку в Word ? |
|
|
Поиск текста в ячейке и выделение его цветом
Поиск ячейки с текстом и объединение смещенных от неё ячеек
06.09.2023 19:01:32
Бахтиёр, это конечно сильно упрощённый пример, поэтому выглядит нелогично. Как данность в первом столбце будут уникальные названия, но у некоторых названий кол-во объединенных ячеек вниз разное (2 или 3). В любом случае в массиве будут названия с одинаковым количеством объединенных ячеек и противоречий при объединений столбцов не возникнет. Для объединения ячеек на разное количество строк я создам разные массивы с разными условиями объединения.
|
|
|
Поиск ячейки с текстом и объединение смещенных от неё ячеек
Сортировка столбцов циклом в каждой строке
Сортировка столбцов циклом в каждой строке
Сортировка столбцов циклом в каждой строке
Сортировка столбцов циклом в каждой строке
Транспонирование данных, диапазоны ограничены разделителями
Транспонирование данных, диапазоны ограничены разделителями
09.02.2023 10:31:00
Александр П., Благодарю!
Тимофеев, Спасибо! Обязательно вариант с формулой тоже попробую (но в другой версии EXCEL, на этой такой функции нет...) |
|
|
Транспонирование данных, диапазоны ограничены разделителями
09.02.2023 10:03:35
Александр П., Огромное спасибо!
а если немного изменить условие (на листе оставить только транспонированные данные а исходные удалить) так проще будет макрос? если нет, то столбец А я сам удалю макросом после цикла. |
|
|
Транспонирование данных, диапазоны ограничены разделителями
09.02.2023 07:26:00
jakim, Спасибо за ответ!
Но интересует решение без Power Query. К тому же предложенное вами решение конкретно под данную задачу (я понимаю что каков вопрос, таков и ответ). Под словами "Название" и "адреса" по факту может быть любой текст с любым набором цифр и символов, но общее у них, что после "(" на следующей строчке идет всегда "название" на других строчках разное количество "адресов" и заканчивается ")". И так в каждой группе. |
|
|
Транспонирование данных, диапазоны ограничены разделителями
08.02.2023 22:18:39
Здравствуйте уважаемые форумчане!
Подскажите макрос для транспонирования данных находящихся в столбце А. Каждый диапазон из этого столбца, который нужно транспонировать строку, разделён. В моём случае это: "(" - начало диапазона ")" - конец диапазона Данным кодом я нахожу первый диапазон, дальше мне видется вырезать и транспонировать в столбец В и циклом перейти к следующему.
Заранее спасибо! |
|||
|
Сортировка столбцов циклом в каждой строке
Сортировка столбцов циклом в каждой строке
Сортировка столбцов циклом в каждой строке
Сортировка столбцов циклом в каждой строке
Сортировка столбцов циклом в каждой строке
05.02.2023 09:45:53
Здравствуйте, уважаемые форумчане!
Задача отсортировать ячейки по убыванию отдельно в каждой строке (исключая первую строку заголовков и первый столбец названий) начиная с ячейки B2 количество используемых ячеек в каждой строке разное количество строк тоже разное (в разных проектах). Авторекодером записал сортировку для одной строки.
но с синтаксисом цикла я пока не дружен. Подскажите пожалуйста структуру цикла для данной задачи! Заранее спасибо! |
|||
|
Ошибка 1004 при попытке выполнить ActiveWorkbook.SaveAs, если используется переменная папки.
17.07.2019 22:27:40
Макрос 1 тоже заработал. Причиной явилась ошибка в макросе, при которой новая папка создавалась из конкатенации двух ячеек (имя и город).
Если ячейка город была пуста, то папка создавалась из значения ячейки b3 и ПРОБЕЛА, но файл в нее почему-то не записывался. Плохо протестировал код, и в примере привел не полностью. отсюда и ошибки.
Прошу прощения за потерю времени, за нахождении несуществующей ошибки и благодарю всех откликнувшихся.
Изменено: |
|||
|
Ошибка 1004 при попытке выполнить ActiveWorkbook.SaveAs, если используется переменная папки.
17.07.2019 22:07:17
После танцев с бубном, а также, отключением всех программ в трее, приостановлении работы антивируса и т.д., Макрос 2 после двухмесячного отпуска заработал! после перезагрузки системы работоспособность макроса сохранилась.
Макрос 1 работать не хочет (из этого делаю вывод что причины наверно разные). |
|
|
Ошибка 1004 при попытке выполнить ActiveWorkbook.SaveAs, если используется переменная папки.
Ошибка 1004 при попытке выполнить ActiveWorkbook.SaveAs, если используется переменная папки.
Ошибка 1004 при попытке выполнить ActiveWorkbook.SaveAs, если используется переменная папки.