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

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

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

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

Спасибо.
В ячейке отобразить фотографию из ссылки
 
Добрый день.
Нужна консультация. Есть 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").
Как можно рассчитать общее количество часов? Т.е. в данном примере должно быть 7 часов

Спасибо.
Оптимизировать код удаления строк 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
Зафиксировать сведения о пользователе
 
Добрый день.
Умею через VBA фиксировать имя компьютера, пользователя, но никак не могу найти команду, которая позволяла бы выводить "сведения о пользователе"

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

Спасибо.
Отображение Имя пользователя в объекте PowerPoint
 
Добрый день.
Есть слайд в PowerPoint. Подскажите, пожалуйста, как на слайде сделать так, чтобы при открытии презентации система на слайде отображала имя пользователя?

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

Как мне использовать формулу счетеслимн, чтобы использовать в качестве диапазона столбца - 05.01.2022  17:16:29
а условие по дате 05.01.2022
Как используя функцию ТЕКСТ получить дату в формате: "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?

Спасибо
Выбрать значение в строке, игнорируя #Н/Д
 
Добрый день.
Есть данные в строках, но встречается и #Н/Д
как в отдельную ячейку подтянуть значение из строки
Пример во вложении.

Можно ли формулами? Могу только VBA, но не хотелось бы применять макрос
Подтянуть значение по названию строки и столбца
 
Добрый день
Есть огромная таблица 1
Как в таблицу 2 подтянуть значение по соответствию данных строки и столбца
Выделил желтым значение, которое нужно подтянуть формулой
Изменено: Jenya1980 - 11.03.2021 21:13:06
Отключить через VBA связи с файлами в PowerPoint
 
ДОбрый день
Подскажите, пожалуйста, использую VBA EXCEl для обновления слайдов в презентации.
Но никак не могу победить проблему: отключения через VBA всех связей с файлами презентации в PowerPoint

Как сделать большой список классификаторов
 
Добрый день
Посоветуйте, пожалуйста, какой лучший способов ячейки выбрать значение из большого списка классификаторов (больше 100)
Через данные - проверка данных - список не очень удобно.
МОжет быть есть более удобный вариант?

Спасибо
Макрос обновления объектов, а как можно сделать диаграмм?
 
Добрый день
Помогите, пожалуйста, разобраться
Есть макрос, который обновляет связь excel-PowerPoint (объекты). Но меня не устраивает качество диаграмм, которые вставлены через "Специальную вставку" в PowerPoint
Гораздо четче видны диаграммы в PowerPoint (просто копирование) без использования специальной вставки.
Может быть есть вариант использования копирования диаграмм из Эксель в PowerPoint с высоким качеством.

Или как можно изменить макрос, чтобы обновлялись не объекты, вставленные через спец вставку, а копированные диаграммы?

Спасибо
Код
Изменено: Jenya1980 - 11.03.2021 17:17:19
Как сделать нормальную таблицу из XML
 
ДОбрый день
Экспортировал XML файл и получилась таблица, у которой строки смещены
К примеру:
Иванов
Иван
Сергеевич
мужской
Как данную таблицу привести в нормальный вид?
ИвановИван Сергеевичмужской
Спасибо
Как в ячейке отобразить количество часов (больше 24) с минутами
 
Добрый день
Подскажите, пожалуйста, а как в Эксель в ячейки вводит количество часов, которое больше 24 и чтобы отображались с минутами
то есть 28:40
Читается как 28 часов 40 минут
Сводная таблица с нескольких листов
 
Добрый день
Подскажите, пожалуйста, есть несколько листов с данными (более 2млн строк)
Можно ли построить одну сводную таблицу?

Спасибо.
Внесение размеров в ячейку (Длина X Ширина Х Высота)
 
Добрый день
подскажите, пожалуйста, как в Экселе задать правило ввода размеров (Длина X ШиринаХ Высота).
Как пример 100х50х50

Важно, что человек не может ввести в ячейку данные без внесения всех данных по длине, ширине и высоте
Добавление таблицы после текста в письмо Outlook через VBA
 
Добрый день
Подскажите, как доработать макрос, чтобы ниже текста вставлялась из буфера обмена таблица с данными в текст письма Outlook

Спасибо.
Код
Sub Send_Mail()
    Dim objOutlookApp As Object, objMail As Object
    Dim sTo As String, sSubject As String, sBody As String, sAttachment As String
 
    Application.ScreenUpdating = False
    On Error Resume Next
    'пробуем подключиться к Outlook, если он уже открыт
    Set objOutlookApp = GetObject(, "Outlook.Application")
    Err.Clear 'Outlook закрыт, очищаем ошибку
    If objOutlookApp Is Nothing Then
        Set objOutlookApp = CreateObject("Outlook.Application")
    End If
    objOutlookApp.Session.Logon
    Set objMail = objOutlookApp.CreateItem(0)   'создаем новое сообщение
    'если не получилось создать приложение или экземпляр сообщения - выходим
    If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub
 
    sTo = email   'Кому(можно заменить значением из ячейки - sTo = Range("A1").Value)
    sSubject = ThisWorkbook.Sheets(1).Cells(15, 1)   'Тема письма(можно заменить значением из ячейки - sSubject = Range("A2").Value)
    sBody = body1    'Текст письма(можно заменить значением из ячейки
    sAttachment = ThisWorkbook.Path & "\" & filename1    'Вложение(полный путь к файлу. Можно заменить значением из ячейки - sAttachment = Range("A4").Value)
 
    'создаем сообщение
      With objMail
        .To = sTo 'адрес получателя
        .CC = iTM 'адрес для копии
        .BCC = "" 'адрес для скрытой копии
        .Subject = sSubject 'тема сообщения
        .body = ThisWorkbook.Sheets(1).Cells(18, 1) 'текст сообщения
        '.HTMLBody = sBody 'если необходим форматированные текст сообщения(различные шрифты, цвет шрифта и т.п.)
        .Attachments.Add sAttachment 'чтобы отправить активную книгу вместо sAttachment указать ActiveWorkbook.FullName
     
        .Display
'        .Send   ', если необходимо просмотреть сообщение, а не отправлять без просмотра
        
    End With
 
    Set objOutlookApp = Nothing: Set objMail = Nothing
    Application.ScreenUpdating = True
End Sub
как значение переменной внедрить в текст?
 
Добрый день
Что-то подвис и не могу понять в чем ошибка в коде VBA в этой строке
где t- число
Что-то с кавычками замудрено должно быть
Код
"=SUMPRODUCT(COUNTIF(J2:J & t; J2:J & t )^(2*ISBLANK(J2:J & t)-1))"
По уникальным значения столбца подсчитать количество уникальных продуктов по каждой фамилии
 
Добрый день
Подскажите как решить формулой задачу.
Есть таблица с данными (1 и 2 столбец файла)
как сделать так, чтобы по по уникальным значения столбца 1 (они уже введены в столбец 7) подсчитать количество уникальных продуктов по каждой фамилии в столбец 8

Спасибо
Почему в VBA ThisWorkbook.Name воспринимается как переменная.
 
Добрый день.
Не могу понять почему в VBA ThisWorkbook.Name воспринимается как переменная.
Что здесь не так?
Нужно сослаться на файл, где работает макрос, Лист E-mail
Код
 = "=VLOOKUP(RC[-1],'[ThisWorkbook.Name]E-mail'!C1:C2,2,0)"
Страницы: 1 2 3 4 След.
Наверх