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

Вход

Регистрация

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

 

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

Старая форма входа
Мир MS Excel » Записи участника » krosav4ig [2343]
Результаты поиска
krosav4ig Дата: Понедельник, 10.09.2018, 12:58 | Сообщение № 701 | Тема: Принудительное создание массивов
Группа: Друзья
Ранг: Старожил
Сообщений: 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
 
Ответить
СообщениеДобрый день
Код
=МАКС(МУМНОЖ(ЕСЛИОШИБКА(ИНДЕКС(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});)
Автор - krosav4ig
Дата добавления - 10.09.2018 в 12:58
krosav4ig Дата: Понедельник, 10.09.2018, 01:27 | Сообщение № 702 | Тема: Передача значения переменной в условие 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
 
Ответить
Сообщение
Цитата alexban65, 10.09.2018 в 00:57, в сообщении № 1 ()
cntrl = "UserForm." & UserForm.ActiveControl.Name & ".Text"

А, собственно, чего вы этим пытаетесь добиться?
Автор - krosav4ig
Дата добавления - 10.09.2018 в 01:27
krosav4ig Дата: Воскресенье, 09.09.2018, 02:47 | Сообщение № 703 | Тема: Передача данных из 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
 
Ответить
Сообщениеalexban65, поправьте тег, вы использовали тег формулы вместо тега VBA
Цитата
"SELECT * FROM Itog WHERE id1 LIKE '" & UserForm.ComboBox2.Text & "' AND [тут чего-то пропущено] IS NOT NULL ORDER BY 1"
Автор - krosav4ig
Дата добавления - 09.09.2018 в 02:47
krosav4ig Дата: Воскресенье, 09.09.2018, 00:07 | Сообщение № 704 | Тема: Выпадающий список с условием
Группа: Друзья
Ранг: Старожил
Сообщений: 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
 
Ответить
Сообщение
Код
=СУММПРОИЗВ(ИНДЕКС(F$2:F$4;Ч(ИНДЕКС(ПОИСКПОЗ(Т(+C7:G7)&"*";долл;);0;0)));Ч(+D7:H7))
Автор - krosav4ig
Дата добавления - 09.09.2018 в 00:07
krosav4ig Дата: Суббота, 08.09.2018, 21:40 | Сообщение № 705 | Тема: Не печатать строки с 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
 
Ответить
Сообщение
Цитата nikkei00, 08.09.2018 в 20:29, в сообщении № 1 ()
Как это можно реализовать? В какую сторону копать?
Автофильтр
Код
И(ЕПУСТО())
[vba]
Код
Workbook_BeforePrint
[/vba]
Автор - krosav4ig
Дата добавления - 08.09.2018 в 21:40
krosav4ig Дата: Суббота, 08.09.2018, 12:54 | Сообщение № 706 | Тема: Как изменить разбиение слоев по толщинам?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Юрий_Нд, 08.09.2018 в 11:38, в сообщении № 18 ()
Светлый, при попытке "разрешить редактирование" Вашего файла, как я понимаю, формулы перестают работать.

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

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата Юрий_Нд, 08.09.2018 в 11:38, в сообщении № 18 ()
Светлый, при попытке "разрешить редактирование" Вашего файла, как я понимаю, формулы перестают работать.

Замените в формуле точку на запятую (это десятичный разделитель, в разных локалях может отличаться)
Автор - krosav4ig
Дата добавления - 08.09.2018 в 12:54
krosav4ig Дата: Суббота, 08.09.2018, 01:21 | Сообщение № 707 | Тема: Как изменить разбиение слоев по толщинам?
Группа: Друзья
Ранг: Старожил
Сообщений: 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
 
Ответить
Сообщениедля файла из 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");"")
Автор - krosav4ig
Дата добавления - 08.09.2018 в 01:21
krosav4ig Дата: Четверг, 06.09.2018, 19:35 | Сообщение № 708 | Тема: Текст в модуле и 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
 
Ответить
СообщениеЗдравствуйте
Win+R
вставить [vba]
Код
Rundll32 Shell32.dll,Control_RunDLL Intl.cpl,,3
[/vba] Enter
Проверяем в нижней части окна Язык программ, не поддерживающих Юникод (должен быть русский)
Автор - krosav4ig
Дата добавления - 06.09.2018 в 19:35
krosav4ig Дата: Четверг, 06.09.2018, 00:07 | Сообщение № 709 | Тема: полное объединение двух таблиц
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Вариант со сводной по умным таблицам (через мастер сводных таблиц и диаграмм)
К сообщению приложен файл: 7486516.xlsx (13.8 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеВариант со сводной по умным таблицам (через мастер сводных таблиц и диаграмм)
Автор - krosav4ig
Дата добавления - 06.09.2018 в 00:07
krosav4ig Дата: Среда, 05.09.2018, 14:06 | Сообщение № 710 | Тема: Сумма с критерием по диапазону
Группа: Друзья
Ранг: Старожил
Сообщений: 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
 
Ответить
СообщениеЗдравствуйте.
Так нужно?
Код
=СУММ((МУМНОЖ(-(B$2:E$10="+");ТРАНСП(СТОЛБЕЦ(B2:E2))^0)<0)*(F$2:F$10=F12)*G$2:G$10)
Автор - krosav4ig
Дата добавления - 05.09.2018 в 14:06
krosav4ig Дата: Понедельник, 03.09.2018, 16:05 | Сообщение № 711 | Тема: Ваше мнение на этот счёт!?
Группа: Друзья
Ранг: Старожил
Сообщений: 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
 
Ответить
Сообщение[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]
Автор - krosav4ig
Дата добавления - 03.09.2018 в 16:05
krosav4ig Дата: Среда, 29.08.2018, 23:31 | Сообщение № 712 | Тема: Как разделить ячейку с данными на две ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

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

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте, могу посоветовать прочитать вот это
Автор - krosav4ig
Дата добавления - 29.08.2018 в 23:31
krosav4ig Дата: Среда, 29.08.2018, 22:39 | Сообщение № 713 | Тема: Удалить повторяющиеся символы и слова в ячейке
Группа: Друзья
Ранг: Старожил
Сообщений: 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
 
Ответить
Сообщение[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]
Одну запятую пока не удалось регуляркой отработать, сделал обычной заменой
исправил регулярку, должно работать, проверряйте
Автор - krosav4ig
Дата добавления - 29.08.2018 в 22:39
krosav4ig Дата: Вторник, 28.08.2018, 03:23 | Сообщение № 714 | Тема: помочь создать формулу с условием поиска по другому файлу
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здраствуйте.
Читаем тут
Потом тут

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдраствуйте.
Читаем тут
Потом тут
Автор - krosav4ig
Дата добавления - 28.08.2018 в 03:23
krosav4ig Дата: Воскресенье, 26.08.2018, 02:28 | Сообщение № 715 | Тема: Как добавить табуляцию внутрь ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте.
Если нужно в формуле
Код
=CHAR(9)

если просто ввести в ячейку, то с зажатой ALT нужно набрать 009 на цифровой клавиатуре

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте.
Если нужно в формуле
Код
=CHAR(9)

если просто ввести в ячейку, то с зажатой ALT нужно набрать 009 на цифровой клавиатуре
Автор - krosav4ig
Дата добавления - 26.08.2018 в 02:28
krosav4ig Дата: Воскресенье, 26.08.2018, 02:12 | Сообщение № 716 | Тема: Удалить повторяющиеся символы и слова в ячейке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата RAN, 25.08.2018 в 21:17, в сообщении № 15 ()
ну ты и завернул!
Ога, сам в шоке yes , сомневался, что в одну регулярку удастся запихнуть
[vba]
Код
(?:([^,]+?),)
[/vba]
Любое количество не запятых перед запятой. ? после + тут, в принципе, не нада. Удаляется при условии, что
[vba]
Код
(?=(?:.*?\1(?:,|$)))
[/vba]
находится перед любым количеством символов и таким же набором символов (обратная ссылка на захватываемую группу - \1 ), находящимся перед запятой или символом конца строки. да и тут одна вложенная незахватываемая группа лишняя
[vba]
Код
(?:,\s*)+$
[/vba]
Группа из запятой с последующим любым количеством пробельных символов повторяющаяся любое количество раз перед символом конца строки ($). Удаляются все
[vba]
Код
(?:(,)(\s)*){2,}
[/vba] группа из запятой с последующим любым количеством пробельных символов повторяющаяся от 2х раз. Удаляются все повторы кроме последнего (за это отвечают указатели на захватываемые группы в маске замены - $2$3), оставляя последний пробельный символ, если их было >1 (из-за того, что счетчик * вынесен за скобки)
Символ | между блоками - ИЛИ
с поправками регулярка получилась [vba]
Код
(?:([^,]+),)(?=.*?\1(?:,|$))|(?:,\s*)+$|(?:(,)(\s)*){2,}
[/vba]
Более развернуто можно тут посмотреть, справа Explanation, правда тока на англицком

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

Сообщение отредактировал krosav4ig - Воскресенье, 26.08.2018, 02:15
 
Ответить
Сообщение
Цитата RAN, 25.08.2018 в 21:17, в сообщении № 15 ()
ну ты и завернул!
Ога, сам в шоке yes , сомневался, что в одну регулярку удастся запихнуть
[vba]
Код
(?:([^,]+?),)
[/vba]
Любое количество не запятых перед запятой. ? после + тут, в принципе, не нада. Удаляется при условии, что
[vba]
Код
(?=(?:.*?\1(?:,|$)))
[/vba]
находится перед любым количеством символов и таким же набором символов (обратная ссылка на захватываемую группу - \1 ), находящимся перед запятой или символом конца строки. да и тут одна вложенная незахватываемая группа лишняя
[vba]
Код
(?:,\s*)+$
[/vba]
Группа из запятой с последующим любым количеством пробельных символов повторяющаяся любое количество раз перед символом конца строки ($). Удаляются все
[vba]
Код
(?:(,)(\s)*){2,}
[/vba] группа из запятой с последующим любым количеством пробельных символов повторяющаяся от 2х раз. Удаляются все повторы кроме последнего (за это отвечают указатели на захватываемые группы в маске замены - $2$3), оставляя последний пробельный символ, если их было >1 (из-за того, что счетчик * вынесен за скобки)
Символ | между блоками - ИЛИ
с поправками регулярка получилась [vba]
Код
(?:([^,]+),)(?=.*?\1(?:,|$))|(?:,\s*)+$|(?:(,)(\s)*){2,}
[/vba]
Более развернуто можно тут посмотреть, справа Explanation, правда тока на англицком
Автор - krosav4ig
Дата добавления - 26.08.2018 в 02:12
krosav4ig Дата: Суббота, 25.08.2018, 15:43 | Сообщение № 717 | Тема: Удалить повторяющиеся символы и слова в ячейке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
до кучи [vba]
Код
Sub bb()
    Dim arr() As Variant, i&
    With CreateObject("vbscript.regexp")
        .Pattern = "(?:([^,]+?),)(?=(?:.*?\1(?:,|$)))|(?:,\s*)+$|(?:(,)(\s)*){2,}"
        .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
 
Ответить
Сообщениедо кучи [vba]
Код
Sub bb()
    Dim arr() As Variant, i&
    With CreateObject("vbscript.regexp")
        .Pattern = "(?:([^,]+?),)(?=(?:.*?\1(?:,|$)))|(?:,\s*)+$|(?:(,)(\s)*){2,}"
        .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]
Автор - krosav4ig
Дата добавления - 25.08.2018 в 15:43
krosav4ig Дата: Суббота, 25.08.2018, 00:53 | Сообщение № 718 | Тема: Ошибкa в строке Dim Wb As ActiveDocument
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Otter, Имя файла. Запрещенные символы - Википедия

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеOtter, Имя файла. Запрещенные символы - Википедия
Автор - krosav4ig
Дата добавления - 25.08.2018 в 00:53
krosav4ig Дата: Пятница, 24.08.2018, 04:59 | Сообщение № 719 | Тема: Моментальная протяжка до самого конца при неподвижной мыши?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Юрий_Нд, если двойные клики рандомно появляются не только в Excel, то это ваш случай

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЮрий_Нд, если двойные клики рандомно появляются не только в Excel, то это ваш случай
Автор - krosav4ig
Дата добавления - 24.08.2018 в 04:59
krosav4ig Дата: Четверг, 23.08.2018, 16:56 | Сообщение № 720 | Тема: Разбиение содержимого ячейки на несколько столбцев
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Код
=ДЕНЬ(ЛЕВБ(V3;ПОИСК("/";V3)-1))
Код
=МЕСЯЦ(ЛЕВБ(V3;ПОИСК("/";V3)-1))
Код
=ГОД(ЛЕВБ(V3;ПОИСК("/";V3)-1))
Код
=ПСТР(V3;ПОИСК("/";V3)+1;ДЛСТР(V3))
К сообщению приложен файл: 7877461.xls (51.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Код
=ДЕНЬ(ЛЕВБ(V3;ПОИСК("/";V3)-1))
Код
=МЕСЯЦ(ЛЕВБ(V3;ПОИСК("/";V3)-1))
Код
=ГОД(ЛЕВБ(V3;ПОИСК("/";V3)-1))
Код
=ПСТР(V3;ПОИСК("/";V3)+1;ДЛСТР(V3))
Автор - krosav4ig
Дата добавления - 23.08.2018 в 16:56
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

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