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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 След.
PowerQuery. Нестандартное транспонирование, Транспонирование строк с сохранением значений первых 4-х столбцов в транспонированных строках
 
В PQ не селен, еще вариант:
Вредить легко, помогать трудно.
Автозаполнение через несколько ячеек
 
Здравствуйте, так?
В ячейку A1010 =ЕСЛИ(C1010=1;МАКС($A$2:A1009)+1;МАКС($A$2:A1009))
Вредить легко, помогать трудно.
Формула ЕСЛИ с разными условиями
 
Здравствуйте, можно так:
Код
=ЕСЛИ(И(ЕЧИСЛО(НАЙТИ(B2;"АБС"));A2<=1);1;ЕСЛИ(И(ЕЧИСЛО(НАЙТИ(B2;"АБС"));A2>1);0.2;0))
Вредить легко, помогать трудно.
power Query. Запрос к папкам с файлами и ссылка на них, Как сделать активные гиперссылки на файлы из запроса
 
Может так
Вредить легко, помогать трудно.
Отбор значений по условиям ...vba
 
Попробуйте так:
Вредить легко, помогать трудно.
Выпадающий список с добавлением - заполнение
 
Mik1965, в диспечере имен :
=СМЕЩ(Лист1!$B$29;0;0;СЧЁТЗ(Лист1!$B$1:$B$29);1)
Вредить легко, помогать трудно.
Выпадающий список с добавлением - заполнение
 
Так?
Код
Private Sub Worksheet_Change(ByVal Target As Range)

Dim lReply As Long
If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("B30")) Is Nothing Then
            If IsEmpty(Target) Then Exit Sub
                If WorksheetFunction.CountIf(Range("B1:B29"), Target) = 0 Then
                    lReply = MsgBox("Добавить введенное имя " & Target & " в выпадающий список?", vbYesNo + vbQuestion)
                        If lReply = vbYes Then
                        If Range("B29") = "" Then
                            Range("B29") = Target.Value
                        Else
                            Range("B" & Range("B30").End(xlUp).Row - 1) = Target
                        End If
                    End If
                End If
        End If
End Sub
Вредить легко, помогать трудно.
Найти максимум по строкам со смещением диапазонов, Найти максимум по строкам со смещением диапазонов
 
Здравствуйте, попробуйте вариант с формулой, но если хотите именно по заливке то через VBA:
Изменено: Behruz A.N. - 26.01.2024 06:55:05
Вредить легко, помогать трудно.
Расчет месячного расхода товара с учетом поступлений в течение месяца.
 
Евгений, Доброго времени, покажите что на выходе должно получиться?
Вредить легко, помогать трудно.
Свод данных в одну таблицу с разных листов, Есть ли способ собрать динамическую таблицу сводных данных из нескольких таблиц (листов excel) с разным количеством строк без Power Query
 
Доброго времени, попробуйте вариант с Power Query измените путь до файла на листе "Путь":
Вредить легко, помогать трудно.
Макрос для добавления новых строк в таблице, Макрос
 
Доброго времени, попробуйте вариант, назначьте свои сочетание клавиш на макросы.
Вредить легко, помогать трудно.
Как получить расширенный перечень атрибутов файлов, Нужно добавить в таблицу продолжительность видеофайлов
 
