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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 261 След.
расчет если по условию
 
denka1982, почему просто не привести пример в реальных данных что бы было понятнее и вам и нам...
Не бойтесь совершенства. Вам его не достичь.
ИНДЕКС и ПОИСКПОЗ по части текста
 
Цитата
Георгий Дзотцоев написал:
указав столбики целиком:
зря) лучше с запасом конкретные строки чем 1 млн.строк
Не бойтесь совершенства. Вам его не достичь.
расчет если по условию
 
denka1982, файл-пример в студию
Не бойтесь совершенства. Вам его не достичь.
Поиск ключевых слов в тексте с подстановкой определенных значений
 
Цитата
Антон написал:
но хотелось бы на формулах понять
думаю формул таких нет, ну или  UDF, макросом
Не бойтесь совершенства. Вам его не достичь.
Поиск ключевых слов в тексте с подстановкой определенных значений
 
Антон, результат это в столбец G?
Не бойтесь совершенства. Вам его не достичь.
При использовании формулы в источнике выпадающего списка появляется ошибка
 
Ибрагим Белхороев, тогда используйте макрос ) например выпадающий список как есть формула, а как только выбрали макрос на изменение ячейки отсек все кроме правых 3 символов
В ячейках A2:A4 список
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A4")) Is Nothing Then
    Target = Right(Target, 3)
End If
End Sub
Изменено: Mershik - 22.09.2021 12:14:20
Не бойтесь совершенства. Вам его не достичь.
При использовании формулы в источнике выпадающего списка появляется ошибка
 
Цитата
Ибрагим Белхороев написал:
есть какой нибудь вариант,
создать доп.столбец, рядом с данными которые сейчас используете для выпадающего списка, где будет ваша формула  
Изменено: Mershik - 22.09.2021 10:54:24
Не бойтесь совершенства. Вам его не достичь.
При использовании формулы в источнике выпадающего списка появляется ошибка
 
Ибрагим Белхороев, ну я говорю Вам что список создается ссылкой на диапазон, а функцяи ПРАВСИМВ выводит текст
Не бойтесь совершенства. Вам его не достичь.
При использовании формулы в источнике выпадающего списка появляется ошибка
 
Ибрагим Белхороев,  :D  гадать будем или может файл-пример покажите? но думаю что смещ ссылку дает на диапазон а прав символ текст)
Изменено: Mershik - 22.09.2021 10:43:34
Не бойтесь совершенства. Вам его не достичь.
Добавление строки ЕСЛИ ПОВТОР
 
повторите текст и файл-пример
Не бойтесь совершенства. Вам его не достичь.
Поиск последнего значение в строке по условию, Функция ПРОСМОТР по условию
 
Цитата
Михаил написал:
Функция ПРОСМОТР не позволяет задать такое условие.
не правда не наговаривайте на нее
Код
=ПРОСМОТР(2;1/(B3:J3>0);B3:J3)
Не бойтесь совершенства. Вам его не достичь.
Копирование сводной таблицы
 
mas2017, детально как уже сказал mechanix 85, указано тут => http://excelexpert.ru/kak-v-excel-otklyuchit-svodnuyu-tablicu-ot-istochnika-dannyx
Не бойтесь совершенства. Вам его не достичь.
Копирование сводной таблицы
 
bigorq,
Цитата
mas2017 написал:
сохранением структуры и форматирование
а у вас кажется не сохранилось)
Не бойтесь совершенства. Вам его не достичь.
Копирование скрытых колонок
 
aybek04, если коротко вроде все копируется и скрытое в т.ч. сделайте под себя
Код
Sub mrshkei()
    Range("R:R,P:P,N:N,M:M,I:I").Copy Destination:=Range("B1")
End Sub
Не бойтесь совершенства. Вам его не достичь.
Как создать таблицу с уникальными строками
 
Алена Андреева, нет файла-примера...а по функциям напсано в справке..и обычные математические действия
функция ОСТАТ
функция ЧАСТНОЕ
функция СТРОКА()
функция СТОЛБЕЦ()
2^ - 2 в степени номер столбца в котором находится формула - 1  
Изменено: Mershik - 19.09.2021 21:30:00
Не бойтесь совершенства. Вам его не достичь.
Объединение ячеек по вертикали, если одна ячейка достигла максимальной высоты
 
