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

Вход

Регистрация

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

 

= Мир MS Excel/Записи участника (krosav4ig) - Мир MS Excel

Результаты поиска
krosav4ig Дата: Воскресенье, 18.09.2016, 08:09 | Сообщение № 1221 | Тема: Определить путь к папке, где лежат надстройки xla
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
перекинуть надстройку и включить ее

в стандартном модуле в надстройке
[vba]
Код
Sub Auto_Open()
    Dim strName$: strName = Replace(ThisWorkbook.Name, "_New", "")
    If InStr(ThisWorkbook.FullName, Application.UserLibraryPath) < 1 Then
        On Error Resume Next
        Application.Workbooks(strName).Close 0
        On Error GoTo 0
        With CreateObject("Scripting.FileSystemObject")
            .CopyFile ThisWorkbook.FullName, Application.UserLibraryPath & strName, 1
            Do
                DoEvents
            Loop Until .fileexists(Application.UserLibraryPath & strName)
        End With
    End If
    Application.AddIns(Left(strName, InStrRev(strName, ".") - 1)).Installed = True
    If Workbooks.Count = 0 Then Workbooks.Add
End Sub
[/vba]
или в ЭтаКнига, тогда вместо [vba]
Код
Sub Auto_Open
[/vba] [vba]
Код
Private Sub Workbook_Open()
[/vba]
К сообщению приложен файл: test_New.xlam (14.2 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Воскресенье, 18.09.2016, 08:13
 
Ответить
Сообщение
перекинуть надстройку и включить ее

в стандартном модуле в надстройке
[vba]
Код
Sub Auto_Open()
    Dim strName$: strName = Replace(ThisWorkbook.Name, "_New", "")
    If InStr(ThisWorkbook.FullName, Application.UserLibraryPath) < 1 Then
        On Error Resume Next
        Application.Workbooks(strName).Close 0
        On Error GoTo 0
        With CreateObject("Scripting.FileSystemObject")
            .CopyFile ThisWorkbook.FullName, Application.UserLibraryPath & strName, 1
            Do
                DoEvents
            Loop Until .fileexists(Application.UserLibraryPath & strName)
        End With
    End If
    Application.AddIns(Left(strName, InStrRev(strName, ".") - 1)).Installed = True
    If Workbooks.Count = 0 Then Workbooks.Add
End Sub
[/vba]
или в ЭтаКнига, тогда вместо [vba]
Код
Sub Auto_Open
[/vba] [vba]
Код
Private Sub Workbook_Open()
[/vba]

Автор - krosav4ig
Дата добавления - 18.09.2016 в 08:09
krosav4ig Дата: Воскресенье, 18.09.2016, 21:57 | Сообщение № 1222 | Тема: цвет ячейки в определённое время и дату
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
возможно ли

Возможно


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
возможно ли

Возможно

Автор - krosav4ig
Дата добавления - 18.09.2016 в 21:57
krosav4ig Дата: Воскресенье, 18.09.2016, 23:29 | Сообщение № 1223 | Тема: изменение цвета ячейки и текста в ней
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
формула для УФ будет выглядеть вот так
Код
=И(F3<=ТДАТА();$G3<>"выдано")


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеформула для УФ будет выглядеть вот так
Код
=И(F3<=ТДАТА();$G3<>"выдано")

Автор - krosav4ig
Дата добавления - 18.09.2016 в 23:29
krosav4ig Дата: Понедельник, 19.09.2016, 23:45 | Сообщение № 1224 | Тема: Запрос Power Query "Из папки"
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Viper25, возможно у файлов разная структура (количество листов, их названия)
попробуйте такой запрос
[vba]
Код
let
    Папка = Folder.Files("C:\folder"),   
    Файлы = Table.SelectRows(
                Папка,
                each
                    Text.StartsWith(_[Extension], ".xls") and
                    not Text.StartsWith(_[Name], "~")
            ),
    Книги = Table.CombineColumns(
                Table.SelectColumns(
                    Table.AddColumn(
                        Файлы,
                        "Workbook",  
                        each
                            Table.SelectRows(
                    Excel.Workbook([Content]),
                    each
                    _[Kind] = "Sheet"
                            )
                    ),
                    {"Name", "Folder Path", "Workbook"}
                ),
                {"Folder Path", "Name"},
                Combiner.CombineTextByDelimiter(
                    "",
                    QuoteStyle.None
                ),
                "File Path"
            ),
    Листы = Table.ExpandTableColumn(
                Книги,
                "Workbook",
                {"Name", "Data", "Hidden"}
            )
in
    Листы
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 20.09.2016, 01:15
 
Ответить
СообщениеViper25, возможно у файлов разная структура (количество листов, их названия)
попробуйте такой запрос
[vba]
Код
let
    Папка = Folder.Files("C:\folder"),   
    Файлы = Table.SelectRows(
                Папка,
                each
                    Text.StartsWith(_[Extension], ".xls") and
                    not Text.StartsWith(_[Name], "~")
            ),
    Книги = Table.CombineColumns(
                Table.SelectColumns(
                    Table.AddColumn(
                        Файлы,
                        "Workbook",  
                        each
                            Table.SelectRows(
                    Excel.Workbook([Content]),
                    each
                    _[Kind] = "Sheet"
                            )
                    ),
                    {"Name", "Folder Path", "Workbook"}
                ),
                {"Folder Path", "Name"},
                Combiner.CombineTextByDelimiter(
                    "",
                    QuoteStyle.None
                ),
                "File Path"
            ),
    Листы = Table.ExpandTableColumn(
                Книги,
                "Workbook",
                {"Name", "Data", "Hidden"}
            )
in
    Листы
[/vba]

Автор - krosav4ig
Дата добавления - 19.09.2016 в 23:45
krosav4ig Дата: Вторник, 20.09.2016, 05:00 | Сообщение № 1225 | Тема: Сохранение изображений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Лечится настройками
Файл>Параметры>Дополнительно>Размер и качество изображения>Не сжимать изображения в файле


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЛечится настройками
Файл>Параметры>Дополнительно>Размер и качество изображения>Не сжимать изображения в файле

Автор - krosav4ig
Дата добавления - 20.09.2016 в 05:00
krosav4ig Дата: Четверг, 22.09.2016, 03:08 | Сообщение № 1226 | Тема: Запрос Power Query - переименование колонки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Есть ли лекарство?

Изменить существующий запрос
выделяем любую ячейку в на таблице, выгружаемой запросом, жмем Работа с таблицами>Запрос>Изменить запрос
К сообщению приложен файл: 7615853.xls (47.5 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Есть ли лекарство?

Изменить существующий запрос
выделяем любую ячейку в на таблице, выгружаемой запросом, жмем Работа с таблицами>Запрос>Изменить запрос

Автор - krosav4ig
Дата добавления - 22.09.2016 в 03:08
krosav4ig Дата: Четверг, 22.09.2016, 03:43 | Сообщение № 1227 | Тема: Запрос Power Query "Из папки"
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
пробуйте такой вариант
путь к папке для запроса берется из A1, при выделении этой ячейки открывается диалог для выбора папки
Если в папке будут файлы .xls, запрос выдаст ошибку
К сообщению приложен файл: 3077594.xlsm (31.3 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 22.09.2016, 04:01
 
Ответить
Сообщениепробуйте такой вариант
путь к папке для запроса берется из A1, при выделении этой ячейки открывается диалог для выбора папки
Если в папке будут файлы .xls, запрос выдаст ошибку

Автор - krosav4ig
Дата добавления - 22.09.2016 в 03:43
krosav4ig Дата: Четверг, 22.09.2016, 05:43 | Сообщение № 1228 | Тема: как организовать опрос через Гугл формы
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
в гугл формах в настройках ставим галку "Только один ответ на человека (требуется вход в аккаунт)"
жмем Инструменты>Редактор скриптов...
в Код.gs пишем[vba]
Код
function OnUpdate(e) {
    with (SpreadsheetApp.openById(FormApp.getActiveForm().getDestinationId()).getActiveSheet()){
        if (getRange(1, getLastColumn())!="Email"){getRange(1, getLastColumn()+1).setValue("Email")}
        getRange(getLastRow(), getLastColumn()).setValue(Session.getEffectiveUser().getEmail());
    }  
}
[/vba]
жмем Ресурсы>Триггеры текущего проекта>...добавить триггер.
выбираем [OnUpdate] [Из формы] [Отправка формы]
Сохранить
Теперь в файл ответов будет писаться email в последний столбец
[p.s.]для заполнения формы нужен будет аккаунт google


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 22.09.2016, 05:50
 
Ответить
Сообщениев гугл формах в настройках ставим галку "Только один ответ на человека (требуется вход в аккаунт)"
жмем Инструменты>Редактор скриптов...
в Код.gs пишем[vba]
Код
function OnUpdate(e) {
    with (SpreadsheetApp.openById(FormApp.getActiveForm().getDestinationId()).getActiveSheet()){
        if (getRange(1, getLastColumn())!="Email"){getRange(1, getLastColumn()+1).setValue("Email")}
        getRange(getLastRow(), getLastColumn()).setValue(Session.getEffectiveUser().getEmail());
    }  
}
[/vba]
жмем Ресурсы>Триггеры текущего проекта>...добавить триггер.
выбираем [OnUpdate] [Из формы] [Отправка формы]
Сохранить
Теперь в файл ответов будет писаться email в последний столбец
[p.s.]для заполнения формы нужен будет аккаунт google

Автор - krosav4ig
Дата добавления - 22.09.2016 в 05:43
krosav4ig Дата: Четверг, 22.09.2016, 14:15 | Сообщение № 1229 | Тема: Запрос Power Query - переименование колонки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Viper25, видимо у вас другая версия Excel (У меня 2013) или Power query
тогда можно так
любую ячейку в на таблице, идем на вкладку Power Query, жмем Запустить редактор
Запускается редактор Power query, где можно изменить запрос


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 22.09.2016, 14:38
 
Ответить
СообщениеViper25, видимо у вас другая версия Excel (У меня 2013) или Power query
тогда можно так
любую ячейку в на таблице, идем на вкладку Power Query, жмем Запустить редактор
Запускается редактор Power query, где можно изменить запрос

Автор - krosav4ig
Дата добавления - 22.09.2016 в 14:15
krosav4ig Дата: Четверг, 22.09.2016, 14:37 | Сообщение № 1230 | Тема: Запрос Power Query "Из папки"
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Viper25, дело в том, что XLSX - это по сути архив, содержащий определенный набор xml файлов
PQ функция [vba]
Код
Binary.Combine
[/vba] (она выполняется при нажатии на кнопочку с двумя стрелками вниз) не может корректно обработать данный тип файлов, и из-за этого на следующем шаге [vba]
Код
Excel.Workbook(#"Комбинированные двоичные значения")
[/vba] вываливается ошибка
Да и при формате xls не будет корректного результата
Мой файл из предыдущего поста пробовали?


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 22.09.2016, 14:42
 
Ответить
СообщениеViper25, дело в том, что XLSX - это по сути архив, содержащий определенный набор xml файлов
PQ функция [vba]
Код
Binary.Combine
[/vba] (она выполняется при нажатии на кнопочку с двумя стрелками вниз) не может корректно обработать данный тип файлов, и из-за этого на следующем шаге [vba]
Код
Excel.Workbook(#"Комбинированные двоичные значения")
[/vba] вываливается ошибка
Да и при формате xls не будет корректного результата
Мой файл из предыдущего поста пробовали?

Автор - krosav4ig
Дата добавления - 22.09.2016 в 14:37
krosav4ig Дата: Четверг, 22.09.2016, 15:29 | Сообщение № 1231 | Тема: макросом внести значение на сайт и взять с него таблицу
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
можно использовать параметрический веб-запрос
при изменении ячейки A1 обновляется таблица
вот тут пример создания запроса
К сообщению приложен файл: query.xlsx (12.1 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеможно использовать параметрический веб-запрос
при изменении ячейки A1 обновляется таблица
вот тут пример создания запроса

Автор - krosav4ig
Дата добавления - 22.09.2016 в 15:29
krosav4ig Дата: Четверг, 22.09.2016, 17:19 | Сообщение № 1232 | Тема: Отсев данных по формуле: Столбец 3 = Столбец 1 - Столбец 2.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
с довольно замысловатым расположением условий отбора - в горизонте
зачем? (или я чего-то не догнал...)
данные>сортировка и фильтр>дополнительно
К сообщению приложен файл: 4439293.png (12.0 Kb) · 2865630.xlsx (10.5 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
с довольно замысловатым расположением условий отбора - в горизонте
зачем? (или я чего-то не догнал...)
данные>сортировка и фильтр>дополнительно

Автор - krosav4ig
Дата добавления - 22.09.2016 в 17:19
krosav4ig Дата: Понедельник, 26.09.2016, 21:36 | Сообщение № 1233 | Тема: Подстановка картинки в прайс-листе
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
или так
Код
=ПРОСМОТР(1;ПОИСК(ПОДСТАВИТЬ(B2&"-"&C2&"-"&A2;" ";"-");Лист2!B$2:B$12);Лист2!B$2:B$12)
или вообще вот так
Код
=СТРОЧН(ПОДСТАВИТЬ(B2&"-"&C2&"-"&A2;" ";"-")&".jpg")
К сообщению приложен файл: 3965114.xls (29.0 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеили так
Код
=ПРОСМОТР(1;ПОИСК(ПОДСТАВИТЬ(B2&"-"&C2&"-"&A2;" ";"-");Лист2!B$2:B$12);Лист2!B$2:B$12)
или вообще вот так
Код
=СТРОЧН(ПОДСТАВИТЬ(B2&"-"&C2&"-"&A2;" ";"-")&".jpg")

Автор - krosav4ig
Дата добавления - 26.09.2016 в 21:36
krosav4ig Дата: Четверг, 29.09.2016, 12:24 | Сообщение № 1234 | Тема: Перенос текста на три строки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант, формула массива,в A1 стоит число символов (110)
Код
=ПСТР(C$4;СУММ(ДЛСТР(B$6:B6);1);ЕСЛИОШИБКА(ПРОСМОТР(A$1;СТРОКА($1:$150)/(ПСТР(C$4;СУММ(ДЛСТР(B$6:B6))+СТРОКА($1:$150);1)=" "))/(A7<3);ДЛСТР(C$4)))
К сообщению приложен файл: 1775285.xlsx (11.6 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант, формула массива,в A1 стоит число символов (110)
Код
=ПСТР(C$4;СУММ(ДЛСТР(B$6:B6);1);ЕСЛИОШИБКА(ПРОСМОТР(A$1;СТРОКА($1:$150)/(ПСТР(C$4;СУММ(ДЛСТР(B$6:B6))+СТРОКА($1:$150);1)=" "))/(A7<3);ДЛСТР(C$4)))

Автор - krosav4ig
Дата добавления - 29.09.2016 в 12:24
krosav4ig Дата: Четверг, 29.09.2016, 13:13 | Сообщение № 1235 | Тема: Формат даты типа дд.мм.гггг в Google таблицах
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
вот так должно быть[vba]
Код
var messageText = "Конец наступит " + formatDate(row[2], "GMT", "dd.MM.yyyy")
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениевот так должно быть[vba]
Код
var messageText = "Конец наступит " + formatDate(row[2], "GMT", "dd.MM.yyyy")
[/vba]

Автор - krosav4ig
Дата добавления - 29.09.2016 в 13:13
krosav4ig Дата: Четверг, 29.09.2016, 13:38 | Сообщение № 1236 | Тема: Формат даты типа дд.мм.гггг в Google таблицах
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
совсем забыл :(
[vba]
Код
var messageText = "Конец наступит " + Utilities.formatDate(row[2], "GMT", "dd.MM.yyyy")
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 29.09.2016, 13:42
 
Ответить
Сообщениесовсем забыл :(
[vba]
Код
var messageText = "Конец наступит " + Utilities.formatDate(row[2], "GMT", "dd.MM.yyyy")
[/vba]

Автор - krosav4ig
Дата добавления - 29.09.2016 в 13:38
krosav4ig Дата: Четверг, 29.09.2016, 16:24 | Сообщение № 1237 | Тема: Перенос текста на три строки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а можно этот вариант применить под вышеприложенный файл?

получается как-то так
Код
=ПСТР(Z$5;СУММ(ДЛСТР(B$6:B6)*ЕЧИСЛО(ПОИСК(B$6:B6;Z$5));1);ЕСЛИОШИБКА(ПРОСМОТР(A$1;СТРОКА($1:$150)/(ПСТР(Z$5&" ";СУММ(ДЛСТР(B$6:B6)*ЕЧИСЛО(ПОИСК(B$6:B6;Z$5)))+СТРОКА($1:$150);1)=" "))/(СУММ(СЧЁТЕСЛИ(Z$5;"*"&B$6:B6&"*"))<3);ДЛСТР(Z$5)))
К сообщению приложен файл: -2.xlsx (13.4 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
а можно этот вариант применить под вышеприложенный файл?

получается как-то так
Код
=ПСТР(Z$5;СУММ(ДЛСТР(B$6:B6)*ЕЧИСЛО(ПОИСК(B$6:B6;Z$5));1);ЕСЛИОШИБКА(ПРОСМОТР(A$1;СТРОКА($1:$150)/(ПСТР(Z$5&" ";СУММ(ДЛСТР(B$6:B6)*ЕЧИСЛО(ПОИСК(B$6:B6;Z$5)))+СТРОКА($1:$150);1)=" "))/(СУММ(СЧЁТЕСЛИ(Z$5;"*"&B$6:B6&"*"))<3);ДЛСТР(Z$5)))

Автор - krosav4ig
Дата добавления - 29.09.2016 в 16:24
krosav4ig Дата: Четверг, 29.09.2016, 21:00 | Сообщение № 1238 | Тема: Разница между двумя столбцами в сводной таблице
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Добрый вечер.
Можно с помощью power query
К сообщению приложен файл: primer-2-.xls (42.0 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеДобрый вечер.
Можно с помощью power query

Автор - krosav4ig
Дата добавления - 29.09.2016 в 21:00
krosav4ig Дата: Пятница, 30.09.2016, 15:16 | Сообщение № 1239 | Тема: Деление длинного текста на 4 строки или более
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Webbear, Добрый день.файл в студию deal


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 30.09.2016, 15:17
 
Ответить
СообщениеWebbear, Добрый день.файл в студию deal

Автор - krosav4ig
Дата добавления - 30.09.2016 в 15:16
krosav4ig Дата: Пятница, 30.09.2016, 17:56 | Сообщение № 1240 | Тема: Деление длинного текста на 4 строки или более
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
можно как-то так
[vba]
Код
Sub SplitN(str$, n As Variant, ByRef rng As Range)
    Dim i%, j%, tmp$
    For i = 0 To UBound(n)
        tmp$ = Mid(str, j + 1, InStrRev(Mid(str & " ", j + 1, n(i)), " "))
        j = j + Len(tmp)
        rng.Areas(i + 1) = Application.Trim(tmp)
    Next
End Sub
[/vba]

[vba]
Код
Call SplitN(CStr(ArrДоп(5, 1)), Array(40, 85, 85, 85), Sh_Шаблон.[N24,A26,A28,A30])
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеможно как-то так
[vba]
Код
Sub SplitN(str$, n As Variant, ByRef rng As Range)
    Dim i%, j%, tmp$
    For i = 0 To UBound(n)
        tmp$ = Mid(str, j + 1, InStrRev(Mid(str & " ", j + 1, n(i)), " "))
        j = j + Len(tmp)
        rng.Areas(i + 1) = Application.Trim(tmp)
    Next
End Sub
[/vba]

[vba]
Код
Call SplitN(CStr(ArrДоп(5, 1)), Array(40, 85, 85, 85), Sh_Шаблон.[N24,A26,A28,A30])
[/vba]

Автор - krosav4ig
Дата добавления - 30.09.2016 в 17:56
Поиск:

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