Прошу подсказать способ реализации с применением VBA. Необходимо, чтобы дата, выбираемая на
Лист1_ячейка_А1 автоматически появлялась на Лист2_ячейка_А2 в формате 21.12.17 и на Лист3_ячейка_А3 в формате 21 декабря 2017 г.
Сейчас это делается на вспомогательном Лист4 так: 1. Данные из Лист1_ячейка_А1 преобразуются в текст на Лист4; 2. Затем функциями ЛЕВСИМВ/ПРАВСИМВ текст "расчленяется" на нужные "куски"; 3. Функцией СЦЕПИТЬ соединяются в нужной последовательности либо хватаются через =Лист4_ячейка_F2.
Иногда получается реализовать, изменяя формат даты в конечной ячейке, но в большинстве случаев это не работает. Например, когда в бланке дата заносится в трём отдельным квадратам | 21 | 12 | 17 |, либо когда дату нужно склеить с другим текстом Заявление на <ТЕКСТ> № <НОМЕР> от <21 декабря 2017 г.> Я хотел убрать все вспомогательные листы (не скрыть/спрятать, вообще убрать), но моих знаних не хватило. Когда-то давно учился Visual Basic, но это было так давно, что совсем не помню как там назначать переменные и потом прописывать в коде автоматическую подстановку. Скачал книгу Стив Каммингс "VBA для чайников", но книга большая, учить буду долго, а решать конкретные задачи нужно сейчас.
Прошу подсказать способ реализации с применением VBA. Необходимо, чтобы дата, выбираемая на
Лист1_ячейка_А1 автоматически появлялась на Лист2_ячейка_А2 в формате 21.12.17 и на Лист3_ячейка_А3 в формате 21 декабря 2017 г.
Сейчас это делается на вспомогательном Лист4 так: 1. Данные из Лист1_ячейка_А1 преобразуются в текст на Лист4; 2. Затем функциями ЛЕВСИМВ/ПРАВСИМВ текст "расчленяется" на нужные "куски"; 3. Функцией СЦЕПИТЬ соединяются в нужной последовательности либо хватаются через =Лист4_ячейка_F2.
Иногда получается реализовать, изменяя формат даты в конечной ячейке, но в большинстве случаев это не работает. Например, когда в бланке дата заносится в трём отдельным квадратам | 21 | 12 | 17 |, либо когда дату нужно склеить с другим текстом Заявление на <ТЕКСТ> № <НОМЕР> от <21 декабря 2017 г.> Я хотел убрать все вспомогательные листы (не скрыть/спрятать, вообще убрать), но моих знаних не хватило. Когда-то давно учился Visual Basic, но это было так давно, что совсем не помню как там назначать переменные и потом прописывать в коде автоматическую подстановку. Скачал книгу Стив Каммингс "VBA для чайников", но книга большая, учить буду долго, а решать конкретные задачи нужно сейчас.Dion
Это работает, когда нужно вставить в одну конкретную ячейку. Мне же нужно будет втыкать дату в разные части текста, простым форматом не получится. Требуется именно обозначить переменную для последующей работы с ней, например, текст: Заявление № <НОМЕР ДОКУМЕНТА> от <22.12.2017>. То есть будет номер, который сцепляется с текстом и датой.
Это работает, когда нужно вставить в одну конкретную ячейку. Мне же нужно будет втыкать дату в разные части текста, простым форматом не получится. Требуется именно обозначить переменную для последующей работы с ней, например, текст: Заявление № <НОМЕР ДОКУМЕНТА> от <22.12.2017>. То есть будет номер, который сцепляется с текстом и датой.Dion
Ссылки и формат тут не помогут. Во вложении файл. На Лист4 я разбираю дату на запчасти и потом втыкаю в зависимости от документа. Где-то целиком, где-то частично. Нужно сделать нечто подобное, но в VBA, чтобы избавиться от вспомогательных листов.
Ссылки и формат тут не помогут. Во вложении файл. На Лист4 я разбираю дату на запчасти и потом втыкаю в зависимости от документа. Где-то целиком, где-то частично. Нужно сделать нечто подобное, но в VBA, чтобы избавиться от вспомогательных листов.Dion
На Лист4 я разбираю дату на запчасти и потом втыкаю в зависимости от документа. Где-то целиком, где-то частично.
И что не так в моем примере в столбце I. Вы его вообще смотрели. Приложите примерчик со множеством разных текстов в которых присутствует номера документа и разные виды (части) даты.
На Лист4 я разбираю дату на запчасти и потом втыкаю в зависимости от документа. Где-то целиком, где-то частично.
И что не так в моем примере в столбце I. Вы его вообще смотрели. Приложите примерчик со множеством разных текстов в которых присутствует номера документа и разные виды (части) даты. Wasilich
Wasilich, простите меня пожалуйста, был на работе, глянул мельком...Не знал про такую возможность использования &. Тогда задача упрощается. Буду рад, если поможете решить остальные 6 вопросов, может они тоже решаются возможностями Excel, про которые я не знаю.
Wasilich, простите меня пожалуйста, был на работе, глянул мельком...Не знал про такую возможность использования &. Тогда задача упрощается. Буду рад, если поможете решить остальные 6 вопросов, может они тоже решаются возможностями Excel, про которые я не знаю.Dion
Сообщение отредактировал Dion - Пятница, 22.12.2017, 22:52