Екатерина,
Код
Sub mrsheki()
Dim lr As Long, i As Long, n As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = lr To 1 Step -1
    If Cells(i, 1).RowHeight = 409.5 Then
        Rows(i + 1).Insert
        For n = 1 To 4
            Range(Cells(i, n), Cells(i + 1, n)).Merge
        Next n
    End If
Next i
End Sub

Изменено: Mershik - 19.09.2021 21:12:16
Не бойтесь совершенства. Вам его не достичь.
Выбор цифр после определенных слов в ячейке
 
Сергеевич Артур, если в лоб...
Не бойтесь совершенства. Вам его не достичь.
Выбор цифр после определенных слов в ячейке
 
повторите текст и фал-пример, антиспам сработал
а судя по названию вам подойдет https://www.planetaexcel.ru/techniques/7/4844/
Изменено: Mershik - 19.09.2021 15:14:34
Не бойтесь совершенства. Вам его не достичь.
Количество вхождений, удовлетворяющих заданным условиям
 
inicman1991, файл-пример есть?
а так попробуйте:
Код
Sub mrshkei()
Dim lr As Long, i As Long, k As Long
k = 0
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
    If Cells(i, 1).Interior.ColorIndex = 6 And Cells(i, 2) = 1 And Cells(i, 3) = "годен" Then k = k + 1
Next i
Debug.Print k
End Sub

Изменено: Mershik - 19.09.2021 13:58:58
Не бойтесь совершенства. Вам его не достичь.
Активирование ячейки в определенном диапазоне
 
ГДВ, ничего не понятно)) а букв много)
зачем Вам это? может решать задачу а не какие-то активации?? есть же логика в этих действиях?
Изменено: Mershik - 19.09.2021 10:53:52
Не бойтесь совершенства. Вам его не достичь.
Сортировка по фамилиям без учета инициалов
 
БМВ, это пранк, это пранк  :D  
Не бойтесь совершенства. Вам его не достичь.
Макрос на считывание и повторение значения с выделенной ячейки до нового значения и далее циклично, Цикличный Макрос
 
Счёёёё Сумм, активируете ячейку А4 -- нажимаете CTRL+SHIFT+END --  нажимаете  F5 -- выделить -- пустые ячейки -- ок --в строке формул сделать вручную написать =A3 -- нажать CTRL+ENTER
если конечно нужен макрос:
Код
Sub meshkei()
Dim arr, i As Long, lr As Long, fr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
If Range("A1") = Empty Then
    fr = Range("A1").End(xlDown).Row
Else
    fr = 1
End If

arr = Range("A" & fr & ":A" & lr)
For i = LBound(arr) To UBound(arr)
    If arr(i, 1) = Empty Then
        arr(i, 1) = arr(i - 1, 1)
    End If
Next i
Range("A" & fr).Resize(UBound(arr), 1) = arr
End Sub
Изменено: Mershik - 18.09.2021 20:58:29
Не бойтесь совершенства. Вам его не достичь.
[ Закрыто] Формула для автоматизации расчетов
 
Евгений Бугурма, а что делать нужно? в чем суть задачии и логика?
из правил они тут - https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=rules
Цитата
2. Если создаете новую тему

  2.1. Название темы должно отражать смысл проблемы. Темы с названиями "Помогите", "Help", "Срочно", "Нужен макрос" - плохая идея. Модераторы имеют право переименовать, удалить или закрыть такие темы без предупреждения.
  2.2. Опишите максимально подробно вашу задачу и желаемый результат. Желательно уточнить вашу версию Excel.
  2.3. Приложите файл(ы) с примером (общим весом не более 300Кб) в реальной структуре и форматах данных того, что есть сейчас и того, что хотелось бы на выходе.
  2.4. Не прикладывайте файлы-примеры с персональными данными, конфиденциальной информацией, коммерческой или государственной тайной! Яндекс и Google не спят - проиндексируют ваши данные и привет - они попадут в открытый доступ. И даже удаление темы потом не поможет.
