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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 111 След.
АВТОЗАПОЛНЕНИЕ ЯЧЕЕК В EXCEL ИЗ ДРУГОЙ ТАБЛИЦЫ ДАННЫХ С НАЛИЧЕЕМ ОПРЕДЕЛЁННОГО СЛОВА
 
Савелий Казаков, нажмите кнопку над столбцом время
Перестал реагировать Private Sub на любые изменения
 
Запустите этот макрос
Код
Sub Test()
    Application.EnableEvents = True
End Sub
Возможность совместной работы с файлом с макросом двумя пользователями
 
Цитата
San написал:
Или может быть какой-то другой есть способ?
MS Access
Макрос обработки текста(адресов)
 
если решение через Power Query не подойдёт, то можно написать и макрос для очистки данных
Вывод текущей даты при заполнения ячейки
 
или так
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim iCell As Range, Rng As Range
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Value = Empty Then Exit Sub
    Set Rng = Union(Range("F:F"), Range("H:H"))
    For Each iCell In Target      'проходим по всем измененным ячейкам
        If Not Intersect(iCell, Rng) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100
            Application.EnableEvents = False
            With iCell.Offset(0, 1)         'вводим в соседнюю справа ячейку дату
                .Value = Now
                '.EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца, чтобы дата умещалась в ячейке
            End With
            Application.EnableEvents = True
        End If
    Next iCell
End Sub
Изменено: New - 12.01.2022 13:50:47
Макрос сравнения двух списков на разных листах в одной книге
 
Код
Sub Сoincidence()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim Numbers1 As Variant, Numbers2 As Variant, i As Long
    Dim Found As Range
 
    Set ws1 = ThisWorkbook.Sheets("Лист1")
    Set ws2 = ThisWorkbook.Sheets("Лист2")
    
    'снимаем выделения в столбцах В
    ws1.Columns(2).Interior.Color = xlNone
    ws2.Columns(2).Interior.Color = xlNone
    
    Numbers1 = ws1.Range("B2:B" & ws1.Range("B" & ws1.Rows.Count).End(xlUp).Row).Value
    Numbers2 = ws2.Range("B2:B" & ws2.Range("B" & ws2.Rows.Count).End(xlUp).Row).Value
 
    For i = LBound(Numbers2, 1) To UBound(Numbers2, 1)
        Set Found = ws1.Range("B:B").Find(Numbers2(i, 1))
        If Not Found Is Nothing Then
            Found.Interior.Color = vbYellow
        End If
        Set Found = Nothing
    Next i
 
    For i = LBound(Numbers1, 1) To UBound(Numbers1, 1)
        Set Found = ws2.Range("B:B").Find(Numbers1(i, 1))
        If Not Found Is Nothing Then
            Found.Interior.Color = vbYellow
        End If
        Set Found = Nothing
    Next i
    MsgBox "Конец", vbInformation, ""
End Sub
переменная объекта или переменная блока не установлена -91
 
мне кажется надо объект targetedInfo объявить вот так
Код
Dim targetedInfo As MSHTML.IHTMLDOMChildrenCollection

а потом добиться, чтобы его свойство Length было больше 0, а потом вот так
Код
        For i = 0 To targetedInfo.Length - 1
            If i Mod 14 = 0 Then
                rowCounter = rowCounter + 1
                .Cells(rowCounter, 1) = titles(rowCounter - 1).innerText
                .Cells(rowCounter, 2) = targetedInfo.Item(i).innerText
                .Cells(rowCounter, 3) = targetedInfo.Item(i + 8).innerText
            End If
        Next i

так как сейчас при таком селекторе Set targetedInfo = .querySelectorAll(".DX0ugf ApBhXe") свойство Length = 0
Посмотрите как это делается тут http://exceldevelopmentplatform.blogspot.com/2018/01/vba-webscraping-jquery-selectors.html
Изменено: New - 08.01.2022 23:33:40
Активация окна Excel после внесения в него подготовленных данных
 
