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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 260 След.
Копирование скрытых колонок
 
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  
Не бойтесь совершенства. Вам его не достичь.
Объединить множество ячеек с пропуском пустых и переносом на новую строку
 
Сергей Шистеров, ничего не понял) но я думаю вы не верно трактовали или я просто не понял задачи так как не понял ТЗ (которого нет), где результат желаемый в файле в какой ячейке?
Изменено: Mershik - 15.09.2021 16:27:43
Не бойтесь совершенства. Вам его не достичь.
Разрешение на внесение данных но запрет на удаление
 
veter9191, можно что бы копировались)
Изменено: Mershik - 15.09.2021 15:48:02
Не бойтесь совершенства. Вам его не достичь.
Количество дней между последней датой и датой выдачи
 
del
Изменено: Mershik - 15.09.2021 15:42:11
Не бойтесь совершенства. Вам его не достичь.
Количество дней между последней датой и датой выдачи
 
John Karter, вариант в N2 и протянуть вниз и вправо
Код
=ЕСЛИ(МАКС($C2:C2)=0;СЕГОДНЯ();МАКС($C2:C2))-МАКС($B2:B2)
Изменено: Mershik - 15.09.2021 15:47:21
Не бойтесь совершенства. Вам его не достичь.
Объединить множество ячеек с пропуском пустых и переносом на новую строку
 
Сергей Шистеров, Склеивание текста по условию
Изменено: Mershik - 15.09.2021 14:24:33
Не бойтесь совершенства. Вам его не достичь.
Как сделать, чтобы все ячейки в столбце с одинаоквым названием, считалось как единица?
 
Цитата
namby написал:
А теперь вопрос, возможно ли потом эту формул перенести в гугл таблицу?
:D  
Не бойтесь совершенства. Вам его не достичь.
Как сделать, чтобы все ячейки в столбце с одинаоквым названием, считалось как единица?
 
Цитата
namby написал:
Есть таблица (допустим с тремя столбцами):
допустим что ее нет - тут форум по ексель, и примеры соответствующие должны быть
из правил:
Цитата
2.2. Опишите максимально подробно вашу задачу и желаемый результат. Желательно уточнить вашу версию Excel.
  2.3. Приложите файл(ы) с примером (общим весом не более 300Кб) в реальной структуре и форматах данных того, что есть сейчас и того, что хотелось бы на выходе.
  2.4. Не прикладывайте файлы-примеры с персональными данными, конфиденциальной информацией, коммерческой или государственной тайной! Яндекс и Google не спят - проиндексируют ваши данные и привет - они попадут в открытый доступ. И даже удаление темы потом не поможет.
ТЫЦ
ТЫЦ
ТЫЦ
ТЫЦ
Изменено: Mershik - 15.09.2021 11:38:51
Не бойтесь совершенства. Вам его не достичь.
Сравнение стоимости товаров в рамках одного периода и категории
 
ТЕМА: Сравнение стоимости товаров в рамках одного периода и категории
PMO87, как понял, но не понял про списанную позицию...
Код
Sub mrshkei()
Dim sh As Worksheet, sh2 As Worksheet, arr, arr2, arr3
Dim i As Long, n As Long, k As Long, lr As Long, lr2 As Long
Set sh = Worksheets("Новая_партия"): Set sh2 = Worksheets("Старая_партия")
lr = sh.Cells(Rows.Count, 1).End(xlUp).Row: lr2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row
arr = sh.Range("A1:J" & lr): arr2 = sh2.Range("A1:I" & lr2): ReDim arr3(1 To UBound(arr), 1 To 2)

For i = LBound(arr) + 1 To UBound(arr)
k = 0
    For n = LBound(arr2) + 1 To UBound(arr2)
        If arr(i, 1) = arr2(n, 1) Then
        k = k + 1
        If arr(i, 7) - arr2(n, 7) <> 0 Then
            arr3(i - 1, 1) = "да"
            arr3(i - 1, 2) = "Изменение объема"
            Exit For
        Else
            arr3(i - 1, 1) = Empty
            arr3(i - 1, 2) = Empty
        End If
        End If
        If k = 0 Then
            arr3(i - 1, 1) = "да"
            arr3(i - 1, 2) = "новая позиция"
        End If
    Next n
Next i

sh.Range("I2").Resize(UBound(arr3), 2) = arr3
End Sub



Изменено: Mershik - 15.09.2021 10:06:19
Не бойтесь совершенства. Вам его не достичь.
По условию (да/нет) переносить Ф.И.О. сотрудника на другой лист.
 
Цитата
caicer написал:
перенос на лист "График",
Перенос вы точно имеете ввиду или же копирование?
Код
Sub Update()
Dim OT As Range, cell As Range, sh1 As Worksheet, sh2 As Worksheet, arr, i As Long, k As Long
Set sh1 = Worksheets("Матрица")
Set sh2 = Worksheets("График")
arr = sh1.Range("A2:B6")
k = 2
sh2.Range("A2:A7").ClearContents
For i = LBound(arr) To UBound(arr)
    If arr(i, 2) = "да" Then
        sh2.Cells(k, 1) = arr(i, 1)
        k = k + 1
    End If
Next i
End Sub

Изменено: Mershik - 14.09.2021 16:48:44
Не бойтесь совершенства. Вам его не достичь.
Размер шрифта в .ColumnHeads
 
Lil Rock,  ну это не заголовок
Код
UserForm1.ListBox1.Font.Size = 777
Изменено: Mershik - 14.09.2021 15:11:40
Не бойтесь совершенства. Вам его не достичь.
Перенос данных из одной таблицы в другую по названию столбцов
 
PMO87, вы бы лучше описали что делает Ваш макрос с файлом примером где исходные данные и рядом или на другом листе желаемый результат. С файлом проще помогать
Изменено: Mershik - 14.09.2021 11:50:49
Не бойтесь совершенства. Вам его не достичь.
Подстановка в закрашенные ячейки значений из определенной ячейки
 
вам бы сначала в правила заглянуть, там есть пункты о файле примере в которым должны быть исходные данные до работы макроса и отдельно то что хотелось получить после его работы...
Не бойтесь совершенства. Вам его не достичь.
Добавить в формулу буквы столбцов от A до QG
 
Цитата
Ил Боч написал:
а можете пример с файлом
https://vremya-ne-zhdet.ru/vba-excel/polzovatelskaya-funktsiya/
Не бойтесь совершенства. Вам его не достичь.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 260 След.
Наверх