Изменено: Mershik - 18.09.2021 20:30:29
Не бойтесь совершенства. Вам его не достичь.
Преобразовать данные из таблицы в таблицу для сводной в PQ
 
DemonAMT,https://www.planetaexcel.ru/techniques/3/55/
Не бойтесь совершенства. Вам его не достичь.
Сохранение столбцов в отдельный файл (xlsx) макросом
 
Цитата
Maxim написал:
файл сохранялся не весь лист, а столбцы A:F ?
макрос делает то что вы просили согласно названию темы?
а что у Вас ьам в файле я знать не знаю (его не видел), вставляйте через пастспешл, а имя книги получайте перед созданием новой книги  
Изменено: Mershik - 17.09.2021 16:05:19
Не бойтесь совершенства. Вам его не достичь.
Сохранение столбцов в отдельный файл (xlsx) макросом
 
Maxim,
Код
Sub Сохранить_НД_в_лист()
Application.ScreenUpdating = False
Dim path As String, iLinks As Variant, i As Long
  
vopros = MsgBox("Сохранить форму загрузки НД?", vbYesNo, "Сохранение")
If vopros = vbYes Then
  
    path = ThisWorkbook.path
    Range("A:F").Copy
    Workbooks.Add
    ActiveWorkbook.Worksheets(1).Paste
    iLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(iLinks) Then
        For i = 1 To UBound(iLinks)
            ActiveWorkbook.BreakLink Name:=iLinks(i), Type:=xlExcelLinks
        Next i
    End If
    ActiveWorkbook.SaveAs path & Application.PathSeparator & ActiveSheet.Name & " " & Range("B10") & " " & Range("B11") & ".xlsx"
    ActiveWorkbook.Close (False)
    MsgBox "Форма сохранена в папку", vbInformation, "Важное сообщение:"
End If
End Sub
Не бойтесь совершенства. Вам его не достичь.
Автоматический запуск макроса при изменении данных
 
Аркадий Бочкарев, а что за макрос то?? что он должен делатЬ?
Не бойтесь совершенства. Вам его не достичь.
Пометить строку по заданному условию
 
Михаил Иванченков, понял может быть не правильно, но вдруг
Код
Sub mrshkei()
Dim sh As Worksheet, sh2 As Worksheet, cell As Range
Dim i As Long, n As Long, lr As Long, lr2 As Long
Set sh = Worksheets("ФРАЗЫ"): Set sh2 = Worksheets("2. Тексты")
lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
lr2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lr
If sh.Cells(i, 1) <> Empty Then
    For n = 1 To lr2
        If sh2.Cells(n, 1) <> Empty Then
            If InStr(1, sh2.Cells(n, 1), sh.Cells(i, 1), vbTextCompare) > 0 Then
                If cell Is Nothing Then
                    Set cell = sh2.Range(sh2.Cells(n, 1), sh2.Cells(n, 8))
                Else
                    Set cell = Union(cell, sh2.Range(sh2.Cells(n, 1), sh2.Cells(n, 8)))
                End If
            End If
        End If
    Next n
End If
Next i
If Not cell Is Nothing Then cell.Interior.ColorIndex = 3
End Sub

Изменено: Mershik - 17.09.2021 09:27:14
Не бойтесь совершенства. Вам его не достичь.
Суммирование по критериям в столбцах и строке
 
Валерий Жуковский, ловите извращений немного
Код
=СУММЕСЛИМН(ИНДЕКС($D$5:$I$9;ПРОСМОТР(2;1/(($B$5:$B$9=$K5)*($C$5:$C$9=$L5));СТРОКА($B$5:$B$9))-4;1):ИНДЕКС($D$5:$I$9;ПРОСМОТР(2;1/(($B$5:$B$9=$K5)*($C$5:$C$9=$L5));СТРОКА($B$5:$B$9))-4;6);$D$4:$I$4;M$4)
Не бойтесь совершенства. Вам его не достичь.
Подбор к комбинации из шести чисел неизвестных слагаеммых(от 1 до 49) к желаемой сумме слагаеммых
 
New,  8-0  
Не бойтесь совершенства. Вам его не достичь.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 261 След.
Наверх