может это поможет
https://docs.microsoft.com/ru-ru/office/vba/language/reference/user-interface-help/appactivate-statement
Изменено: New - 01.01.2022 19:52:15
Поле со списком из позиций «цифра + слово» чтобы вставлялась только цифра (Excel 2010)
 
в файле написан макрос. Вы можете нажать Alt+F11 в файле и увидеть код макроса

Код
Private Sub ComboBox1_Click()
    ActiveCell = Split(Me.ComboBox1)(0)
End Sub
Изменено: New - 31.12.2021 01:41:23
Как отключить всплывающие окна "Microsoft Excel cannot determine", Microsoft Excel cannot determine which row in your list or selection contains Column labels, which are required for this command
 
что-то в файле нет данных (
если вам эта строка не нужна, то просто закомментируйте её (поставьте апостроф перед ней)
А если нужна... то, думаю, нужен файл с данными, чтобы мы запустили макрос с вашими тестовыми данными (рабочий файл не нужно выкладывать)
Отказывается считать если в исходной ячейке формула
 
а нем и не нужен большой, нам хватить маленького... килобайт на 10-20...
Сумма количества купленных акций по нескольким условиям
 
ооууу, у вас уже и условия по датам пошли )) В первом вашем сообщении что-то про даты ничего не было ))
Вот так будет 2
Код
=СУММЕСЛИМН(Покупка!C:C;Покупка!B:B;Продажа!B2)-СУММЕСЛИМН(Покупка!C:C;Покупка!B:B;Продажа!B2;Покупка!H:H;"продана";Покупка!G:G;"<>"&Продажа!K2)
Изменено: New - 29.12.2021 22:50:02
Сумма количества купленных акций по нескольким условиям
 
Так в С2 правильный ответ 100? или 90? или 56? или 1 (2 минус 1)?
Пожалуйста, не читайте вопросы к вам по диагонали... или через один
Изменено: New - 29.12.2021 22:43:53
Сумма количества купленных акций по нескольким условиям
 
Цитата
Артем Апостолов написал:
Необходимо
А где волшебное слово "Пожалуйста"?
И какой ответ должен быть на листе Продажа в ячейке С2 ? А то тут не все каждый день акции покупают-продают...
Изменено: New - 29.12.2021 22:56:02
извлечение данных из окрашенных ячеек, извлечение данных из окрашенных ячеек на новый лист
 
вот ещё вариант, см. файл

Код
Sub Test()
Dim ArrayToFind As Variant, iItem As Variant, Rng As Range, Sht1 As Worksheet, Sht2 As Worksheet, LastRow As Long

    'запоминаем названия листов в переменные
    Set Sht1 = Worksheets("Лист1")
    Set Sht2 = Worksheets("Лист2")
    
    'очищаем Лист2
    Sht2.UsedRange.Clear
    
    'перечисляем значения для поиска
    ArrayToFind = Array("ФГ", "ФО", "ФЯ 50-я рейка", "ФР", "ФОР", "ФГР")
    
    For Each iItem In ArrayToFind
        'поиск каждого значения на Лист1 в столбцах В:C
        Set Rng = Sht1.Columns("B:C").Find(iItem, , xlFormulas, xlWhole)
        'если нашли
        If Not Rng Is Nothing Then
            'записываем на Лист2
            With Sht2
                LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                .Cells(LastRow, 1) = iItem 'Наименование изделия
                .Cells(LastRow, 2) = Rng.Offset(0, 1) 'длина
                .Cells(LastRow, 3) = Rng.Offset(0, 2) 'ширина
            End With
        End If
    Next iItem
    MsgBox "Данные скопированы!", vbInformation, "Конец"
End Sub
Изменено: New - 29.12.2021 16:11:44
извлечение данных из окрашенных ячеек, извлечение данных из окрашенных ячеек на новый лист
 
Цитата
Jack Famous написал:
погнали пиво пить, пока работает
)))) Шутник). Я имел ввиду найти последнюю строку типа lastrow = cells(rows.count, "c").end(xlup).row
Изменено: New - 29.12.2021 15:45:28
извлечение данных из окрашенных ячеек, извлечение данных из окрашенных ячеек на новый лист
 
