Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 126 След.
Ушел из жизни Сергей (Serge_007)
 
Светлая память!!!
Соболезнования родным и близким.
Слов просто нет
[ Закрыто] Помогите написать макрос
 
Цитата
Расул Мехтиев написал:
Помогите написать макрос
Цитата
Расул Мехтиев написал:
Цель - создать формулу,
Срочно читать правила
Вставка в отфильтрованные строки
 
Посмотрите тут у Дмитрия Щербакова
Визуализация отрезков
 
Цитата
iMerlin написал:
Можно ли это изобразить в Excel
Думаю, что можно, но нужно точно понимать, что именно изображать. Вы бы приложили файл с примером, для лучшего понимания задачи (как сделать такой файл описано в ПРАВИЛАХ форума)
Изменено: Msi2102 - 13.03.2024 13:53:11
Полностью удалить слово из ячейки, если в нем содержится символ
 
Ещё вариант
Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(B2;ЕСЛИОШИБКА(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(B2;" ";"</s><s>")&"</s></t>";"//s[contains(., '©')]");"");""))
Изменено: Msi2102 - 13.03.2024 12:31:29
Работа с одинаковыми строками
 
Цитата
maksimmaksim_ написал:
Панин Лев Матвеевич 31.11.2023
В ноябре 30 дней
У Вас даты и ФИО в разных столбцах?
Изменено: Msi2102 - 12.03.2024 13:43:03
Анализа чувствительности проекта. NPV, При построении Анализа чувствительности проекта NPV не изменяется
 
Возможно ТУТ есть ответ, или ТУТ
Изменено: Msi2102 - 11.03.2024 11:20:49
С помощью формул добавить в диапазон столбец с названием региона, Без изменения в исходных данных и без новых диапазонов
 
ольга, почитайте правила форума, там очень хорошо описано как должно выглядеть название темы. Предложите новое, а наши добрые модераторы его заменят, а если вы этого не сделаете, то злые модераторы закроют тему
Изменено: Msi2102 - 09.03.2024 21:21:21
Разбивание одной ячейки на несколько строк и столбцов
 
Цитата
Тимофеев написал:
1) Оракал цветной / Интерьерная печать, 36.00 шт, 14.17 руб.
А я остальные листы и не смотрел.
Там немного формат другой, ни как на первом листе, поэтому и не получается. Если не нужно было бы перед слешем выделять число, то было бы проще
Изменено: Msi2102 - 07.03.2024 15:12:45
Разбивание одной ячейки на несколько строк и столбцов
 
А ещё можно такими массивными формулами
Скрытый текст
Изменено: Msi2102 - 06.03.2024 14:02:55
Настройка запросов в повер квери
 
Цитата
nilske написал:
раз никому больше неинтересно
наверное потому что
Цитата
Анжелика написал:
и еще что-то
неопределённость всегда пугает :D
Вытащить числа (+1 символ до пробела)
 
И ещё
Код
=ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(СТРОЧН(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(C3;".";". ")));" ";"</s><s>")&"</s></t>";"//s[starts-with(preceding::*[1],'скв')]")
Вложенные циклы долго работают, Оптимизация
 
Цитата
БМВ написал:
а я б на название темы глянул,
так, это только на стадии размышлений, я же не предлагаю решение, а советую как можно ОПТИМИЗИРОВАТЬ процесс :D
Вложенные циклы долго работают, Оптимизация
 
Я бы, на месте ТС, глянул в сторону PQ
Вложенные циклы долго работают, Оптимизация
 
Цитата
Евгений Смирнов написал:
Причем вопрос спорный какой по скорости будет лучше.
Согласен отписался выше, не посмотрел, что во второй таблице 500 тыс
Вложенные циклы долго работают, Оптимизация
 
Цитата
Евгений Смирнов написал:
записывается один из методов заполнения словаря ключами со значениями Emtpy
А зачем, не проще так
Код
Sub enstaralgfjh()
Dim Arr1, Arr2, i As Long, Dic1
Application.ScreenUpdating = False
Set Dic1 = CreateObject("Scripting.Dictionary")