Доброго времени, вариант на VBA:
Код
Sub VideoDuration()

    Debug.Print GetFileInfo("Путь_к_папке\", "ИмяФайлаСРасширением", 27)

End Sub

Function GetFileInfo(FolderPath As Variant, FileItem As String, PropN As Integer) As String
    Dim sFile, ObjDir As Object, Obj

    Set ObjDir = CreateObject("Shell.Application").Namespace(FolderPath)
    Set sFile = ObjDir.ParseName(FileItem)

    Obj = ObjDir.GetDetailsOf(sFile, PropN)
    If Obj <> "" Then
        Obj = Replace(Obj, ChrW(8206), "")
        Obj = Replace(Obj, ChrW(8207), "")
        GetFileInfo = Obj
        Set ObjDir = Nothing
        Exit Function
    End If
    Set ObjDir = Nothing
End Function
Изменено: Behruz A.N. - 17.12.2023 08:58:58
Вредить легко, помогать трудно.
Подготовка тестов к формату Moodle, Подготовка тестов к формату Moodle
 
bomond, Доброго времени, простой формулой попробуйте:
Вредить легко, помогать трудно.
Макрос перенести таблицу из Word в Excel.
 
Здравствуйте, приложите файлы Word и Excel c примером как есть, как должно быть
Вредить легко, помогать трудно.
Извлечь НАИМЕНЬШЕЕ по ТРЁМ УСЛОВИЯМ с ЧАСТИЧНЫМ СОВПАДЕНИЕМ в СЕРЕДИНЕ текста из ДВУХ ИСХОДНИКОВ находящихся на РАЗНЫХ ЛИСТАХ (СТРАНИЦАХ). Версия Excel-2013., Извлечь НАИМЕНЬШЕЕ по ТРЁМ УСЛОВИЯМ с ЧАСТИЧНЫМ СОВПАДЕНИЕМ в СЕРЕДИНЕ текста из ДВУХ ИСХОДНИКОВ находящихся на РАЗНЫХ ЛИСТАХ (СТРАНИЦАХ). Версия Excel-2013.
 
Здравствуйте, попробуйте использовать функцию ДВССЫЛ,
смотрите в формулу БМВ.
Изменено: Behruz A.N. - 11.12.2023 08:05:55
Вредить легко, помогать трудно.
Выпадающий календарь с помощью макроса, Доработать макрос
 
В код формы :
Код
Private Sub UserForm_Activate()
With Application
    Me.Top = (((.Height - .UsableHeight) + (.ActiveCell.Top - .ActiveWindow.VisibleRange.Top) + .ActiveCell.Height - 2) * .ActiveWindow.Zoom / 100) + .ActiveWindow.Top + .Top
    Me.Left = (((.Width - .UsableWidth) + (.ActiveCell.Left - .ActiveWindow.VisibleRange.Left) + .ActiveCell.MergeArea.Width + 17) * .ActiveWindow.Zoom / 100) + .ActiveWindow.Left + .Left
End With
End Sub
Изменено: Behruz A.N. - 09.12.2023 20:01:31
Вредить легко, помогать трудно.
Последний файл в папке, Необходимо обратиться к последнему файлу в папке
 
Посмотрите тут.
Вредить легко, помогать трудно.
Выпадающий календарь с помощью макроса, Доработать макрос
 
В модуль листа добавьте:
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Dim rng         As Range
    Set rng = Range("C2:E" & ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row)
    If Not Intersect(Target, rng) Is Nothing Then
        Str = ActiveCell.Row
        Stlb = ActiveCell.Column
        Calendar.Show vbModeless
    End If
End Sub
Изменено: Behruz A.N. - 09.12.2023 07:54:47
Вредить легко, помогать трудно.
Как упорядочить шапку таблиц, если структура столбцов меняется местами в Power Query, Неплоские таблицы и имеют объединение, в шапке меняется порядок столбцов
 
Виктория Сидорова, Здравствуйте смотрите тут и тут.
Вредить легко, помогать трудно.
Расчет взносов.
 
ArhyBuh, Приложите файл примера с ожидаемым результатом.
Вредить легко, помогать трудно.
Макрос для скрытия столбцов и отображения на одной кнопке, Макрос для скрытия столбцов и отображения на одной кнопке
 
makkedonia, попробуйте так:
Код
Sub Hide()
    Columns.Hidden = False
    Dim cell        As Range
    Application.ScreenUpdating = False

    If ActiveSheet.Range("a1") = "Итого ГК" Then
        ActiveSheet.Range("b3:in3").EntireColumn.Hidden = False
    Else
        For Each cell In ActiveSheet.Range("b3:in3").Cells
            If cell.Value = ActiveSheet.Range("a1") Then cell.EntireColumn.Hidden = True
        Next
    End If
    Application.ScreenUpdating = True
End Sub
Вредить легко, помогать трудно.
Вставка таблицы с листа Эксель, в Ворд, Из файла Эксель нужно вставить таблицу в файл Ворд
 
Дмитрий, приложите файлы примера с предполагаемыми результатами.
Вредить легко, помогать трудно.
Макрос для подсчета сумм значений из массива по месяцам, Тема скорее всего заезженная, прошу не судить строго
 
index, формулой:
=СУММПРОИЗВ((ТЕКСТ(data!$E$8:$AI$8;"ММ.ГГ")=ТЕКСТ(B$3;"ММ.ГГ"))*(data!$C$9:$C$22=out!$A4);(data!$E$9:$AI$22))
Вредить легко, помогать трудно.
Запрос на помощь по извлечению данных из файла .docx, Прошу помощи в извлечении и обработке данных из файла .docx, выделенных зеленым и желтым цветом. Требуется улучшение кода для извлечения дополнительной информации. Прилагаю файлы. Спасибо!
 
Cheking777, я думал, что если "Всего" равно 10 то везде будет 10, исправил, но на счет ошибка ввода можно добавит проверку.
Вредить легко, помогать трудно.
Как открыть файл xlsb только для чтения, чтобы он при закрытии не спрашивал - сохранять его или нет, чтобы не запускал никаких макросов в нем
 
Здравствуйте, попробуйте так:
Код
    Dim wb As Workbook
    Application.EnableEvents = False
    Set wb = Workbooks.Open("Путь к файлу", False, True)

     'Ваш код

    Application.EnableEvents = True
    wb.Close False
Изменено: Behruz A.N. - 04.12.2023 07:21:21
Вредить легко, помогать трудно.
Запрос на помощь по извлечению данных из файла .docx, Прошу помощи в извлечении и обработке данных из файла .docx, выделенных зеленым и желтым цветом. Требуется улучшение кода для извлечения дополнительной информации. Прилагаю файлы. Спасибо!
 
Цитата
Cheking777 написал:
поиск "-" и замена "-"
не понял.
№ПП добавл.
Изменено: Behruz A.N. - 02.12.2023 14:10:09
Вредить легко, помогать трудно.
Запрос на помощь по извлечению данных из файла .docx, Прошу помощи в извлечении и обработке данных из файла .docx, выделенных зеленым и желтым цветом. Требуется улучшение кода для извлечения дополнительной информации. Прилагаю файлы. Спасибо!
 
Хотите в исходном файле еще один столбец добавить или при копировании значения из ворда добавлялась еще одни столбец?
Изменено: Behruz A.N. - 02.12.2023 13:14:32
Вредить легко, помогать трудно.
Запрос на помощь по извлечению данных из файла .docx, Прошу помощи в извлечении и обработке данных из файла .docx, выделенных зеленым и желтым цветом. Требуется улучшение кода для извлечения дополнительной информации. Прилагаю файлы. Спасибо!
 
Cheking777, Заменил файл, попробуйте.
Вредить легко, помогать трудно.
Запрос на помощь по извлечению данных из файла .docx, Прошу помощи в извлечении и обработке данных из файла .docx, выделенных зеленым и желтым цветом. Требуется улучшение кода для извлечения дополнительной информации. Прилагаю файлы. Спасибо!
 
Вариант, попробуйте:
Изменено: Behruz A.N. - 02.12.2023 12:38:08
Вредить легко, помогать трудно.
Сумма ячеек с числами и текстом, СУММ ПОДСТАВИТЬ
 
Здравствуйте, попробуйте так:
=СУММ(ЕСЛИОШИБКА(ЗНАЧЕН(ПОДСТАВИТЬ(A1:A8;" шт";""));0))
Вредить легко, помогать трудно.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 След.
Наверх