Цитата
Jack Famous написал:
Set rng = Range("D2:E19")
Вот любишь ты хардкодить) Добавят строку и привет
извлечение данных из окрашенных ячеек, извлечение данных из окрашенных ячеек на новый лист
 
_Igor_61, Ugien89 Ugien89, так у Туточкина функции, а не Sub
Функции вводятся на листе Excel, пишешь равно, потом название функции, потом открываешь скобки, вводишь аргументы, закрываешь скобки и клавиша Enter
=getRGB1(
Изменено: New - 29.12.2021 15:02:57
извлечение данных из окрашенных ячеек, извлечение данных из окрашенных ячеек на новый лист
 
можно макросом. Но у вас в файле закрашенные ячейки пустые
Полное клонирование листа, Как скопировать один лист в другой Один в Один
 
вместо Лист1 укажите своё название листа
Код
Sheets("Лист1").Copy After:=Sheets(Sheets.Count)
Заполнить значения первого столбца значением из названия листа
 
ну, давайте мы вам поможем. Прочитайте комментарии в коде. Какие вопросы у вас возникли?
Код
Sub Test()
    Dim sPath As String, Filename As String, Wb As Workbook

    'путь к папке
    sPath = "C:\Отчеты\2021\"
    If Dir(sPath, vbDirectory) = "" Then
        MsgBox "Нет такой директории: " & sPath, vbExclamation, "Внимание"
        Exit Sub
    End If
    'имя первого найденного файла в указанной папке с расширением xlsx, xlsm, xlsb
    Filename = Dir(sPath & "*.xls*")
    'цикл по всем файлам в указанной папке
    Do While Filename <> ""
        'открываем найденный файл
        Set Wb = Workbooks.Open(Filename:=sPath & Filename, UpdateLinks:=False) ', ReadOnly:=True)
            
        'вот тут что-то делаем с открытым нами файлом
            
        'а теперь закрываем файл
        Wb.Close (True) 'True - сохранить и закрыть, False - не сохранять и закрыть
        'поиск следущего файла в папке
        Filename = Dir
    Loop 'конец цикла    
End Sub
Изменено: New - 28.12.2021 00:50:38
Доработка макроса переименования/перемещения файлов
 
Попробуйте заменить эту строку
Код
Name OldName As NewName

на вот эту
Код
FileCopy OldName, NewName
Выбор способа формирования сводной таблицы
 
Power Query, Power Pivot
Изменено: New - 27.12.2021 22:53:41
Вопрос добавления одного товара в большом количестве с присвоением к каждому индивидуальный номер., Вопрос добавления одного товара в большом количестве с присвоением к каждому индивидуальный номер.
 
это значит посмотрите сюда (см. картинку)

Изменено: New - 27.12.2021 00:53:50
Нет "движка", с помощью которого можно передвигаться по листу вправо-влево.
 
поможет, ну или секретный макрос )
Код
Sub Макрос1()
    ActiveWindow.TabRatio = 0.5
End Sub
Слияние данных с 12-15 листов в один, сортируя по номеру
 
см. файл (для запуска макроса Alt+F8)
Перенос данных с первого листа по столбцу на второй лист по строкам, Перенос данных
 
Мы договорились о вас с модератором. Повторите ваш вопрос, чтобы мы его прочитали и приложите небольшой пример
Как выделить динамический массив, когда активна одна из его ячеек, офис 365 или 2021
 
я всегда нажимаю Ctrl+A
Слияние данных с 12-15 листов в один, сортируя по номеру
 
Цитата
godkiller07 написал:
пример слияния двух листов прилагаю.
вам не кажется, что у вас лист "Слияние1" пуст?
Изменено: New - 23.12.2021 10:39:12
Ссылка на ячейку с месяцем года, Ссылка на ячейку с месяцем года
 
в ячейке А1 напишите
Код
=ТЕКСТ(СЕГОДНЯ();"ММММ")

а в вашей формуле сошлитесь на А1
Код
 =...\\...\ & A1 & \[...]*.xlsx
Изменено: New - 23.12.2021 10:30:48
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 111 След.
Наверх