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

Вход

Регистрация

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

 

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

Результаты поиска
krosav4ig Дата: Понедельник, 05.09.2016, 23:04 | Сообщение № 1201 | Тема: Номер комбинации перестановки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
у мну оказывается первая формула 91, вторая 156 (забыл ФАКТР() сократить :( )
1 для лексиграфического порядка 97 символов
Код
=СУММ(МУМНОЖ(Ч(ТРАНСП(A1:E1)>ЕСЛИ({1:2:3:4:5}<{1;2;3;4;5};A1:E1));{1:1:1:1:1})*ФАКТР({4:3:2:1:0}))

2 для антилексиграфического порядка 162 символа (уверен, что можно сократить, но до этого никак не дошло)
Код
=СУММ(МУМНОЖ(Ч(ПРОСМОТР(-{1:2:3:4:5};-{5:4:3:2:1};O1:S1)<ЕСЛИ({1:2:3:4:5}<{1;2;3;4;5};ПРОСМОТР(-{1;2;3;4;5};-{5:4:3:2:1};O1:S1);));{1:1:1:1:1})*ФАКТР({4:3:2:1:0}))

универсальные формулы генерации (массивные, волатильные, генерация перебором, жуть прям %) ) для лексиграфического и антилексиграфического порядков, обе 334
Код
=ИНДЕКС(ОСТАТ(ЦЕЛОЕ((СТРОКА(СМЕЩ(A$1;;;$Y$1^$W$1))-1)/($Y$1^(СТОЛБЕЦ(СМЕЩ($A1;;;;$W$1))-1)));$Y$1);НАИМЕНЬШИЙ(ЕСЛИ(ПОДСТАВИТЬ(МУМНОЖ(10^(1+ОСТАТ(ЦЕЛОЕ((СТРОКА(СМЕЩ(A$1;;;$Y$1^$W$1))-1)/($Y$1^(СТОЛБЕЦ(СМЕЩ($A1;;;;$W$1))-1)));$Y$1));СТРОКА(СМЕЩ(A$1;;;$W$1))^0);0;)=ПОВТОР(1;$W$1);СТРОКА(СМЕЩ(A$1;;;$Y$1^$W$1)));$G1+1);$W$1-СТОЛБЕЦ(A1)+1)

