Записи участника (krosav4ig)

Страница 35 из 117
«
1
2
…
33
34
35
36
37
…
116
117
»

Результаты поиска

krosav4ig

Дата: Вторник, 02.10.2018, 22:31 | Сообщение № 681 | Тема: Группировка данных из строк в столбцы

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Доп. столбец с формулой

Код

=СЧЁТЕСЛИ($A$1:A2;A2)

и сводная

К сообщению приложен файл: 6116019.xlsx (49.4 Kb)

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

Ответить

krosav4ig

Дата: Пятница, 28.09.2018, 20:41 | Сообщение № 682 | Тема: Не удается прописать диапозон

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата Паштет, 28.09.2018 в 20:29, в сообщении № 1 ()

эксель ругается, говорит, что так нельзя

ну дык не научился он еще диапазон со строкой скрещивать

Код

'Журнал ИБ'!$B$5:ИНДЕКС('Журнал ИБ'!$B:$B;$L$4);$L$4)

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

Сообщение отредактировал krosav4ig - Пятница, 28.09.2018, 20:43

Ответить

krosav4ig

Дата: Пятница, 28.09.2018, 20:35 | Сообщение № 683 | Тема: Формула в дате для определения конкретного дня месяца

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

или так

Код

=КОНМЕСЯЦА(СЕГОДНЯ();СТРОКА()-1-(ДЕНЬ(СЕГОДНЯ())<20))+20

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

Сообщение отредактировал krosav4ig - Суббота, 29.09.2018, 11:24

Ответить

krosav4ig

Дата: Среда, 26.09.2018, 18:56 | Сообщение № 684 | Тема: Получить значение togglebutton ActiveX с другого листа

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

[vba]

Код

wsGraph.OLEObjects("tbCollect").Object

[/vba]

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

Ответить

krosav4ig

Дата: Суббота, 22.09.2018, 11:04 | Сообщение № 685 | Тема: Список листов сторонних книг

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Добрый день
Посмотрите эту тему

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

Ответить

krosav4ig

Дата: Четверг, 20.09.2018, 19:19 | Сообщение № 686 | Тема: МЕСЯЦ прописью

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

до кучи

Код

=ТЕКСТ(C1*30;"[$-419]ММММ")

Код

=ТЕКСТ(C1*30;"[$-f419]ММММ")

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

Сообщение отредактировал krosav4ig - Четверг, 20.09.2018, 19:20

Ответить

krosav4ig

Дата: Воскресенье, 16.09.2018, 05:01 | Сообщение № 687 | Тема: Макрос подгрузки шаблона Building Blocks

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Так как-то проще будет [vba]

Код

application.templates.loadbuildingblocks

[/vba]

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

Ответить

krosav4ig

Дата: Понедельник, 10.09.2018, 12:58 | Сообщение № 688 | Тема: Принудительное создание массивов

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Добрый день
Код
=МАКС(МУМНОЖ(ЕСЛИОШИБКА(ИНДЕКС(B:B;Ч(ИНДЕКС(A2:A11+{1;2;3};0;0))););{1:1:1}))/3

UPD.
чего-то я подтупливаю...

Код

=ПОИСКПОЗ(МАКС(МУМНОЖ(ИНДЕКС(B:B;Ч(ИНДЕКС(A2:A9+{1;2;3};;)));{1:1:1}));МУМНОЖ(ИНДЕКС(B:B;Ч(ИНДЕКС(A2:A9+{1;2;3};;)));{1:1:1});)

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

Сообщение отредактировал krosav4ig - Понедельник, 10.09.2018, 16:45

Ответить

krosav4ig

Дата: Понедельник, 10.09.2018, 01:27 | Сообщение № 689 | Тема: Передача значения переменной в условие WHERE в запросе

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата alexban65, 10.09.2018 в 00:57, в сообщении № 1 ()

cntrl = "UserForm." & UserForm.ActiveControl.Name & ".Text"

А, собственно, чего вы этим пытаетесь добиться?

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

Ответить

krosav4ig

Дата: Воскресенье, 09.09.2018, 02:47 | Сообщение № 690 | Тема: Передача данных из combobox в запрос, в условие WHERE

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

alexban65, поправьте тег, вы использовали тег формулы

вместо тега VBA

Цитата

"SELECT * FROM Itog WHERE id1 LIKE '" & UserForm.ComboBox2.Text & "' AND [тут чего-то пропущено] IS NOT NULL ORDER BY 1"

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

Сообщение отредактировал krosav4ig - Воскресенье, 09.09.2018, 02:47

Ответить

krosav4ig

Дата: Воскресенье, 09.09.2018, 00:07 | Сообщение № 691 | Тема: Выпадающий список с условием

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Код

=СУММПРОИЗВ(ИНДЕКС(F$2:F$4;Ч(ИНДЕКС(ПОИСКПОЗ(Т(+C7:G7)&"*";долл;);0;0)));Ч(+D7:H7))

К сообщению приложен файл: 2426396.xlsx (12.5 Kb)

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

Ответить

krosav4ig

Дата: Суббота, 08.09.2018, 21:40 | Сообщение № 692 | Тема: Не печатать строки с 5 пустыми ячейками

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата nikkei00, 08.09.2018 в 20:29, в сообщении № 1 ()

Как это можно реализовать? В какую сторону копать?

Автофильтр

Код

И(ЕПУСТО())

[vba]

Код

Workbook_BeforePrint

[/vba]

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

Сообщение отредактировал krosav4ig - Суббота, 08.09.2018, 21:41

Ответить