Arr1 = ThisWorkbook.Worksheets("Лист1").UsedRange
Arr2 = ThisWorkbook.Worksheets("Лист2").UsedRange

For i = 2 To UBound(Arr2)
    If Not Dic1.Exists(Arr2(i, 1)) Then Dic1.Add (Arr2(i, 1)), i
Next i

For i = 2 To UBound(Arr1)
    If Dic1.Exists(Arr1(i, 1)) Then
        Arr1(i, 5) = Arr2(Dic1(Arr1(i, 1)), 2)
        Arr1(i, 9) = Arr2(Dic1(Arr1(i, 1)), 3)
        Arr1(i, 11) = Arr2(Dic1(Arr1(i, 1)), 4)
    End If
Next i
Sheets("Лист1").Cells(1, 1).Resize(UBound(Arr1), UBound(Arr1, 2)) = Arr1

End Sub

УПС, не внимательно прочитал первое сообщение, во второй таблице 500 тыс, тогда всё верно, но удалять не буду, пусть будет как вариант
По скорости ТС пусть отпишется
Изменено: Msi2102 - 29.02.2024 17:53:45
ввод нескольких значений в матрицу расчетов при двумерном поиске
 
mearkhipova, Вы бы в примере показали, что именно должно получиться (хотя бы в нескольких ячейках), а то не совсем понятно в каком виде должен быть результат
Группировка имен в 6 групп 4 раза с соблюдением гендерного баланса и разных стран
 
Почитайте ЗДЕСЬ
Группировка имен в 6 групп 4 раза с соблюдением гендерного баланса и разных стран
 
Цитата
nafanky93 написал:
чтобы люди не были в одной группе из одной страны
А если будет 7 человек из одной страны
Вывод значения из текста после определенных символов
 
Ещё вариант
Изменено: Msi2102 - 20.02.2024 17:59:21
Макрос на перемещение формул по столбцам
 
Цитата
N Ch написал:
Похоже я в черном списке.
Просто не понятно, что именно Вы хотите получить, а играть в угадалки сейчас нет времени
траблы с unicode
 
Файл с примером приложите, желательно как есть, и что нужно получить
Заливка цветом ячейки со значением 1/100, но игнорировать значение 11/100, Залить цветом ячейки со значениями 1/100, 2/100, 3/100 и т.п., но не трогать ячейки 11/100, 12/100 и т.п.
 
Если правильно понял, в УФ
Код
=ПОИСК("/";B2)<3
power query замена значений, согласно справочника
 
Цитата
diman27 написал:
но структура исходника должна остаться прежней
Добавьте столбец индекса и в конце сортируйте по нему
ячейки с зада :), и такое бывает
 
Только глазки прорезались и сразу к нам :D
Создание аналогичной таблицы, увязать 4 вкладки возможно с использованием макроса
 
Цитата
Азат Фаттахов написал:
Хотелось бы узнать ценник данной  работы.
А вы обозначьте, для начала, свои предположения о стоимости этой работы
Не претендую
Progress Bar для макроса, который ищет файлы в папках
 
Цитата
БМВ написал:
то мросто
Я не понял, ты чего мурлыкать начал, ты не кот, а медведь :D
Извлечение цифры из текста, Необходимо извлечь второе имеющуюся цифру в тексте из ячейки
 
Если именно такой текст, то можно попробовать так
Код
=ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(A1;" ";"</s><s>")&"</s></t>";"//s[translate(.,'1234567890','')!=.][last()]")
Найти подстрроку с помощью регулярных выражений, regexp
 
asesja,
тогда можно без регулярок так:
Код
Sub БезРегЕксп()
    Dim str As String, t1 As String, t2 As String
    str = "{'id': '2132078', 'key': 'VIATRISGL-37374', 'self': 'https://}"
    t1 = Split(str, "key': '")(1)
    t1 = Split(t1, "', 'self'")(0)
    MsgBox t1
End Sub
Изменено: Msi2102 - 30.01.2024 09:12:33
Прошу помощи в написании vba для таблицы за вознаграждение, Писать на почту kasper0706@gmail.com
 
kasper0706, Вы бы лучше здесь, кратенько описали суть проблемы и обозначили примерный бюджет
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 126 След.
Наверх