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

Страницы: 1 2 3 4 5 6 7 8 9 След.
Макрос сохранения картинок из ссылок в папку
 
excel ругается, что нет такой функции(
URLDownloadToFile
Макрос сохранения картинок из ссылок в папку
 
Добрый день
Подскажите как лучше сделать.
Нужно создать папку с именем из столбца 1(А) и сохранить в нее все картинки, которые находятся по ссылкам из ячеек

более 100 строк в файле
Пример во вложении

Буду признателен за любую помощь

Спасибо.
Выпадающий список с возможностью поиска внутри списка
 
С предыдущим вопросом разобрался.
А как вывести изначально весь список в выпадающем меню?
Чтобы началась фильтрация только после начала ввода букв
Выпадающий список с возможностью поиска внутри списка
 
Добрый день.
Отличный вариант. Но не работает, когда я распространяю на несколько столбцов.
Подскажите, пожалуйста как сделать на несколько столбцов выпадающий список (в примере выше только на один)
Я так делал для двух столбцов
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("O2:O113000")) Is Nothing Then
        If Target.Value <> "" Then: Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub
        bu = True
        With Me.TextBox1
            .Top = Target.Top
            .Left = Target.Left
            .Height = Target.Height
            .Width = Target.Width
            .Text = Target.Value
            .Activate
        End With
        With Me.ListBox1
            .Top = Target.Top
            .Left = Target.Left + Target.Width
            .Clear
        End With
        bu = False
        Me.TextBox1.Visible = True
        Me.ListBox1.Visible = True
    Else
        Me.TextBox1.Visible = False
        Me.ListBox1.Visible = False
    End If
    
    
    On Error Resume Next
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("P2:P113000")) Is Nothing Then
        If Target.Value <> "" Then: Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub
        bu = True
        With Me.TextBox1
            .Top = Target.Top
            .Left = Target.Left
            .Height = Target.Height
            .Width = Target.Width
            .Text = Target.Value
            .Activate
        End With
        With Me.ListBox1
            .Top = Target.Top
            .Left = Target.Left + Target.Width
            .Clear
        End With
        bu = False
        Me.TextBox1.Visible = True
        Me.ListBox1.Visible = True
    Else
        Me.TextBox1.Visible = False
        Me.ListBox1.Visible = False
    End If
Изменено: Jenya1980 - 19.09.2023 13:34:13
В ячейке отобразить фотографию из ссылки
 
Добрый день.
Нужна консультация. Есть 100 ячеек (A1:A100) в которых указаны url ссылки на картинки
Как сделать, чтобы в каждой ячейке вместо url появилась картинка из ссылки?

Спасибо
Найти значение диапазоне ячеек
 
Добрый день.
Есть таблица с данными расписания.
Если в строке диапазона есть хотя бы одно число 13, то необходимо поставить 1
Если нет, то 0
09:00-18:0009:00-13:0009:00-18:001
09:00-18:0010:00-14:0009:00-18:000
Можно это сделать без макроса?
Отрицательное время
 
Добрый день
Как в Эксель показать в ячейке отрицательное время (формат время)?
Делая разницу между ячейками, если положительное число, то все ок, а если отрицательное, то ####
Как показать отрицательное время?

Спасибо
Посчитать количество рабочих часов
 
Спасибо за дельные советы!!! не могу вывести одну формулу, если в ячейке может быть так (10:00-13:00; 14:00-18:00), а может быть один интервал (10:00-18:00)
Посчитать количество рабочих часов
 
Добрый день.
В ячейке указано рабочее время (например, "10:00-13:00; 14:00-18:00").
Как можно рассчитать общее количество часов? Т.е. в данном примере должно быть 7 часов

Спасибо.
Оптимизировать код удаления строк VBA по фильтру
 
Цитата
написал:
12345678910111213Sub qq()    Dim sh As Worksheet    Set sh = ActiveSheet    With sh        If sh.AutoFilterMode Then .Cells(1).AutoFilter        With .Range("$A$1").CurrentRegion            .AutoFilter            .AutoFilter Field:=3, Criteria1:="мандарины"            sh.AutoFilter.Range.Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete            .AutoFilter Field:=3        End With    End WithEnd Sub
Этот макрос мне показался самым быстрым
А как можно сделать, чтобы удалял все, кроме "мандарины"?