krosav4ig

Дата: Суббота, 08.09.2018, 12:54 | Сообщение № 693 | Тема: Как изменить разбиение слоев по толщинам?

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата Юрий_Нд, 08.09.2018 в 11:38, в сообщении № 18 ()

Светлый, при попытке "разрешить редактирование" Вашего файла, как я понимаю, формулы перестают работать.

Замените в формуле точку на запятую (это десятичный разделитель, в разных локалях может отличаться)

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

Ответить

krosav4ig

Дата: Суббота, 08.09.2018, 01:21 | Сообщение № 694 | Тема: Как изменить разбиение слоев по толщинам?

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

для файла из 13 поста
№

Код

=ЕСЛИ(СТРОКА(I1)>СУММ(ОКРВВЕРХ(E$6:E$10;0,2)/0,2);"";СТРОКА(I1))

Назв.

Код

=ЕСЛИ(I6<"";ПРОСМОТР(СТРОКА(J1);МУМНОЖ(ЕСЛИ(Ч(+C$5:C$10)>=ТРАНСП(C$5:C$10);ТРАНСП(ОКРВВЕРХ(E$5:E$10;0,2)/0,2););СТРОКА(C$5:C$10)^0)+1;D$6:D$7);"")

Ти

Код

=ЕСЛИ(I6<"";--ТЕКСТ(ЕСЛИ(J6=J7;0,2;ОСТАТ(ВПР(J6;D$5:E$10;2;)/1%;20)%);"[=0]\0\,2");"")

К сообщению приложен файл: 1909139.xlsx (9.5 Kb)

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

Ответить

krosav4ig

Дата: Четверг, 06.09.2018, 19:35 | Сообщение № 695 | Тема: Текст в модуле и immediate window шифруется

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Здравствуйте
Win+R
вставить [vba]

Код

Rundll32 Shell32.dll,Control_RunDLL Intl.cpl,,3

[/vba] Enter
Проверяем в нижней части окна Язык программ, не поддерживающих Юникод (должен быть русский)

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

Ответить

krosav4ig

Дата: Четверг, 06.09.2018, 00:07 | Сообщение № 696 | Тема: полное объединение двух таблиц

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Вариант со сводной по умным таблицам (через мастер сводных таблиц и диаграмм)

К сообщению приложен файл: 7486516.xlsx (13.8 Kb)

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

Ответить

krosav4ig

Дата: Среда, 05.09.2018, 14:06 | Сообщение № 697 | Тема: Сумма с критерием по диапазону

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Здравствуйте.
Так нужно?

Код

=СУММ((МУМНОЖ(-(B$2:E$10="+");ТРАНСП(СТОЛБЕЦ(B2:E2))^0)<0)*(F$2:F$10=F12)*G$2:G$10)

К сообщению приложен файл: 6505230.xlsx (14.2 Kb)

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

Ответить

krosav4ig

Дата: Понедельник, 03.09.2018, 16:05 | Сообщение № 698 | Тема: Ваше мнение на этот счёт!?

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

[offtop]

Цитата boa, 29.08.2018 в 14:30, в сообщении № 12 ()

PowerBI вообще не по зубам. ... когда ключ одной таблицы является частью ключа другой таблицы

если, как в файле test.xlsb, начало ключей обоих таблиц совпадает, то, кагбы есть Table.AddColumn и Text.Start
[vba]

Код

Table.SelectColumns(
    Table.ExpandTableColumn(
        Table.NestedJoin(
            table2,"ID",
            Table.AddColumn(
                table1,
                "NewID",
                each Text.Start([LongID] , 15)
            ),"NewID",
            ""
        ),
        "",
        Table.ColumnNames (table1)
    ),
    List.Combine(
        List.Differnce (
            List.Combine(
                Table.ColumnNames(table1),
                Table.ColumnNames (table2)
            ),
            {"LongID","ID"}
        ),
        {"LongID","ID"}
    ),
)

[/vba]
а по поводу

Цитата boa, 29.08.2018 в 14:30, в сообщении № 12 ()

сцепить две таблицы по регистрозависимому ключевому полю

точно не помню[/offtop]

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

Сообщение отредактировал krosav4ig - Понедельник, 03.09.2018, 16:09

Ответить

krosav4ig

Дата: Среда, 29.08.2018, 23:31 | Сообщение № 699 | Тема: Как разделить ячейку с данными на две ячейки

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Здравствуйте, могу посоветовать прочитать вот это

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

Ответить

krosav4ig

Дата: Среда, 29.08.2018, 22:39 | Сообщение № 700 | Тема: Удалить повторяющиеся символы и слова в ячейке

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

[vba]

Код

Sub bb()
    Dim arr() As Variant, i&
    With CreateObject("vbscript.regexp")
        .Pattern = "(?:([^,]+),)(?=(?:.*?,\1|\1)(?:,|$))|(?:,\s*)+$|(?:(,)(\s)*){2,}|\s+\K,\s*"
        .Global = True: .MultiLine = True
        arr = Selection.Value
        For i = 1 To UBound(arr)
           If .test(arr(i, 1)) Then arr(i, 1) = .Replace(arr(i, 1), "$2$3")
        Next
        Selection.Value = arr
    End With
End Sub

[/vba]
~~Одну запятую пока не удалось регуляркой отработать, сделал обычной заменой~~
исправил регулярку, должно работать, проверряйте

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

Сообщение отредактировал krosav4ig - Среда, 29.08.2018, 23:11

Ответить

Страница 35 из 117
«
1
2
…
33
34
35
36
37
…
116
117
»