Код
=ИНДЕКС($Y$1-1-ОСТАТ(ЦЕЛОЕ((СТРОКА(СМЕЩ(A$1;;;$Y$1^$W$1))-1)/($Y$1^(СТОЛБЕЦ(СМЕЩ($A1;;;;$W$1))-1)));$Y$1);НАИМЕНЬШИЙ(ЕСЛИ(ПОДСТАВИТЬ(МУМНОЖ(10^(1+ОСТАТ(ЦЕЛОЕ((СТРОКА(СМЕЩ(A$1;;;$Y$1^$W$1))-1)/($Y$1^(СТОЛБЕЦ(СМЕЩ($A1;;;;$W$1))-1)));$Y$1));СТРОКА(СМЕЩ(A$1;;;$W$1))^0);0;)=ПОВТОР(1;$W$1);СТРОКА(СМЕЩ(A$1;;;$Y$1^$W$1)));$G1+1);СТОЛБЕЦ(A1))
К сообщению приложен файл: N_Perest.xlsx (59.1 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеу мну оказывается первая формула 91, вторая 156 (забыл ФАКТР() сократить :( )
1 для лексиграфического порядка 97 символов
Код
=СУММ(МУМНОЖ(Ч(ТРАНСП(A1:E1)>ЕСЛИ({1:2:3:4:5}<{1;2;3;4;5};A1:E1));{1:1:1:1:1})*ФАКТР({4:3:2:1:0}))

2 для антилексиграфического порядка 162 символа (уверен, что можно сократить, но до этого никак не дошло)
Код
=СУММ(МУМНОЖ(Ч(ПРОСМОТР(-{1:2:3:4:5};-{5:4:3:2:1};O1:S1)<ЕСЛИ({1:2:3:4:5}<{1;2;3;4;5};ПРОСМОТР(-{1;2;3;4;5};-{5:4:3:2:1};O1:S1);));{1:1:1:1:1})*ФАКТР({4:3:2:1:0}))

универсальные формулы генерации (массивные, волатильные, генерация перебором, жуть прям %) ) для лексиграфического и антилексиграфического порядков, обе 334
Код
=ИНДЕКС(ОСТАТ(ЦЕЛОЕ((СТРОКА(СМЕЩ(A$1;;;$Y$1^$W$1))-1)/($Y$1^(СТОЛБЕЦ(СМЕЩ($A1;;;;$W$1))-1)));$Y$1);НАИМЕНЬШИЙ(ЕСЛИ(ПОДСТАВИТЬ(МУМНОЖ(10^(1+ОСТАТ(ЦЕЛОЕ((СТРОКА(СМЕЩ(A$1;;;$Y$1^$W$1))-1)/($Y$1^(СТОЛБЕЦ(СМЕЩ($A1;;;;$W$1))-1)));$Y$1));СТРОКА(СМЕЩ(A$1;;;$W$1))^0);0;)=ПОВТОР(1;$W$1);СТРОКА(СМЕЩ(A$1;;;$Y$1^$W$1)));$G1+1);$W$1-СТОЛБЕЦ(A1)+1)

Код
=ИНДЕКС($Y$1-1-ОСТАТ(ЦЕЛОЕ((СТРОКА(СМЕЩ(A$1;;;$Y$1^$W$1))-1)/($Y$1^(СТОЛБЕЦ(СМЕЩ($A1;;;;$W$1))-1)));$Y$1);НАИМЕНЬШИЙ(ЕСЛИ(ПОДСТАВИТЬ(МУМНОЖ(10^(1+ОСТАТ(ЦЕЛОЕ((СТРОКА(СМЕЩ(A$1;;;$Y$1^$W$1))-1)/($Y$1^(СТОЛБЕЦ(СМЕЩ($A1;;;;$W$1))-1)));$Y$1));СТРОКА(СМЕЩ(A$1;;;$W$1))^0);0;)=ПОВТОР(1;$W$1);СТРОКА(СМЕЩ(A$1;;;$Y$1^$W$1)));$G1+1);СТОЛБЕЦ(A1))

Автор - krosav4ig
Дата добавления - 05.09.2016 в 23:04
krosav4ig Дата: Вторник, 06.09.2016, 15:47 | Сообщение № 1202 | Тема: Номер комбинации перестановки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
нашел ссылку, откуда стащил формулы E90E50fx Combinatorics using Excel formulas файл Sequences_without_repetition_no_support.xlsx


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениенашел ссылку, откуда стащил формулы E90E50fx Combinatorics using Excel formulas файл Sequences_without_repetition_no_support.xlsx

Автор - krosav4ig
Дата добавления - 06.09.2016 в 15:47
krosav4ig Дата: Вторник, 06.09.2016, 17:13 | Сообщение № 1203 | Тема: Разделение столбца по кол-ву записей.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Код
=ИНДЕКС($A:$A;(СТОЛБЕЦ()-2)*15000+СТРОКА())


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Код
=ИНДЕКС($A:$A;(СТОЛБЕЦ()-2)*15000+СТРОКА())

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

Excel 2007,2010,2013
Здравствуйте
Главная>редактирование>заменить
В поле Найти пишем ^9*[^13^l]
В поле Заменить пишем ^&
жмем Больше>формат>шрифт, выбираем полужирный, ОК
Тык по галке Подстановочные знаки
Тык по кнопке Заменить все


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте
Главная>редактирование>заменить
В поле Найти пишем ^9*[^13^l]
В поле Заменить пишем ^&
жмем Больше>формат>шрифт, выбираем полужирный, ОК
Тык по галке Подстановочные знаки
Тык по кнопке Заменить все

Автор - krosav4ig
Дата добавления - 06.09.2016 в 19:33
krosav4ig Дата: Среда, 07.09.2016, 22:40 | Сообщение № 1205 | Тема: После табуляции сделать текст жирным
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
где можно найти информацию по этим символам?

вот тут можно почитать
коды символов можно посмотреть тут


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

вот тут можно почитать
коды символов можно посмотреть тут

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

Excel 2007,2010,2013
или так (формула массива, вводится комбинацией Ctrl+Shift+Enter)
Код
=ВПР(G6&H6;ЕСЛИ({1;0};B$6:B$10&C$6:C$10;D$6:D$10);2;)-СУММЕСЛИМН(E$6:E$10;B$6:B$10;G6;C$6:C$10;H6)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеили так (формула массива, вводится комбинацией Ctrl+Shift+Enter)
Код
=ВПР(G6&H6;ЕСЛИ({1;0};B$6:B$10&C$6:C$10;D$6:D$10);2;)-СУММЕСЛИМН(E$6:E$10;B$6:B$10;G6;C$6:C$10;H6)

Автор - krosav4ig
Дата добавления - 09.09.2016 в 13:40
krosav4ig Дата: Суббота, 10.09.2016, 21:17 | Сообщение № 1207 | Тема: Как программно протянуть формулы при добавлении строк
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как вариант, формула [vba]
Код
=ЕСЛИ([@Блоки]="";"";СУММ([@Урок:Урок]:ИНДЕКС([Урок]:[Урок];СТРОКА()+ПОИСКПОЗ([[#Заголовки];[Блок]];ИНДЕКС([Блоки];СТРОКА()-1):[[#Итоги];[Блоки]];)-1-СТРОКА([#Заголовки]))))
[/vba]
К сообщению приложен файл: 8452831.xlsx (15.8 Kb)


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

Сообщение отредактировал krosav4ig - Суббота, 10.09.2016, 21:18
 
Ответить
Сообщениекак вариант, формула [vba]
Код
=ЕСЛИ([@Блоки]="";"";СУММ([@Урок:Урок]:ИНДЕКС([Урок]:[Урок];СТРОКА()+ПОИСКПОЗ([[#Заголовки];[Блок]];ИНДЕКС([Блоки];СТРОКА()-1):[[#Итоги];[Блоки]];)-1-СТРОКА([#Заголовки]))))
[/vba]

Автор - krosav4ig
Дата добавления - 10.09.2016 в 21:17
krosav4ig Дата: Воскресенье, 11.09.2016, 03:20 | Сообщение № 1208 | Тема: Как программно протянуть формулы при добавлении строк
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Вы поменяли местами столбцы БЛОК и РАЗДЕЛ. Это принципиально?
нет, просто так было проще формулы в оба столбца вставить, обратно переместить забыл
К сообщению приложен файл: 6097611.xlsm (29.9 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Вы поменяли местами столбцы БЛОК и РАЗДЕЛ. Это принципиально?
нет, просто так было проще формулы в оба столбца вставить, обратно переместить забыл

Автор - krosav4ig
Дата добавления - 11.09.2016 в 03:20
krosav4ig Дата: Воскресенье, 11.09.2016, 18:24 | Сообщение № 1209 | Тема: СУММЕСЛИ с 2-мя параметрами
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Код
=СЧЁТЕСЛИМН(N11:N999;;P11:P999;"")


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Код
=СЧЁТЕСЛИМН(N11:N999;;P11:P999;"")

Автор - krosav4ig
Дата добавления - 11.09.2016 в 18:24
krosav4ig Дата: Воскресенье, 11.09.2016, 22:59 | Сообщение № 1210 | Тема: Не печатает более 2-ух копий с Exel
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
попробуйте поиграться с этими настройками в свойствах принтера
К сообщению приложен файл: 6994908.gif (6.8 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениепопробуйте поиграться с этими настройками в свойствах принтера

Автор - krosav4ig
Дата добавления - 11.09.2016 в 22:59
krosav4ig Дата: Вторник, 13.09.2016, 19:19 | Сообщение № 1211 | Тема: Перенос данных не полностью на другой лист
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
lebensvoll, а как вам такой вариант?
[vba]
Код
Private Sub CommandButton4_Click() 'Код для сохранения данных заявки на лист Журнала заявок
    With Worksheets("транспортный журнал").ListObjects("Таблица1").QueryTable
        .Connection = "ODBC;DSN=Excel Files;;DriverId=1046;DBQ=" & ThisWorkbook.FullName
        .Refresh
    End With
End Sub
[/vba]
К сообщению приложен файл: 7828174.xlsm (44.8 Kb)


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

Сообщение отредактировал krosav4ig - Вторник, 13.09.2016, 19:19
 
Ответить
Сообщениеlebensvoll, а как вам такой вариант?
[vba]
Код
Private Sub CommandButton4_Click() 'Код для сохранения данных заявки на лист Журнала заявок
    With Worksheets("транспортный журнал").ListObjects("Таблица1").QueryTable
        .Connection = "ODBC;DSN=Excel Files;;DriverId=1046;DBQ=" & ThisWorkbook.FullName
        .Refresh
    End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 13.09.2016 в 19:19
krosav4ig Дата: Вторник, 13.09.2016, 19:29 | Сообщение № 1212 | Тема: Удаление лишних цифр после знака
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а если количество символов перед и полсле - фиксировано, то можно просто
Код
=ЛЕВБ(F9;5)&-ПРАВБ(F9;4)

можно немного поизвращаться
Код
=ПОДСТАВИТЬ(ПРОСМОТР(9^9;--(ПОДСТАВИТЬ(F9;"-"&ПОВТОР(0;СТРОКА($1:$99));",")));",";"-")


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

Сообщение отредактировал krosav4ig - Вторник, 13.09.2016, 19:40
 
Ответить
Сообщениеа если количество символов перед и полсле - фиксировано, то можно просто
Код
=ЛЕВБ(F9;5)&-ПРАВБ(F9;4)

можно немного поизвращаться
Код
=ПОДСТАВИТЬ(ПРОСМОТР(9^9;--(ПОДСТАВИТЬ(F9;"-"&ПОВТОР(0;СТРОКА($1:$99));",")));",";"-")

Автор - krosav4ig
Дата добавления - 13.09.2016 в 19:29
krosav4ig Дата: Среда, 14.09.2016, 15:30 | Сообщение № 1213 | Тема: Фильтрация таблицы от ненужных данных.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
ВладимирG, это запрос к таблице access?
если да, проверьте тип данных поля F21 в конструкторе
если это запрос к листу Excel, нужно убедиться в том, что в соответствующем столбце стоят числовые значения
мб так попробовать
[vba]
Код
SELECT [Заказы покупателей].F2, [Заказы покупателей].F3, [Заказы покупателей].F21, IIf(InStr([f3],"Код:")<>"",Mid([f3],InStr([f3],"Код:")+5,20),"") AS [В базе]
FROM [Заказы покупателей]
WHERE [F21]>0 and [F21] is not null
[/vba]
или так [vba]
Код
SELECT [Заказы покупателей].F2, [Заказы покупателей].F3, [Заказы покупателей].F21, IIf(InStr([f3],"Код:")<>"",Mid([f3],InStr([f3],"Код:")+5,20),"") AS [В базе]
FROM [Заказы покупателей]
WHERE Iif(IsNumeric([F21]);Clng([F21]);0)>0
[/vba]


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

Сообщение отредактировал krosav4ig - Среда, 14.09.2016, 15:41
 
Ответить
СообщениеВладимирG, это запрос к таблице access?
если да, проверьте тип данных поля F21 в конструкторе
если это запрос к листу Excel, нужно убедиться в том, что в соответствующем столбце стоят числовые значения
мб так попробовать
[vba]
Код
SELECT [Заказы покупателей].F2, [Заказы покупателей].F3, [Заказы покупателей].F21, IIf(InStr([f3],"Код:")<>"",Mid([f3],InStr([f3],"Код:")+5,20),"") AS [В базе]
FROM [Заказы покупателей]
WHERE [F21]>0 and [F21] is not null
[/vba]
или так [vba]
Код
SELECT [Заказы покупателей].F2, [Заказы покупателей].F3, [Заказы покупателей].F21, IIf(InStr([f3],"Код:")<>"",Mid([f3],InStr([f3],"Код:")+5,20),"") AS [В базе]
FROM [Заказы покупателей]
WHERE Iif(IsNumeric([F21]);Clng([F21]);0)>0
[/vba]

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

Excel 2007,2010,2013
ВладимирG, источник данных в Excel?
тогда в первую ячейку столбца в excel впишите числовое значение и на столбец установите числовой формат
или используйте запрос из моего предыдущего поста (дополнил)
Цитата от сюда
Тип данных
Чтобы исключить возникновение ошибок в ходе импорта, убедитесь, что все исходные столбцы содержат данные одинакового типа в каждой строке. Приложение Access считывает первые восемь исходных строк и определяет по ним тип данных полей таблицы. Настоятельно рекомендуется не использовать в первых восьми строках всех столбцов значения разных типов, поскольку в противном случае приложение Access может неправильно определить тип данных столбца.
Рекомендуется также отформатировать все исходные столбцы в Excel и назначить им определенный формат данных перед началом операции импорта. Форматирование является необходимым, если столбец содержит значения с различными типами данных. Например, столбец "Номер рейса" может содержать числовые и текстовые значения, такие как 871, AA90 и 171. Чтобы исключить отсутствующие или неверные значения, выполните указанные ниже действия.


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

Сообщение отредактировал krosav4ig - Среда, 14.09.2016, 15:53
 
Ответить
СообщениеВладимирG, источник данных в Excel?
тогда в первую ячейку столбца в excel впишите числовое значение и на столбец установите числовой формат
или используйте запрос из моего предыдущего поста (дополнил)
Цитата от сюда
Тип данных
Чтобы исключить возникновение ошибок в ходе импорта, убедитесь, что все исходные столбцы содержат данные одинакового типа в каждой строке. Приложение Access считывает первые восемь исходных строк и определяет по ним тип данных полей таблицы. Настоятельно рекомендуется не использовать в первых восьми строках всех столбцов значения разных типов, поскольку в противном случае приложение Access может неправильно определить тип данных столбца.
Рекомендуется также отформатировать все исходные столбцы в Excel и назначить им определенный формат данных перед началом операции импорта. Форматирование является необходимым, если столбец содержит значения с различными типами данных. Например, столбец "Номер рейса" может содержать числовые и текстовые значения, такие как 871, AA90 и 171. Чтобы исключить отсутствующие или неверные значения, выполните указанные ниже действия.

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

Excel 2007,2010,2013
ВладимирG, в конструкторе Access (построителе выражений) - ";" в редакторе SQL - ","


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеВладимирG, в конструкторе Access (построителе выражений) - ";" в редакторе SQL - ","

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

Excel 2007,2010,2013
Nz(Val([F21]),0)>0
имхо, порядок не тот, должно быть так сначала null и текст преобразуем в 0, потом извлекаем число [vba]
Код
Val(Nz([F21],0))>0
[/vba] ибо Val(Null) дает ошибку несоответствие типов данных


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Nz(Val([F21]),0)>0
имхо, порядок не тот, должно быть так сначала null и текст преобразуем в 0, потом извлекаем число [vba]
Код
Val(Nz([F21],0))>0
[/vba] ибо Val(Null) дает ошибку несоответствие типов данных

Автор - krosav4ig
Дата добавления - 14.09.2016 в 16:41
krosav4ig Дата: Четверг, 15.09.2016, 17:33 | Сообщение № 1217 | Тема: Пословицы, поговорки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
6.
Ученье – свет, а неученье – тьма

6.1
Ученье – свет, а за свет платить надо :(


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение6.
Ученье – свет, а неученье – тьма

6.1
Ученье – свет, а за свет платить надо :(

Автор - krosav4ig
Дата добавления - 15.09.2016 в 17:33
krosav4ig Дата: Четверг, 15.09.2016, 18:29 | Сообщение № 1218 | Тема: Выборка данных и их группировка
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте
Функция (UDF) "СцепитьЕсли"

Код
=СцепитьЕсли($B2:$B9;ПРАВБ(E1);$A2:$A9;", ")
К сообщению приложен файл: 8873659.xlsm (16.0 Kb)


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

Сообщение отредактировал krosav4ig - Четверг, 15.09.2016, 18:30
 
Ответить
СообщениеЗдравствуйте
Функция (UDF) "СцепитьЕсли"

Код
=СцепитьЕсли($B2:$B9;ПРАВБ(E1);$A2:$A9;", ")

Автор - krosav4ig
Дата добавления - 15.09.2016 в 18:29
krosav4ig Дата: Пятница, 16.09.2016, 17:17 | Сообщение № 1219 | Тема: Выборка данных и их группировка
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Sub test()
    Dim rng As Range, col&, criteria$, delim$, str$
    Set rng = [Лист1!A2:A9]: col = 1: criteria = 1: delim = ", "
    str = СцепитьЕсли(rng.Offset(, col), criteria$, rng, delim)
End Sub
[/vba]


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

Сообщение отредактировал krosav4ig - Пятница, 16.09.2016, 17:18
 
Ответить
Сообщение[vba]
Код
Sub test()
    Dim rng As Range, col&, criteria$, delim$, str$
    Set rng = [Лист1!A2:A9]: col = 1: criteria = 1: delim = ", "
    str = СцепитьЕсли(rng.Offset(, col), criteria$, rng, delim)
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 16.09.2016 в 17:17
krosav4ig Дата: Воскресенье, 18.09.2016, 04:43 | Сообщение № 1220 | Тема: Определить путь к папке, где лежат надстройки xla
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
[A1]=Application.UserLibraryPath
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
[A1]=Application.UserLibraryPath
[/vba]

Автор - krosav4ig
Дата добавления - 18.09.2016 в 04:43
Поиск:

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