добавлял Criteria1:="<>мандарины"     , но не сработало(
Оптимизировать код удаления строк VBA по фильтру
 
Да, код важен
я так понимаю самый быстрый будет вариант 2?
а на какие команды мне обратить внимание, чтобы это реализовать ?
макрорекордером не хочу(
Оптимизировать код удаления строк VBA по фильтру
 
Во вложении
Оптимизировать код удаления строк VBA по фильтру
 
Добрый день
Написал код, который перебирает строки и при наличии в ячейки значения "апельсины" - удаляет сроку
Все работает, но очень медленно, так как строк более 500 тыс.
Подскажите, пожалуйста, можно как-то ускорить быстродействие и применить другой код?
Код
iStrok = Sheets("1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To iStrok
If Sheets("Отчет").Cells(i, 3) = "Апельсины" Then
Rows(i).Delete
i = i - 1
End If
Next i
Зафиксировать сведения о пользователе
 
Цитата
написал:
CreateObject("WScript.Network").UserName
Эта команда выводит имя компьютера, а  как именно выцепить Имя из "Сведения о пользователе"?
Файл-Учетная запись - раздел Сведения о пользователе
Зафиксировать сведения о пользователе
 
Добрый день.
Умею через VBA фиксировать имя компьютера, пользователя, но никак не могу найти команду, которая позволяла бы выводить "сведения о пользователе"

Подскажите, пожалуйста, как можно фиксировать учетную запись пользователя?

Спасибо.
Отображение Имя пользователя в объекте PowerPoint
 
Цитата
написал:
Цитата
Jenya1980 написал:
Макрос в  PowerPoint
Что за мамкрос? Что он должен делать? Всё это должно быть понятно уже из названия.
Предложите новое - модераторы поменяюь.
Название: Отображение Имя пользователя в объекте PowerPoint
Отображение Имя пользователя в объекте PowerPoint
 
Добрый день.
Есть слайд в PowerPoint. Подскажите, пожалуйста, как на слайде сделать так, чтобы при открытии презентации система на слайде отображала имя пользователя?

В интернете не мог найти, может кто знает здесь(понимаю, что не тема excel)
Изменено: Юрий М - 02.06.2022 14:39:43
Посчитать значения, исключая время в дате
 
Добрый день
Есть в таблицы в которых есть дата и во второй дата и время
Нужно посчитать количество, удовлетворяющие условию по дате (счетеслимн)
Но вот как исключить время при использовании функции не совсем могу понять
Помогите, пожалуйста
Пример во вложении
Использование "Счетеслимн" и дата
 
Цитата
написал:
17:16:29
да, результат 0
Так мне нужно, чтобы время не учитывалось.
Я думал вариант добавить формулу округлвниз, но тоже не получилось

Задача бы решилась добавлением столбца, но не хотелось бы добавлять новый столбец в таблицу
Изменено: Jenya1980 - 19.04.2022 23:50:16
Использование "Счетеслимн" и дата
 
что-то у меня не получилось(
=СЧЁТЕСЛИМН('Исходные данные'!$C:$C;New!$D$5;'Исходные данные'!F:F;[@Дата])

где @Дата - целое число 05.01.2022
'Исходные данные'!F:F - диапазон с датами 05.01.2022  17:16:29 (целое число)
Использование "Счетеслимн" и дата
 
Добрый день
есть две таблицы
в одной формат даты 05.01.2022  17:16:29
в другой формат даты 05.01.2022

Как мне использовать формулу счетеслимн, чтобы использовать в качестве диапазона столбца - 05.01.2022  17:16:29
а условие по дате 05.01.2022
Как используя функцию ТЕКСТ получить дату в формате: "19" октябрь 2021 года
 
Это хорошее предложение. А как здесь тогда добавить кавычки?
=ТЕКСТ(B8;"[$-FC19]Д ММММ ГГГГ") & " г."
Как используя функцию ТЕКСТ получить дату в формате: "19" октябрь 2021 года
 
Добрый день
Подскажите, пожалуйста, как используя функцию ТЕКСТ получить дату в формате: "19" октябрь 2021 года
То есть дату взять в кавычки

Спасибо
Изменено: vikttur - 29.10.2021 20:40:06
Сохранить файл Word макросом из VBA
 
Добрый день
Подскажите, пожалуйста, а где ошибка в макросе VBA
Мне нужно сохранить из VBA открытый файл WORD с именем ячейки 2,2
Код
appWD.SaveAs2 (ThisWorkbook.Path & "\" & Cells(2, 2) & ".docx")

Возникает ошибка(
что может быть не так?
Определить, нужно ли отгружать товар в магазины
 
Добрый день
Помогите решить задачу (без VBA)

Есть 2 таблицы.
Одна со списком магазинов (заказ от магазина)
Вторая таблица, что разрешено для отгрузки в данный магазин (4 типа товаров)

Как формулой поставить в столбец C, чтобы определить статус "Разрешено" или "не разрешено" отгрузка.

Спасибо.
Изменено: vikttur - 03.10.2021 11:20:11
Функция ТЕКСТ и дата в родительном падеже
 
Добрый день
Есть задачка указывания информации в документах с датами. К примеру счет от 1 августа 2021 г
Использование ТЕКСТ позволяет сделать счет от 1 август 2021 г (то есть не хватает "а")

Как обучить excel писать по-русски)

P.S. желательно без макросов
Изменено: Jenya1980 - 12.09.2021 07:39:14
Скрытие или исключение значений в сводной таблице
 
Добрый день
Как можно сделать, чтобы итоговые значения в сводной таблице остались, а значений в столбцах не было?

В интернете не нашел информации.
Сводная таблица большая и вариант разового скрытия столбцов не подойдет (как обычная таблица)

Спасибо
Добавить формулу в сводную таблицу
 
Да, это я погуглил и нашёл, но я не разобрался как формулу прописать здесь.
нужно же мне не одну ячейку на другую разделить, а сумму диапазона на общую сумму  
Добавить формулу в сводную таблицу
 
Добрый день
Есть сводная таблица. Как в сводную таблицу добавить формулу, чтобы рассчитывала показатели (столбец М)
Не удобно писать формулу вручную и переписывать заново при изменении

Спасибо
Загрузить прайс-лист в Эксель из XML
 
Добрый день
В первый раз встречаю ситуацию, когда не могу загрузить в Эксель прайс-лист с сайта
http://6443780.ru/xml/suvenirow_compact.xml
Возникает код ошибки 1072896636
Прочитал в интернете, что с самим файлом можно решить вопрос, но как можно загрузить из интернета без правки xml?

Спасибо
Страницы: 1 2 3 4 5 6 7 8 9 След.
Наверх