Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 След.
Загрузить прайс-лист в Эксель из 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) с минутами
 
Добрый день
Подскажите, пожалуйста, а как в Эксель в ячейки вводит количество часов, которое больше 24 и чтобы отображались с минутами
то есть 28:40
Читается как 28 часов 40 минут
Сводная таблица с нескольких листов
 
Добрый день
Подскажите, пожалуйста, есть несколько листов с данными (более 2млн строк)
Можно ли построить одну сводную таблицу?

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

Важно, что человек не может ввести в ячейку данные без внесения всех данных по длине, ширине и высоте
Добавление таблицы после текста в письмо Outlook через VBA
 
А почему у меня не вставляется текст из ячейки (18,1) + копипаст?
То есть у меня вставляется только скопированная таблица без текста перед ней
То есть сначала нужен текст, а потом все остальное
Код
 'создаем сообщение
      With objMail
        .To = sTo 'адрес получателя
        .CC = iTM 'адрес для копии
        .BCC = "" 'адрес для скрытой копии
        .Subject = sSubject 'тема сообщения
        .body = ThisWorkbook.Sheets(1).Cells(18, 1) 'текст сообщения
'        .HTMLBody = ThisWorkbook.Sheets(1).Cells(18, 1) 'если необходим форматированные текст сообщения(различные шрифты, цвет шрифта и т.п.)
        .Attachments.Add sAttachment 'чтобы отправить активную книгу вместо sAttachment указать ActiveWorkbook.FullName
  .HTMLBody = ConvertRngToHTM(Selection)
Добавление таблицы после текста в письмо Outlook через VBA
 
Цитата
Дмитрий(The_Prist) Щербаков написал:
именно из буфера обмена? А в буфере что?
В буфере как раз хранится таблица.
Не нашел на сайте(
Я просто давно использую этот код для отправки и вот возникла задача вставить таблицу
Добавление таблицы после текста в письмо 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
как значение переменной внедрить в текст?
 
"Как переменную внедрить в формулу" лучше тему назвать
Изменено: Jenya1980 - 17.09.2020 09:21:46
как значение переменной внедрить в текст?
 
ну если посмотреть ошибка была не в запятой.
Я просто набрал левую часть вручную здесь, а не скопировал
ошибка была в правой части в "
как значение переменной внедрить в текст?
 
СПАСИБО, получилось!!!
как значение переменной внедрить в текст?
 
Вот вся формула
Код
ActiveWorkbook.Sheets(1),Cells(1,1).Formula ="=SUMPRODUCT(COUNTIF(J2:J & t; J2:J & t )^(2*ISBLANK(J2:J & t)-1))"
формула взята с ресурса https://www.planetaexcel.ru/techniques/14/187/ из первого комментария СУММПРОИЗВ(СЧЁТЕСЛИ(A2:A10;A2:A10)^(2*ЕПУСТО(A2:A10)-1))
как значение переменной внедрить в текст?
 
Добрый день
Что-то подвис и не могу понять в чем ошибка в коде VBA в этой строке
где t- число
Что-то с кавычками замудрено должно быть
Код
"=SUMPRODUCT(COUNTIF(J2:J & t; J2:J & t )^(2*ISBLANK(J2:J & t)-1))"
По уникальным значения столбца подсчитать количество уникальных продуктов по каждой фамилии
 
Цитата
buchlotnik написал:
до кучи Код ? 1=СЧЁТЗ(УНИК(ФИЛЬТР($B$1:$B$18;$A$1:$A$18=G1)))

Прикрепленные файлы
Вопрос1.xlsx  (9.88 КБ
Спасибо Всем!!!
А не подскажете откуда взялись эти функции? У меня их нет(
_xlfn.UNIQUE
_xlfn._xlws.FILTER
По уникальным значения столбца подсчитать количество уникальных продуктов по каждой фамилии
 
Добрый день
Подскажите как решить формулой задачу.
Есть таблица с данными (1 и 2 столбец файла)
как сделать так, чтобы по по уникальным значения столбца 1 (они уже введены в столбец 7) подсчитать количество уникальных продуктов по каждой фамилии в столбец 8

Спасибо
Почему в VBA ThisWorkbook.Name воспринимается как переменная.
 
Спасибо!!!
Почему в VBA ThisWorkbook.Name воспринимается как переменная.
 
Добрый день.
Не могу понять почему в VBA ThisWorkbook.Name воспринимается как переменная.
Что здесь не так?
Нужно сослаться на файл, где работает макрос, Лист E-mail
Код
 = "=VLOOKUP(RC[-1],'[ThisWorkbook.Name]E-mail'!C1:C2,2,0)"
Если значение найдено, возращать слово "совпадает"
 
Спасибо большое!!!
Попытался на макрос перенести
А подскажите, где ошибка
Почему снова запрашивается  путь к файлу
Код
Set iOtgruzka = Application.ActiveWorkbook.Sheets(1)
Test.Range("L2:L" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC[-11],'iOtgruzka'!C1,1,0)),""да"",""нет"")"
Если значение найдено, возращать слово "совпадает"
 
Добрый день
ПОдскажите, пожалуйста, можно использовать ВПР, но выводить при строгом соответствии  (0) не значения столбца, а к примеру слово "совпадает"
При этом не создавая дополнительного столбца в таблице?

То есть если значение находится, то достаточно выводить слово "совпадает"
Формирование письма через Mozilla
 
Спасибо. Все супер
Изменено: Jenya1980 - 07.09.2020 22:31:08
Формирование письма через Mozilla
 
Добрый день
Почему в данном скрипте не приаттачивается файл?
Код
Private Sub SendMailThunder_Click()
Dim file As String
file = "C:\123.xlsx"
strCommand = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe"
strCommand = strCommand & " -compose " & "mailto:" & "?"
strCommand = strCommand & "subject=" & "&"
strCommand = strCommand & "body=" & "&"
strCommand = strCommand & "attachment=file:///" & file

Call Shell(strCommand, vbNormalFocus)

End Sub
Фильтры в ячейке и расчет суммы оценок
 
Максим В. СПАСИБО!!!
Фильтры в ячейке и расчет суммы оценок
 
Настя_Nastya, спасибо огромное!!!
то, что нужно
Страницы: 1 2 3 4 5 6 7 8 След.
Наверх