Друзья, помогите... Переформулирую вопрос, заданный ранее. Необходимо на листе вых в жёлтые ячейки вставить даты из лист исх из зелёных ячеек через запятую, а в синюю колонку эти даты минус семь дней, также через запятую. Спасибо!!!
Друзья, помогите... Переформулирую вопрос, заданный ранее. Необходимо на листе вых в жёлтые ячейки вставить даты из лист исх из зелёных ячеек через запятую, а в синюю колонку эти даты минус семь дней, также через запятую. Спасибо!!!zaak88
Sub СлияниеДат() Dim a With ThisWorkbook b = .Sheets("исх").Cells(Rows.Count, 1).End(xlUp).Row a = .Sheets("исх").Range(.Sheets("исх").Cells(1, 1), .Sheets("исх").Cells(b, 3)).Value
a1 = .Sheets("вых").Range(.Sheets("вых").Cells(1, 2), .Sheets("вых").Cells(b1, 5)).Value For c1 = 3 To b1 For c = 1 To b If a1(c1, 1) = a(c, 1) Then If a1(c1, 3) = "" Then a1(c1, 3) = a1(c1, 3) & a(c, 2) a1(c1, 4) = a1(c1, 4) & a(c, 2) + 7 Else a1(c1, 3) = a1(c1, 3) & ", " & a(c, 2) a1(c1, 4) = a1(c1, 4) & ", " & a(c, 2) + 7 End If End If Next c Next c1 .Sheets("вых").Range(.Sheets("вых").Cells(1, 2), .Sheets("вых").Cells(b1, 5)) = a1
End With End Sub
[/vba]
[vba]
Код
Sub СлияниеДат() Dim a With ThisWorkbook b = .Sheets("исх").Cells(Rows.Count, 1).End(xlUp).Row a = .Sheets("исх").Range(.Sheets("исх").Cells(1, 1), .Sheets("исх").Cells(b, 3)).Value
У меня 2016-й такой функции нет В справке написано:
Цитата
В этой статье описывается синтаксис и использование текстовой функцииTEXTJOIN в Microsoft Excel. ВАЖНО : Эта функция будет доступна, если: у вас оформлена подписка на Office 365, и на вашем компьютере установлена последняя версия Office; вы используете Excel Online; вы используете Excel Mobile; вы используете Excel для телефонов и планшетов с Android.
Т.е. в 2016-м офисе сразу на борту нет... нужна еще и подписка
У меня 2016-й такой функции нет В справке написано:
Цитата
В этой статье описывается синтаксис и использование текстовой функцииTEXTJOIN в Microsoft Excel. ВАЖНО : Эта функция будет доступна, если: у вас оформлена подписка на Office 365, и на вашем компьютере установлена последняя версия Office; вы используете Excel Online; вы используете Excel Mobile; вы используете Excel для телефонов и планшетов с Android.
Т.е. в 2016-м офисе сразу на борту нет... нужна еще и подписка SLAVICK
_Boroda_ , так я на вопрос ответил, а не что то предлагал. что же вы свой способ решения проблемы по загрузки файла не предложите?, внешние ссылки тоже вроде запрещены. [moder]1. Вы согласились, что подразумевает предложение "Да, можно, присылайте". 2. Автору уже дважды посоветовали обратить внимание на уже готовый макрос СЦЕПИТЬЕСЛИ, зачем я буду делать уже давно сделанное? 3. А вот это неверное утверждение. Читайте Правила форума.
_Boroda_ , так я на вопрос ответил, а не что то предлагал. что же вы свой способ решения проблемы по загрузки файла не предложите?, внешние ссылки тоже вроде запрещены. [moder]1. Вы согласились, что подразумевает предложение "Да, можно, присылайте". 2. Автору уже дважды посоветовали обратить внимание на уже готовый макрос СЦЕПИТЬЕСЛИ, зачем я буду делать уже давно сделанное? 3. А вот это неверное утверждение. Читайте Правила форума.Волхв
соответственно Автору не подходит этот вариант, и он ищет способы которые доступны, подскажите ему как ему быть, а то я собью его с пути истинного под бан подведу еще. [moder]Вы за своими банами смотрите, автор сам разберется.[/moder]
согласились <> предложение [moder]Я считаю иначе[/moder]
соответственно Автору не подходит этот вариант, и он ищет способы которые доступны, подскажите ему как ему быть, а то я собью его с пути истинного под бан подведу еще. [moder]Вы за своими банами смотрите, автор сам разберется.[/moder]Волхв
а вот это навряд ли.ТС ищет исполнителя, который разжует и в рот положит. Лично я ему в 2 темах(его кстати) давал направление , куда отправить роющую собаку.а в одной теме даже со ссылкой. но там надо искать думать и подгонять под себя
а вот это навряд ли.ТС ищет исполнителя, который разжует и в рот положит. Лично я ему в 2 темах(его кстати) давал направление , куда отправить роющую собаку.а в одной теме даже со ссылкой. но там надо искать думать и подгонять под себя китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
так это форум Мир MS Excel » Вопросы и решения » Вопросы по Excel » тут задают вопросы не все же люди с полу слова понимают, кому то надо на пальцах объяснять [moder]Это Вы сейчас про кого? Автор все нормально объяснил[/moder] это дело добровольно хотите помогайте человеку, хотите нет, за попытку понять детально что хочет человек вывесели и мне и ему предупреждение [moder]Не передергивайте. За нарушение Правил[/moder], следовательно разжевывать нужно здесь (автору свою проблему тоже нужно объяснить но пока у него не получается)
Автор почитайте правила если там нет нужного вам [moder]В Правилах? Решение вопроса про перенос значений? Супер!!![/moder], создайте тему и спросите как нужно заливать примеры, которые нельзя сжать до 100кб [moder]Зачем?[/moder] дальше обсуждения бессмысленны, Вас понять не можем [moder]В таких случаях говорят от своего лица[/moder]. на прямой вопросы темы ответ дан.
так это форум Мир MS Excel » Вопросы и решения » Вопросы по Excel » тут задают вопросы не все же люди с полу слова понимают, кому то надо на пальцах объяснять [moder]Это Вы сейчас про кого? Автор все нормально объяснил[/moder] это дело добровольно хотите помогайте человеку, хотите нет, за попытку понять детально что хочет человек вывесели и мне и ему предупреждение [moder]Не передергивайте. За нарушение Правил[/moder], следовательно разжевывать нужно здесь (автору свою проблему тоже нужно объяснить но пока у него не получается)
Автор почитайте правила если там нет нужного вам [moder]В Правилах? Решение вопроса про перенос значений? Супер!!![/moder], создайте тему и спросите как нужно заливать примеры, которые нельзя сжать до 100кб [moder]Зачем?[/moder] дальше обсуждения бессмысленны, Вас понять не можем [moder]В таких случаях говорят от своего лица[/moder]. на прямой вопросы темы ответ дан.Волхв
Волхв, _Boroda_, SLAVICK, спасибо уважаемые Господа... только зачем же так ругаться, прошу простить, что спровоцировал всё это! С уважением ко всем Вам!!! Решения отличные - сам бы не додумался никогда!!! Очень благодарен! [moder]Алексей, нет-нет, Вы ничего не спровоцировали, все нормально, к Вам никаких претензий нет.
Волхв, _Boroda_, SLAVICK, спасибо уважаемые Господа... только зачем же так ругаться, прошу простить, что спровоцировал всё это! С уважением ко всем Вам!!! Решения отличные - сам бы не додумался никогда!!! Очень благодарен! [moder]Алексей, нет-нет, Вы ничего не спровоцировали, все нормально, к Вам никаких претензий нет.zaak88
Сообщение отредактировал zaak88 - Четверг, 07.04.2016, 16:46
_Boroda_, в принципе Волхв хотел помочь, за что ему очень благодарен! [moder]Нууу, как бы не он один помочь-то хотел, а? Но, согласитесь, это не повод нарушать Правила форума?
_Boroda_, в принципе Волхв хотел помочь, за что ему очень благодарен! [moder]Нууу, как бы не он один помочь-то хотел, а? Но, согласитесь, это не повод нарушать Правила форума?zaak88
Сообщение отредактировал _Boroda_ - Четверг, 07.04.2016, 17:18
_Boroda_, правила конечно для всех одни и все мы должны их соблюдать, но некоторые моменты немного непонятны, извините... почему пользователи не могут начать общаться вне форума... обмениваться информацией (платно/бесплатно, как договорятся)... Вам, Александр, огромное спасибо и за это решение и за предыдущие!!! Высший пилотаж!
_Boroda_, правила конечно для всех одни и все мы должны их соблюдать, но некоторые моменты немного непонятны, извините... почему пользователи не могут начать общаться вне форума... обмениваться информацией (платно/бесплатно, как договорятся)... Вам, Александр, огромное спасибо и за это решение и за предыдущие!!! Высший пилотаж!zaak88